A kiválasztott változat és az aktuális verzió közötti különbségek a következők.
Előző változat mindkét oldalon Előző változat Következő változat | Előző változat | ||
inf-prog-genius-2018:inf-prog-genius-2018 [2018/10/20 09:01] beistvan |
inf-prog-genius-2018:inf-prog-genius-2018 [2018/12/01 10:52] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Genius informatika, | ||
+ | 1. program | ||
+ | <code pascal osszead1.pas> | ||
+ | program osszead1; | ||
+ | begin | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | 2. program | ||
+ | <code pascal osszead2.pas> | ||
+ | program osszead2; | ||
+ | var a, | ||
+ | begin | ||
+ | a:=1; | ||
+ | b:=-3; | ||
+ | c:=5; | ||
+ | d:=2; | ||
+ | e:=-5; | ||
+ | eredmeny:= a+b+c+d+e; | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | 3. program | ||
+ | <code pascal osszead3.pas> | ||
+ | program osszead3; | ||
+ | const n = 5; | ||
+ | tomb: array[1..n] of integer = (1, | ||
+ | var eredmeny, i: integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | eredmeny := 0; | ||
+ | for i := 1 to n do | ||
+ | eredmeny := eredmeny + tomb[i]; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | 4. program | ||
+ | <code pascal osszead4.pas> | ||
+ | program osszead4; | ||
+ | var fajl: text; | ||
+ | szam, eredmeny: integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | assign(fajl, | ||
+ | {$I-} | ||
+ | reset(fajl); | ||
+ | {$I+} | ||
+ | if IOResult<> | ||
+ | begin | ||
+ | | ||
+ | exit; //kilepes a programbol | ||
+ | end; | ||
+ | eredmeny := 0; | ||
+ | while not eof(fajl) do | ||
+ | begin | ||
+ | readln(fajl, | ||
+ | // | ||
+ | eredmeny := eredmeny + szam; | ||
+ | end; | ||
+ | writeln(' | ||
+ | close(fajl); | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | A 4. programhoz szükséges szöveges állomány. | ||
+ | <code text szamok.txt> | ||
+ | 1 | ||
+ | -3 | ||
+ | 5 | ||
+ | 2 | ||
+ | -5 | ||
+ | </ | ||
+ | |||
+ | 5. program | ||
+ | <code pascal osszead5.pas> | ||
+ | program osszead5; | ||
+ | var fajl: text; | ||
+ | szam, eredmeny: integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | assign(fajl, | ||
+ | {$I-} | ||
+ | reset(fajl); | ||
+ | {$I+} | ||
+ | if IOResult<> | ||
+ | begin | ||
+ | | ||
+ | exit; //kilepes a programbol | ||
+ | end; | ||
+ | eredmeny := 0; | ||
+ | while not eof(fajl) do | ||
+ | begin | ||
+ | readln(fajl, | ||
+ | // | ||
+ | if (szam mod 2 = 1) and (szam > 0) then | ||
+ | eredmeny := eredmeny + szam; | ||
+ | end; | ||
+ | writeln(' | ||
+ | close(fajl); | ||
+ | assign(fajl, | ||
+ | rewrite(fajl); | ||
+ | writeln(fajl, | ||
+ | close(fajl); | ||
+ | wrtieln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | ===2. rész=== | ||
+ | 6. program | ||
+ | ==Lineáris keresés== | ||
+ | <code pascal kereses.pas> | ||
+ | program kereses; | ||
+ | const n = 10; | ||
+ | tomb: array [1..n] of integer = (-2, 3, 8, 0, 9, 6, 7, 1, -3, 5); | ||
+ | var i, keresendo: integer; | ||
+ | begin | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | for i:=1 to n do | ||
+ | write(tomb[i]: | ||
+ | writeln; | ||
+ | //Keressük meg a 8-as elem sorszámát! | ||
+ | keresendo: | ||
+ | i:=1; | ||
+ | while (i <= n) and (tomb[i] <> keresendo) do | ||
+ | inc(i); | ||
+ | if i <= n then | ||
+ | writeln(' | ||
+ | else | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | |||
+ | ===3. rész=== | ||
+ | 7. program | ||
+ | ==Fkeres megvalósítása== | ||
+ | <code pascal fkereses.pas> | ||
+ | program fkeres; | ||
+ | uses sysutils; | ||
+ | const n = 100; | ||
+ | type adattipus = record a: integer; s: string; end; | ||
+ | var t:text; s:string; a, | ||
+ | tomb: array[1..n] of adattipus; | ||
+ | begin | ||
+ | | ||
+ | | ||
+ | i:=1; | ||
+ | while not eof(t) do begin | ||
+ | | ||
+ | | ||
+ | | ||
+ | // | ||
+ | | ||
+ | end; | ||
+ | db := i - 1; | ||
+ | keres := 10; | ||
+ | i := 1; | ||
+ | | ||
+ | | ||
+ | if i <= db then | ||
+ | | ||
+ | | ||
+ | | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | A 7. programhoz szükséges szöveges állomány. | ||
+ | <code text adatok.txt> | ||
+ | 2 januar | ||
+ | 4 februar | ||
+ | 6 marcius | ||
+ | 8 aprilis | ||
+ | 10 majus | ||
+ | 12 junius | ||
+ | 14 julius | ||
+ | 16 augusztus | ||
+ | 18 szeptember | ||
+ | 20 oktober | ||
+ | 22 november | ||
+ | 24 december | ||
+ | </ |