Informatika

[Stefan]

procedure TForm1.Button1Click(Sender: TObject);
var S,C,L,P:real;
    i:integer;
    x:string;
begin
val(edit1.Text,S,i);
val(edit2.Text,L,i);
val(edit3.text,C,i);
P:=2*S*C*L/100;
Str(P:0:0,x);
edit4.text:=x;
end;

end.

[Bane Čubra]

SA OVOG LINKA MOZETE PREUZETI URADJENE ZADATKE NA CASOVIMA INFORMATIKE.

DELPHI (CETVRTI RAZRED)

PROF.VLADICA GAVRILOV

http://rapidshare.com/files/313294800/Komponente_izbora.rar.html

[Bane Čubra]

Informatika - novi zadaci

Delphi

http://rapidshare.com/files/319797298/Rad_sa_nizovima.rar.html