10.09 Určení počtu vozidel z určitého kraje
Zadání:
Sestavte program, který určí, kolik poznávacích značek aut je z kraje Vysočina.
Sestavte program, který určí, kolik poznávacích značek aut je z kraje Vysočina.
Řešení:
Program po zadání počtu značek a inicializaci proměnné pocet prochází pomocí cyklu FOR všechny značky. V nich hledá
první písmeno a pokud je první písmeno "J", inkrementuje proměnnou pocet. Na konci programu se počet hledaných
značek vytiskne.
Program po zadání počtu značek a inicializaci proměnné pocet prochází pomocí cyklu FOR všechny značky. V nich hledá
první písmeno a pokud je první písmeno "J", inkrementuje proměnnou pocet. Na konci programu se počet hledaných
značek vytiskne.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var pz,i,j,pozice,pocet:integer;
znacka:string;
begin
write('Zadejte, kolik SPZ budete zadavat: ');
readln(pz);
pocet:=0;
for i:=1 to pz do
begin
write('Zadejte ',i,'.znacku: ');
readln(znacka);
j:=1;
pozice:=0;
repeat
if (znacka[j]>='A') and (znacka[j]<='Z') then pozice:=j;
j:=j+1;
until (pozice<>0) or (j>=9);
if znacka[pozice]='J' then pocet:=pocet+1;
end;
writeln('Pocet znacek z kraje Vysocina: ',pocet);
readln;
end.
program ke stažení