Pascal – Maximum z čísel

Datum vydání: 2011-11-17 16:07:00; aktualizováno: 2019-11-12 08:51:04

Program vytiskne maximum ze zadaných čísel. Po zadání čísla -999 program skončí.

Zdrojový kód Free Pascal

While cyklus

program Maximum;
uses crt;
var cislo, max: integer;
begin
   clrScr;

   writeln('Program vypise maximum ze zadanych celych cisel. Konec = -999.');
   max := -MAXINT; //-32768

   write('Zadejte cislo: ');
   readln(cislo);
   while (cislo <> -999) do
   begin
      if (cislo > max) then
         max := cislo;
      write('Zadejte cislo: ');
      readln(cislo);
   end;
   writeln('Maximum ze zadanych cisel je: ', max);

   repeat
   until keyPressed;
end.

Zdrojový soubor

soubor maximum-while.pas

Repeat until cyklus

program Maximum;
uses crt;
var cislo, max: integer;
begin
   clrScr;

   writeln('Program vypise maximum ze zadanych celych cisel. Konec = -999.');
   max := -MAXINT; //-32768
   repeat
      write('Zadejte cislo: ');
      readln(cislo);
      if ((cislo > max) and (cislo <> -999)) then
         max := cislo;
   until (cislo = -999);
   writeln('Maximum ze zadanych cisel je: ', max);

   repeat
   until keyPressed;
end.

Zdrojový soubor

soubor maximum-repeat-until.pas

Spuštění programu

Program vypise maximum ze zadanych celych cisel. Konec = -999.
Zadejte cislo: 5
Zadejte cislo: 7
Zadejte cislo: -5
Zadejte cislo: 3
Zadejte cislo: -999
Maximum ze zadanych cisel je: 7