04.08 Hledání čísel s hodnotou odpovídající jejich pořadovému číslu
Zadání:
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota se rovná jejich pořadovému číslu.
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota se rovná jejich pořadovému číslu.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme do proměnné n celkový počet zadávaných čísel v řadě. Poté
pomocí cyklu FOR načteme všechna čísla a každé z nich zkontrolujeme, zda jeho hodnota odpovídá jeho pořadovému
číslu. Pokud ano, zvýšíme hodnotu proměnné pocet o 1 (jedna).
Pozn.: pořadové číslo zadávané hodnoty je obsaženo v proměnné i.
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme do proměnné n celkový počet zadávaných čísel v řadě. Poté
pomocí cyklu FOR načteme všechna čísla a každé z nich zkontrolujeme, zda jeho hodnota odpovídá jeho pořadovému
číslu. Pokud ano, zvýšíme hodnotu proměnné pocet o 1 (jedna).
Pozn.: pořadové číslo zadávané hodnoty je obsaženo v proměnné i.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var cislo,i,pocet,n:integer;
begin
write('Zadejte pocet cisel: ');
readln(n);
pocet:=0;
for i:=1 to n do
begin
write('Zadejte ',i,'.cislo:');
readln(cislo);
if cislo=i then pocet:=pocet+1;
end;
writeln('Pocet cisel:',pocet);
readln;
end.
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné pocet MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné pocet MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.