A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
— |
inf-prog-fszi:expedicio [2017/06/19 09:42] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Expedíció ====== | ||
+ | |||
+ | <code pascal expedicio.pas> | ||
+ | program expedicio; | ||
+ | const n = 160; | ||
+ | type adas = record | ||
+ | | ||
+ | ado: byte; | ||
+ | | ||
+ | end; | ||
+ | var a: | ||
+ | h: | ||
+ | u: | ||
+ | adb, i, j, hetnapja, radioamator, | ||
+ | uzenet: | ||
+ | t: text; | ||
+ | function szame(szo: | ||
+ | var valasz: | ||
+ | begin | ||
+ | valasz: | ||
+ | for i:=1 to length(szo) do | ||
+ | if (szo[i]<' | ||
+ | szame: | ||
+ | end; | ||
+ | begin | ||
+ | //1. feladat | ||
+ | writeln(' | ||
+ | assign(t, ' | ||
+ | {$I-} | ||
+ | reset(t); | ||
+ | if IOResult<> | ||
+ | {$I+} | ||
+ | i:=1; | ||
+ | while not eof(t) do begin | ||
+ | with a[i] do begin | ||
+ | readln(t, hetnapja, ado); | ||
+ | readln(t, uzenet); | ||
+ | // | ||
+ | end; | ||
+ | inc(i); | ||
+ | end; | ||
+ | adb:=i-1; | ||
+ | writeln(' | ||
+ | close(t); | ||
+ | //2. feladat | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | //3. feladat | ||
+ | writeln(' | ||
+ | for i:=1 to adb do | ||
+ | if pos(' | ||
+ | writeln(a[i].hetnapja,', | ||
+ | writeln; | ||
+ | //4. feladat | ||
+ | writeln(' | ||
+ | for i:=1 to adb do | ||
+ | inc(h[a[i].hetnapja]); | ||
+ | for i:=1 to 11 do | ||
+ | write(h[i],' | ||
+ | writeln; | ||
+ | //5. feladat | ||
+ | writeln(' | ||
+ | for i:=1 to 11 do | ||
+ | u[i]: | ||
+ | for i:=1 to adb do | ||
+ | begin // | ||
+ | if length(u[a[i].hetnapja])=0 then //az elso uzenet bele van e toltve az uba | ||
+ | | ||
+ | else | ||
+ | begin | ||
+ | for j:=1 to 90 do | ||
+ | begin | ||
+ | if a[i].uzenet[j]<>'#' | ||
+ | begin | ||
+ | | ||
+ | end; {if} | ||
+ | end;{for} | ||
+ | |||
+ | end;{else} | ||
+ | |||
+ | end; {for} | ||
+ | |||
+ | for i:=1 to 11 do | ||
+ | writeln(i: | ||
+ | //6. feladat | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | //7. feladat | ||
+ | writeln(' | ||
+ | write(' | ||
+ | write(' | ||
+ | uzenet: | ||
+ | for i:=1 to adb do | ||
+ | begin | ||
+ | if (a[i].hetnapja=hetnapja)and(a[i].ado=radioamator) then | ||
+ | begin | ||
+ | uzenet: | ||
+ | break; | ||
+ | end; | ||
+ | end; | ||
+ | if uzenet = '' | ||
+ | writeln(' | ||
+ | else | ||
+ | begin | ||
+ | writeln(' | ||
+ | kifejlett: | ||
+ | // | ||
+ | writeln(' | ||
+ | kolykok: | ||
+ | writeln(' | ||
+ | if (szame(kifejlett) and szame(kolykok)) then | ||
+ | begin | ||
+ | val(kifejlett, | ||
+ | val(kolykok, | ||
+ | writeln(' | ||
+ | end | ||
+ | else | ||
+ | writeln(' | ||
+ | // | ||
+ | end; | ||
+ | readln; | ||
+ | end. | ||
+ | </ |