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 | |||
inf-genius-2020:inf-genius-2020 [2020/12/12 09:04] beistvan |
inf-genius-2020:inf-genius-2020 [2020/12/12 12:34] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | Adatforrás: | ||
+ | Táblázatkezelés: | ||
+ | Körlevél: {{ : | ||
+ | ====== Genius informatika, | ||
+ | |||
+ | 1. program | ||
+ | <code pascal hello.pas> | ||
+ | |||
+ | program hello; | ||
+ | begin | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | 2. program | ||
+ | <code pascal atlag.pas> | ||
+ | |||
+ | program atlag; | ||
+ | const N = 5; H = 3; | ||
+ | var a: array[1..N] of integer; | ||
+ | i, osszeg, hnal_nagyobb_db: | ||
+ | begin | ||
+ | osszeg := 0; hnal_nagyobb_db := 0; | ||
+ | writeln(' | ||
+ | for i := 1 to N do | ||
+ | begin | ||
+ | write(' | ||
+ | osszeg := osszeg + a[i]; | ||
+ | if a[i] > H then | ||
+ | hnal_nagyobb_db := hnal_nagyobb_db + 1; | ||
+ | end; | ||
+ | write(' | ||
+ | for i := 1 to n do | ||
+ | write(a[i],' | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | 3. program | ||
+ | <code pascal fajlok.pas> | ||
+ | |||
+ | program fajlok; | ||
+ | const N = 5; | ||
+ | var t:text; i, szam, osszeg, db:integer; | ||
+ | begin | ||
+ | randomize; | ||
+ | assign(t, ' | ||
+ | rewrite(t); | ||
+ | for i := 1 to N do | ||
+ | begin | ||
+ | writeln(t, random(10)); | ||
+ | end; | ||
+ | reset(t); | ||
+ | db := 0; osszeg := 0; | ||
+ | while not(eof(t)) do | ||
+ | begin | ||
+ | readln(t, szam); | ||
+ | write(szam, ' '); | ||
+ | osszeg := osszeg + szam; | ||
+ | db := db + 1; | ||
+ | end; | ||
+ | writeln; | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | close(t); | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | |||
+ | 4. program | ||
+ | <code pascal prog3_20.pas> | ||
+ | program prog3_20; | ||
+ | var i: integer; | ||
+ | begin | ||
+ | for i:=1 to 5 do | ||
+ | begin | ||
+ | if i > 3 then | ||
+ | break; | ||
+ | writeln(' | ||
+ | end; | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ | ||
+ | |||
+ | 5.1. program | ||
+ | |||
+ | <code pascal bevasarlas1.pas> | ||
+ | program bevasarlas; | ||
+ | const ARUSZAM = 5; | ||
+ | type arucikk = record | ||
+ | arunev: string[20]; | ||
+ | ar: integer; | ||
+ | end; | ||
+ | var | ||
+ | bevasarlokosar: | ||
+ | szamlalo: integer; | ||
+ | begin | ||
+ | Writeln(' | ||
+ | Writeln(' | ||
+ | for szamlalo:=1 to ARUSZAM do | ||
+ | begin | ||
+ | write(' | ||
+ | write(' | ||
+ | end; | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | 5.2. program | ||
+ | <code pascal bevasarlas2.pas> | ||
+ | program bevasarlas; | ||
+ | const ARUSZAM = 5; | ||
+ | type arucikk = record | ||
+ | arunev: string[20]; | ||
+ | ar: integer; | ||
+ | end; | ||
+ | var | ||
+ | bevasarlokosar: | ||
+ | szamlalo, arkorlat, vegosszeg: integer; | ||
+ | begin | ||
+ | Writeln(' | ||
+ | Writeln(' | ||
+ | for szamlalo := 1 to ARUSZAM do | ||
+ | begin | ||
+ | write(' | ||
+ | if bevasarlokosar[szamlalo].arunev = '' | ||
+ | write(' | ||
+ | end; | ||
+ | Writeln(' | ||
+ | Readln(arkorlat); | ||
+ | Writeln(' | ||
+ | vegosszeg := 0; | ||
+ | for szamlalo := 1 to ARUSZAM do | ||
+ | begin | ||
+ | if bevasarlokosar[szamlalo].ar <= arkorlat then | ||
+ | vegosszeg := vegosszeg + bevasarlokosar[szamlalo].ar; | ||
+ | end; | ||
+ | Writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ |