en büyük sayıyı bulan kod

[scarfacedias]

SELAMÜN ALEYKÜM Delphide yeniyim arkadaşlar !!!!

ufak kodlar öğrenip kendimi geliştirme aşamasındayım. bana yardımcı olursanız sevinirim.

[esistem]

Selam;
En basit yöntem, sayıları bir array (dizi değişkenine) atıp maxvalue veya minvalue ile bulabilirsin

[brs]

SELAMÜN ALEYKÜM Delphide yeniyim arkadaşlar !!!!

ufak kodlar öğrenip kendimi geliştirme aşamasındayım. bana yardımcı olursanız sevinirim.

Kodlar kendini geliştirmene yarar mı bilemiyorum, ne yapmak istediğini daha açık yazarsan bizler seni daha iyi anlarız...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Sirano1, Sirano2: Integer;
begin
  Sirano1 := StrToInt(Edit1.Text);
  Sirano2 := StrToInt(Edit2.Text);
  begin
    if Sirano1 = Sirano2 then
    begin
      ShowMessage('Sayılar Eşit');
    end
    else
    begin
      if Sirano1 < Sirano2 then
      begin
        ShowMessage('Sayı Küçük');
      end
      else
    begin
      if Sirano1 > Sirano2 then
      begin
        ShowMessage('Sayı Büyük');
      end;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b: integer;
begin
  a := 57;
  b := StrToInt(Edit1.Text);
  begin
    if b > a then
      ShowMessage('Aşağı')
    else if b < a then
      ShowMessage('Yukarı')
    else if b = a then
      ShowMessage('Tebrikler Sayıyı Buldunuz');
  end;
end;