wuss

Na man tai veikia gerai, gal duomenis blogai suvedei

program Noname7;
var i, x,  y, kol, cc : integer;
 a, b, c : array [1..100] of integer;
begin
 readln(x);

 for i := 1 to x do
  readln(a[i]);

 readln(y);
 readln(kol);

 cc := 0;
 for i := 1 to x do
  begin
if a[i] = y then
  b[i] := kol
  else
	begin
		b[i] := a[i];
		inc(cc);
		c[cc] := a[i];
	end;
end;
write('B ');
for i := 1 to x do
write(b[i],' ');
writeln;

 write('C ');
for i := 1 to cc do
write(c[i],' ');
 Readln;
end.

Į pirmąją tingėjau gilintis :D

1.

program kazkas;
var keikis, kaina, suma : real;
begin
readln(kiekis, kaina);
while (kiekis > 0) and (kaina>0) do
 begin
 suma := suma + kiekis * kaina;
 readln(kiekis, kaina);
 end;
writeln(suma);
end.

2.

program kazkas;
var sk, max : longint;
begin
max := -maxlongint;
readln(sk);
while (sk>0) do
 begin
 if sk > max then max := sk;
 readln(sk);
 end;
writeln(sk);
end.

Galiu atsiųsti į pm vienus vaistus :D pats sukūriau, tokia mini programėlė kurią paslėpus bet kur ir įdėjus į start up neis įeiti i one.lt ir į dar pora online žaidimų (runescape...). Sukūriau ja kad pc mokykloj atlaisvinčiau :D Beje kokia naršyklė? firefox, ir IE teveikia, kitų nebegalės įjungti :D

Pasiimk skaičius iš eilės patikrink pereidamas per visus skaičius kiek tokių pačių yra, jeigu 2 arba daugiau, tai skaičiaus nededame į atsakymą, kitu atveju dedam (nevienodi := nevienodi * 10 +sk ). Ir kartok su visais skaitmenimis :rolleyes:

Dar eilės numeriai blogai buvo padaryti

Book12.zip

.

Prasuk rekursija su visais imanomais variantais ir viskas :) Gal ir veiks ilgiau nei naudojant koki tai algoritma, bet veiks ;)

Gal dar bu kokių nuomonių/patarimų ?

O kaip dėl bendrabučio? Teko girdėti kad labai sunku gauti

Sveiki, gal kas galit patarti kur geriau stoti KTU ar VU, gal kas ten studijuojat? Kokie + - ? Žadu studijuoti Informatika (programavimą). Šiaip visada galvojau apie studijas KTU, bet vienas žmogus privertė susimastyti, tai dabar nežinau :D

Kokia programavimo kalba ?

kokia cia isvis kalba? :) ideja ta pati kaip ir visur turetu buti tik va itariu cia pascalis? nes tie to, do nelabai pazystami :D

Taip čia paskalis :)

Netaip supratau sąlyga :D

for i := 1 to a do
sandauga := sandauga * i;

for i := 1 to b do
suma := suma + i;

writeln(sandauga - suma);

taip gal? :D

Nu tai kiekvieno intervalo skaicius sudaugini , poto visus skaicius sudedi ir ieskai skirtumo is kiekvieno intervalo ..

 

Nu pvz

 

b1 * b2 * b3 - a1 *a2 *a3 = ?

 

b1 + b2 + b3 - a1 + a2 + a3 = ?

 

 

Kaip suopratau taip paaiskinau ;)

Netaip :D

for i := a to b do
begin
 suma += a;
 sandauga *= a;
end;
writeln(sandauga - suma);

Sveiki. Turiu du pc (su win 95 ir win xp) ir nei ant vieno neveikia normaliai com portas (ant win 95 vieną kartą buvo suradę, neįsivaizduoju ką buvau padaręs). Testavimui turiu pele (tokia seną kad jungiama per com portą :D) ir Sharp LQ1 4D412 monitorių (monitorių buvo radę vieną kartą ,vaizdą rodo, bet neranda touch screeno draivų, kuriuos turi rasti per com portą). Gal kas žinot ką daryt su tais portais?

Programoje sukurk: Memo ir button'ą

unit Unit9;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm9 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;

var
 Form9: TForm9;

implementation
  uses pirmas, antras;
{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
pakeiciam(Memo1);
pakeiciam2(Memo1);
end;

end.

unit pirmas;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,StdCtrls;

Procedure pakeiciam(a : Tmemo);

implementation

procedure pakeiciam(a: Tmemo);
begin
 a.Lines.Add('pakeiciam : procedura')
end;

end.

unit antras;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,StdCtrls;

Procedure pakeiciam2(a : Tmemo);

implementation

procedure pakeiciam2(a: Tmemo);
begin
 a.Lines.Add('pakeiciam2 : procedura')
end;

end.

Siūlyčiau pasidomėti Threads delfije :D

O tu nemaišai UNIT su THREADS ? Na jei su unit, tai sukurk 4 unitus, visuose patalpink ta funkcija (pakeisk pavadinimus kad nesipjautu), o ant button uždėk kad visas iškviestų.

read(f, visi[1].vardas, visi[1].pavarde);
while not EoLn(f) do
begin
 kiek := kiek + 1;
 read(f,a);
 suma := suma + a;
end;
 visi[1].vidurkis := suma / kiek;
readln(f);

Prasuk cilkiuką ir perskaitysi visus :D

procedure pirmas(n:integer; var a:mas);
var max,min:integer;
begin
for i := 1 to n do
begin
max := 0;
min:=0;
for j := 1 to n do
if a[i,j] > max then max := j;
if a[i,j]< min then min := j;

a[i, max] := k;
a[i, min] := k;
end;

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]);
writeln;
end;
end;

O kur tų žodžių ieškoti? ;) jaučiu net paskalis palūžtų nuo tiek variantų :)

o tai ko tau reikia?

procedure pirmas(n:integer; var a:mas);

var max,min:integer;

begin

for i := 1 to n do

begin

max := 0;

min:=0;

for j := 1 to n do

if a[i,j] > max then max := k;

if a[i,j]< min then min := k;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]);

writeln;

end;

end;

program figuros;

uses Crt, Graph;

const Vieta ='';

ar pas tave jis prie paskalio buvo?

for i := 1 to 4 do  //eiles
begin
max := -1;
for i2 := 1 to 4 do //stulpai
if  masyvas[i,i2] > max  then max := masyvas[i,i2];
writeln(i, '  eilutes max yra ', max);
end;

nu atsiųsk graph modulį :) aš irgi jo noriu