Delphi Diziler Hakkında Yardım

[raym0nd42]

Selamın Aleyküm

Şimdi Benim Sorum Sizlere Abiler Rasgele Tanımlanmış 25 sayıyı dizi şeklinde kullanıp bu sayıların karesini MEMO'ya yazdırmak

Yani demek istediğim bir dizi tanımlamak

Sayi:=(Random(100))

Sayilar:Array[1..25] of INTEGER=(1,22,11,55,26,19,49,42 vs vs ) burda tanımlanmış sayılar ben kendim elimle değilde direk yukarda 'Sayi' olarak tanımladıgım random sayılar gelsin istiyorum nasıl yapabilirim

[ertank]

A.S.
Hangi Delphi sürümünü kullanıyorsunuz?

[adelphiforumz]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
   Dizi : Array of integer;
   I : Integer;
begin
    SetLength(Dizi, 25);
    for I := 0 to 24 do
    begin
        Dizi[I] := Random(100);
    end;

    Memo1.Lines.Clear;
    for I := 0 to Length(Dizi) - 1 do
    begin
        Memo1.Lines.Add(IntToStr(I) + '. Sayı : ' + IntToStr(Dizi[I]) + ', Karesi : ' + FloatToStr(Sqr(Dizi[I])));
    end;
end;