A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
inf-prog-fszi:koezuti_ellenorzes [2017/06/19 10:10] beistvan létrehozva |
inf-prog-fszi:koezuti_ellenorzes [2017/06/19 10:10] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Közúti ellenőrzés ====== | ||
+ | |||
+ | <code pascal kozuti_ellenorzes.pas> | ||
+ | program kozuti_ellenorzes; | ||
+ | type jarmu=record | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | var i, | ||
+ | t,f:text; | ||
+ | a: | ||
+ | kat: | ||
+ | keres: | ||
+ | ch:char; | ||
+ | begin | ||
+ | //1.feladat | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | i:=0; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | read(t, | ||
+ | read(t,ch); | ||
+ | read(t, | ||
+ | read(t,ch); | ||
+ | read(t, | ||
+ | read(t,ch); | ||
+ | readln(t, | ||
+ | end; | ||
+ | close(t); | ||
+ | n:=i; | ||
+ | for i:=1 to n do | ||
+ | writeln(a[i].ora,' | ||
+ | writeln(' | ||
+ | //2.feladat | ||
+ | writeln(' | ||
+ | writeln; | ||
+ | x: | ||
+ | writeln(' | ||
+ | //3.feladat | ||
+ | writeln(' | ||
+ | writeln; | ||
+ | k:=0; | ||
+ | for i:=8 to 13 do | ||
+ | begin | ||
+ | j:=k+1; | ||
+ | while (j< | ||
+ | inc(j); | ||
+ | k:=j; | ||
+ | writeln(a[k].ora,' | ||
+ | end; | ||
+ | //4.feladat | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | if a[i].rendszam[1]=' | ||
+ | inc(kat[1]); | ||
+ | if a[i].rendszam[1]=' | ||
+ | inc(kat[2]); | ||
+ | if a[i].rendszam[1]=' | ||
+ | inc(kat[3]); | ||
+ | end; | ||
+ | writeln(' | ||
+ | ' egyeb: ', | ||
+ | //5.feladat | ||
+ | writeln(' | ||
+ | max:=0; | ||
+ | imax:=0; | ||
+ | for i:=1 to n-1 do | ||
+ | begin | ||
+ | kul: | ||
+ | | ||
+ | if kul>max then | ||
+ | begin | ||
+ | max:=kul; | ||
+ | imax:=i; | ||
+ | end; | ||
+ | end; | ||
+ | writeln(a[imax].ora,':', | ||
+ | a[imax+1].ora,':', | ||
+ | //6.feladat | ||
+ | writeln(' | ||
+ | write(' | ||
+ | readln(keres); | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | j:=1; | ||
+ | while (j< | ||
+ | j:=j+1; | ||
+ | if j>7 then writeln(a[i].rendszam); | ||
+ | end; | ||
+ | //7.feladat | ||
+ | writeln(' | ||
+ | assign(f,' | ||
+ | rewrite(f); | ||
+ | vizsgkezd: | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | if vizsgkezd+300< | ||
+ | | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | |||
+ | end; | ||
+ | close(f); | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||