Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

219 Okunma Delphi

"Delphi" Programlama dilinde "While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

program CalculateAverage;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  count: Integer;
  sum: Double;
  numberStr: string;
  number: Double;
  avg: Double;

begin
  count := 0;
  sum := 0.0;

  while count < 10 do
  begin
    Write('Bir Sayı Girin: ');
    ReadLn(numberStr);
    if TryStrToFloat(numberStr, number) then
    begin
      count := count + 1;
      sum := sum + number;
    end
    else
    begin
      Writeln('Geçersiz bir sayı girdiniz. Tekrar deneyin.');
    end;
  end;

  avg := sum / 10;
  Writeln('Ortalama: ', avg);
end.
Döngü While Ortalama For Loop Delphi

İlginizi Çekebilir

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...