A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
inf-prog-fszi:utepites [2017/06/19 10:31] beistvan létrehozva |
inf-prog-fszi:utepites [2017/06/19 10:31] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Útépítés ====== | ||
+ | <code pascal utepites.pas> | ||
+ | program utepites; | ||
+ | type jarmuv=record | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | var i, | ||
+ | t:text; | ||
+ | k:char; | ||
+ | cs:jarmuv; | ||
+ | a: | ||
+ | mas: | ||
+ | ora: | ||
+ | begin | ||
+ | |||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | readln(t, | ||
+ | for i:=1 to n do | ||
+ | readln(t, | ||
+ | close(t); | ||
+ | writeln(' | ||
+ | writeln(n,' | ||
+ | writeln(' | ||
+ | write(' | ||
+ | readln(x); | ||
+ | if a[x].varos=' | ||
+ | else writeln(' | ||
+ | writeln(' | ||
+ | j:=1; | ||
+ | for i:=1 to n do | ||
+ | if a[i].varos=' | ||
+ | begin | ||
+ | mas[j]: | ||
+ | inc(j); | ||
+ | end; | ||
+ | i:=1; | ||
+ | while mas[i].o<> | ||
+ | inc(i); | ||
+ | c:=i-1; | ||
+ | writeln(' | ||
+ | (mas[c].o-mas[c-1].o)+((mas[c].p-mas[c-1].p)*60)+(mas[c].m-mas[c-1].m),' | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | if a[i].varos=' | ||
+ | inc(ora[a[i].o].a) | ||
+ | else | ||
+ | inc(ora[a[i].o].f); | ||
+ | for i:=7 to 16 do | ||
+ | writeln(i: | ||
+ | writeln(' | ||
+ | mas:=a; | ||
+ | for i:=1 to n-1 do | ||
+ | for j:=1 to i-j do | ||
+ | if mas[j].ut> | ||
+ | begin | ||
+ | cs:=mas[j]; | ||
+ | mas[j]: | ||
+ | mas[j+1]: | ||
+ | end; | ||
+ | //for i:=1 to 20 do | ||
+ | // writeln(mas[i].o: | ||
+ | akt:=0; | ||
+ | j:=1; | ||
+ | i:=1; | ||
+ | while (j<=10) do | ||
+ | begin | ||
+ | if mas[i].ut<> | ||
+ | begin | ||
+ | write(mas[i].o: | ||
+ | if mas[i].varos=' | ||
+ | else writeln(' | ||
+ | akt: | ||
+ | inc(j); | ||
+ | end; | ||
+ | inc(i); | ||
+ | end; | ||
+ | writeln(' | ||
+ | j:=0; | ||
+ | for i:=1 to n do | ||
+ | if a[i].varos=' | ||
+ | begin | ||
+ | inc(j); | ||
+ | mas[j]: | ||
+ | end; | ||
+ | n:=j; | ||
+ | //for i:=1 to n do | ||
+ | // writeln(mas[i].o: | ||
+ | writeln(' | ||
+ | akt:=0; | ||
+ | elozo:=0; | ||
+ | assign(t,' | ||
+ | rewrite(t); | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | akt: | ||
+ | if elozo> | ||
+ | //o=div3600 p=(p+m=mod3600)div60 m=(p+m=mod3600)mod60 | ||
+ | writeln(t, | ||
+ | elozo:=akt; | ||
+ | end; | ||
+ | close(t); | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ |