.: Ing. Petr Stránský - Závěrečná práce RSI :.

04.01 Sčítání čísel do dosažení hodnoty

Zadání:
Sestavte program, který bude načítat čísla do té doby, dokud jejich součet nepřekročí zadanou hodnotu.

Řešení:
Zadání vyřešíme použitím cyklu REPEAT, který kontroluje podmínku na konci výpočtu.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,soucet,pocet,suma:integer;

begin

   pocet:=0;
   soucet:=0;

   write('Zadejte maximalni hodnotu souctu: ');
   readln(suma);

   repeat
      pocet:=pocet+1;
      write('Zadejte ',pocet,'.cislo: ');
      readln(cislo);
      soucet:=soucet+cislo;
   until soucet>suma;

   writeln('Pocet cisel: ',pocet);
   writeln('Soucet cisel: ',soucet);

   readln;

end.

program ke stažení

Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné pocet a soucet MUSÍTE vložit hodnotu O (nula), jinak by program dosadil své počáteční hodnoty.

Pro učitele:
U tohoto programu lze vyvolat diskuzi, kdy program nikdy neskončí (např. při zadávání nulových hodnot, hodnot kladných a záporných stejných velikostí atd.).

Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.01 Sčítání čísel do dosažení hodnoty

MENU

04.01 Sčítání čísel do dosažení hodnoty