memo1 e girilen sayıların En küçük,en büyük,toplam,toplamların karesini,ortalamasını,varyansını,std.sapmasını memo2 ye yazdıran program (radiobutton yardımı ile)

kodu radiobutton1 e yazıyoruz daha sonra diger radiobutton'lar onclick event'ine gelerek radiobutton1 i seçili yapıyoruz . Bu sayede her kodu teker teker radiobuttonlara yazmamıza gerek kalmıcak.


procedure TForm1.RadioButton1Click(Sender: TObject);
var
 data:array of double;
 i,n:integer;
 min,max,t,tt,m,v,s:real;
begin
 n:=memo1.lines.Count;
 SetLength(data,n);
 for i:=0 to n-1 do
  data[i]:=strtoint(memo1.Lines[i]);
 if RadioButton1.Checked then
 begin
  min:=Minvalue(data);
  memo2.Lines.Add('En Küçük'+' '+floattostr(min));
 end
 else if RadioButton2.Checked then
 begin
  max:=MaxValue(data);
  memo2.lines.Add('En Büyük'+' '+floattostr(max));
 end
 else if RadioButton3.Checked then
 begin
  t:=sum(data);
  memo2.lines.Add('Toplam'+' '+floattostr(t));
 end
 else if RadioButton4.Checked then
 begin
  tt:=SumOfSquares(data);
  memo2.lines.add('karelerinin Toplamı'+' '+floattostr(tt));
 end
 else if RadioButton5.Checked then
 begin
  m:=Mean(data);
  memo2.lines.Add('ortalama'+' '+floattostr(m));
 end
 else if RadioButton6.Checked then
 begin
  v:=variance(data);
  memo2.Lines.Add('varyans'+' '+floattostr(v));
 end
 else if RadioButton7.Checked then
 begin
  s:=Stddev(data);
  memo2.lines.add('Std.Sapma'+' '+floattostr(s));
 end;
 end;

end.

floattostr yerine bazı degısıkler yaparak ''formatfloat'' kullanabılır ayrıca '#.### veya #.##0' gibi çeşitler ile ortaya çıkan sonuçların ondalık kısmının kaç basamağının gözükmesini ayarlayabilirsiniz. İlerleyen yayınlarımda bunla ilgili örnek uygulamalı olarak göstercem.