04.11 Hledání počtu záporných, nulových a kladných čísel
Zadání:
Sestavte program, který určí počet čísel ze zadané řady čísel, která jsou kladná, záporná a nulová.
Sestavte program, který určí počet čísel ze zadané řady čísel, která jsou kladná, záporná a nulová.
Ř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 je jeho hodnota kladná, nulová nebo záporná.
Pokud ano, zvýšíme hodnoty příslušných proměnných pk, p0 a pz o 1 (jedna).
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 je jeho hodnota kladná, nulová nebo záporná.
Pokud ano, zvýšíme hodnoty příslušných proměnných pk, p0 a pz o 1 (jedna).
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var cislo,n,i,pz,p0,pk:integer;
begin
write('Zadejte pocet cisel: ');
readln(n);
pz:=0;
p0:=0;
pk:=0;
for i:=1 to n do
begin
write('Zadejte ',i,':cislo: ');
readln(cislo);
if cislo<0 then pz:=pz+1;
if cislo=0 then p0:=p0+1;
if cislo>0 then pk:=pk+1;
end;
writeln('Pocet zapornych cisel=',pz);
writeln('Pocet nulovych cisel=',p0);
writeln('Pocet kladnych cisel=',pk);
readln;
end.
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnných pz, p0 a pk 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ých pz, p0 a pk MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.