A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
— |
inf-prog-fszi:oetszaz [2017/06/19 09:49] (aktuális) beistvan létrehozva |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Ötszáz ====== | ||
+ | <code pascal otszaz.pas> | ||
+ | |||
+ | Program otszaz; | ||
+ | Const nmax = 1000; | ||
+ | mmax = 20; | ||
+ | //6. feladat | ||
+ | function ertek(darabszam: | ||
+ | var i, osszeg: integer; | ||
+ | Begin | ||
+ | osszeg:=0; | ||
+ | If darabszam> | ||
+ | For i:=1 to darabszam do | ||
+ | case i of | ||
+ | 1: osszeg: | ||
+ | 2: osszeg: | ||
+ | else | ||
+ | osszeg: | ||
+ | End; | ||
+ | ertek: | ||
+ | End; | ||
+ | Var t: text; | ||
+ | n, fiz, elsodb, vassorszam, vasdb, i, f, fu, arudb, | ||
+ | m, j, fsora, fdb, fkezd, sum, k: integer; | ||
+ | vasnev: string; | ||
+ | a: array [1..nmax] of string[20]; | ||
+ | aru: array [1..mmax] of record nev: string[20]; db:byte; end; | ||
+ | procedure lista(fsorszam: | ||
+ | Begin | ||
+ | fsora:=0; | ||
+ | fkezd:=0; | ||
+ | fdb:=0; | ||
+ | i:=1; | ||
+ | While (i<=n) and (fdb<> | ||
+ | Begin | ||
+ | If a[i]=' | ||
+ | Begin | ||
+ | fkezd: | ||
+ | fsora:=i; | ||
+ | inc(fdb); | ||
+ | End; | ||
+ | inc(i); | ||
+ | End; | ||
+ | If fsora=1 then fkezd:=1; | ||
+ | // | ||
+ | m:=0; | ||
+ | For i:=fkezd to fsora do | ||
+ | Begin | ||
+ | j:=1; | ||
+ | While (j<=m) and (aru[j].nev<> | ||
+ | inc(j); | ||
+ | If j>m then | ||
+ | Begin | ||
+ | inc(m); | ||
+ | aru[m].nev: | ||
+ | aru[m].db: | ||
+ | End else | ||
+ | inc(aru[j].db); | ||
+ | End; | ||
+ | End; | ||
+ | |||
+ | Begin | ||
+ | // 1. feladat | ||
+ | Assign(t, ' | ||
+ | Reset(t); | ||
+ | Writeln(' | ||
+ | // 2. feladat | ||
+ | Writeln(' | ||
+ | n:=0; | ||
+ | fiz:=0; | ||
+ | While not eof(t) do | ||
+ | Begin | ||
+ | n:=n+1; | ||
+ | Readln(t, | ||
+ | If a[n]=' | ||
+ | End; | ||
+ | Close(t); | ||
+ | // | ||
+ | Writeln(' | ||
+ | // 3. feladat | ||
+ | Writeln(' | ||
+ | elsodb:=0; | ||
+ | While (elsodb< | ||
+ | elsodb: | ||
+ | Writeln(' | ||
+ | // 4. feladat | ||
+ | Writeln(' | ||
+ | Write(' | ||
+ | Readln(vassorszam); | ||
+ | Write(' | ||
+ | Readln(vasnev); | ||
+ | Write(' | ||
+ | Readln(vasdb); | ||
+ | // 5. feladat | ||
+ | Writeln(' | ||
+ | //a. feladat | ||
+ | i:=1; | ||
+ | f:=1; | ||
+ | While a[i]<> | ||
+ | Begin | ||
+ | inc(i); | ||
+ | If a[i]=' | ||
+ | inc(f); | ||
+ | End; | ||
+ | Writeln(' | ||
+ | f:=1; | ||
+ | fu:=1; | ||
+ | arudb:=0; | ||
+ | For i:=1 to n do | ||
+ | Begin | ||
+ | If (a[i]=vasnev)and(fu<> | ||
+ | Begin | ||
+ | inc(arudb); | ||
+ | fu:=f; | ||
+ | End; | ||
+ | If a[i]=' | ||
+ | inc(f); | ||
+ | End; | ||
+ | Writeln(' | ||
+ | //b. feladat | ||
+ | Writeln(arudb, | ||
+ | |||
+ | // 6. feladat | ||
+ | // | ||
+ | |||
+ | Writeln(vasdb, | ||
+ | // 7. feladat | ||
+ | Writeln(' | ||
+ | lista(vassorszam); | ||
+ | For i:=1 to m do | ||
+ | If aru[i].nev<>' | ||
+ | Writeln(aru[i].db, | ||
+ | // 8. feladat | ||
+ | //1-nel nem mukszik | ||
+ | Writeln(' | ||
+ | Assign(t, ' | ||
+ | Rewrite(t); | ||
+ | For k:=1 to fiz do | ||
+ | Begin | ||
+ | lista(k); | ||
+ | sum:=0; | ||
+ | For i:=1 to m do | ||
+ | If aru[i].nev<>' | ||
+ | sum: | ||
+ | // For i:=1 to m do | ||
+ | //If aru[i].nev<>' | ||
+ | // Writeln(aru[i].db, | ||
+ | Writeln(t, | ||
+ | Writeln(k,': | ||
+ | End; | ||
+ | Close(t); | ||
+ | | ||
+ | End. | ||
+ | |||
+ | </ |