A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
— |
inf-prog-fszi:szamok [2017/06/19 10:26] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Számok ====== | ||
+ | |||
+ | <code pascal szamok.pas> | ||
+ | program szamok; | ||
+ | type fajl=record | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | var | ||
+ | a: | ||
+ | b, | ||
+ | x: | ||
+ | i, | ||
+ | egy, | ||
+ | kerdes: | ||
+ | valasz: | ||
+ | pont:byte; | ||
+ | f:text; | ||
+ | ch:char; | ||
+ | vel:word; | ||
+ | // | ||
+ | Begin | ||
+ | //1 | ||
+ | | ||
+ | | ||
+ | | ||
+ | i:=0; | ||
+ | while not eof(f) do | ||
+ | begin | ||
+ | inc(i); | ||
+ | readln(f, | ||
+ | read(f, | ||
+ | read(f, | ||
+ | read(f,ch); | ||
+ | readln(f, | ||
+ | end; | ||
+ | n:=i; | ||
+ | writeln(' | ||
+ | //2 | ||
+ | | ||
+ | | ||
+ | //3 | ||
+ | | ||
+ | m:=0; egy: | ||
+ | For i:=1 to n do | ||
+ | if a[i].t=' | ||
+ | begin | ||
+ | | ||
+ | if a[i].p=1 then inc(egy); | ||
+ | if a[i].p=2 then inc(ketto); | ||
+ | if a[i].p=3 then inc(harom); | ||
+ | end; | ||
+ | | ||
+ | ' | ||
+ | //4 | ||
+ | | ||
+ | | ||
+ | | ||
+ | for i:=1 to n do | ||
+ | if a[i].v> | ||
+ | if a[i].v< | ||
+ | | ||
+ | //5 | ||
+ | Writeln(' | ||
+ | for i:=1 to n do | ||
+ | b[i]: | ||
+ | for i:=1 to n-1 do | ||
+ | for j:=i+1 to n do | ||
+ | if b[i]=b[j] then b[j]: | ||
+ | j:=0; | ||
+ | for i:=1 to n do | ||
+ | if b[i]<>'' | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | For i:=1 to j do | ||
+ | writeln(c[i]); | ||
+ | writeln(' | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | until a[vel].t=kerdes; | ||
+ | // | ||
+ | | ||
+ | | ||
+ | if a[vel].v=valasz then | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | for i:=1 to n do | ||
+ | x[i]:=i; | ||
+ | for i:=1 to n do | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | | ||
+ | | ||
+ | | ||
+ | for i:=1 to 10 do | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | end; | ||
+ | | ||
+ | | ||
+ | | ||
+ | |||
+ | |||
+ | |||
+ | readln; | ||
+ | end. | ||
+ | </ | ||