Delphi Örnekleri

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.items.Add(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,i:integer;
t,stdev,toplam,mean:real;
begin
toplam:=0;
for i:=0 to listbox1.count-1 do
 begin
  x:=strtoint(listbox1.items[i]);
  toplam:=toplam+x;
  mean:=toplam/(listbox1.count);
  edit2.text:=floattostr(mean);
 end;
 t:=0;
     for i:=0 to listbox1.count-1 do
     begin
    x:=strtoint(listbox1.items[i]);
    t:=t+sqr(x-mean);
    end;
    stdev:=sqrt(t/(listbox1.Count-1));
     edit3.text:=floattostr(stdev);
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
a,yenideger:real;
begin
a:=strtofloat(edit1.text);
if radiobutton1.Checked then
yenideger:=((a)*(9/5))+32;
edit2.text:=floattostr(yenideger);
if radiobutton2.checked then
yenideger:=((a)-32)*(5/9);
edit2.text:=floattostr(yenideger);
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if radiobutton1.Checked then
c:=a+b;
edit3.Text:=floattostr(c);
if radiobutton2.Checked then
c:=a-b;
edit3.Text:=floattostr(c);
if radiobutton3.Checked then
c:=a*b;
edit3.Text:=floattostr(c);
if radiobutton4.Checked then
c:=a/b;
edit3.Text:=floattostr(c);

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
n,toplam,i:integer;
begin
toplam:=0;
n:=strtoint(edit1.text);
for i:=1 to n do
 begin
   toplam:=toplam+i;
   edit2.text:=inttostr(toplam);
 end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
carpim,n,i:integer;
begin
carpim:=1;
n:=strtoint(edit1.text);
  begin
   if n=0 then
   edit2.text:='1'
   else
     for i:=1 to n do
       begin
    carpim:=carpim*i;
    edit2.text:=inttostr(carpim);
       end;
   end;
end;

end.