A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
— |
inf-prog-fszi:celloeveszet [2017/06/19 10:06] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Céllövészet ====== | ||
+ | |||
+ | <code pascal celloveszet.pas> | ||
+ | program celloveszet; | ||
+ | var i, | ||
+ | t:text; | ||
+ | sor: | ||
+ | lov: | ||
+ | // | ||
+ | function loertek(sor: | ||
+ | var aktpont, | ||
+ | begin | ||
+ | aktpont: | ||
+ | ertek:=0; | ||
+ | for i:=1 to length(sor) do | ||
+ | if (aktpont> | ||
+ | aktpont: | ||
+ | else | ||
+ | ertek: | ||
+ | loertek: | ||
+ | end; | ||
+ | |||
+ | begin | ||
+ | writeln(' | ||
+ | assign(t,' | ||
+ | reset(t); | ||
+ | readln(t, | ||
+ | i:=1; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | readln(t, | ||
+ | inc(i); | ||
+ | end; | ||
+ | close(t); | ||
+ | //n:=i-1; | ||
+ | writeln(' | ||
+ | //for i:=1 to n do | ||
+ | // writeln(lov[i]); | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | // hol van az elso + | ||
+ | k:=1; | ||
+ | while (k< | ||
+ | while (k< | ||
+ | inc(k); | ||
+ | if k< | ||
+ | begin | ||
+ | // | ||
+ | inc(k); | ||
+ | j:=1; | ||
+ | while (k< | ||
+ | begin | ||
+ | inc(k); | ||
+ | inc(j); | ||
+ | end; | ||
+ | if j>=2 then writeln(i,' | ||
+ | end; | ||
+ | end; | ||
+ | end; | ||
+ | writeln(' | ||
+ | max: | ||
+ | for i:=1 to n do | ||
+ | if max< | ||
+ | begin | ||
+ | max: | ||
+ | j:=i; | ||
+ | end; | ||
+ | writeln(j,' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | write(' | ||
+ | readln(be); | ||
+ | writeln(' | ||
+ | for i:=1 to length(lov[be])do | ||
+ | if lov[be][i]=' | ||
+ | writeln; | ||
+ | db:=0; | ||
+ | writeln(' | ||
+ | for i:=1 to length(lov[be])do | ||
+ | if lov[be][i]=' | ||
+ | writeln(db,' | ||
+ | writeln(' | ||
+ | for i: | ||
+ | begin | ||
+ | sor: | ||
+ | for j:=1 to i do | ||
+ | sor: | ||
+ | // | ||
+ | // | ||
+ | if pos(sor, | ||
+ | end; | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||