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-2017:inf-prog-genius-2017 [2017/10/21 11:32] beistvan |
inf-prog-genius-2017:inf-prog-genius-2017 [2017/10/21 11:34] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Genius informatika, | ||
+ | |||
+ | <code pascal elso.pas> | ||
+ | |||
+ | program elso; | ||
+ | var | ||
+ | tomb: array [1..10] of integer; | ||
+ | i, osszeg, szorzat, beolvasott: integer; | ||
+ | t: text; | ||
+ | begin | ||
+ | randomize; | ||
+ | writeln(' | ||
+ | (*assign(t, ' | ||
+ | rewrite(t); | ||
+ | for i:=1 to 10 do | ||
+ | begin | ||
+ | tomb[i]: | ||
+ | write(tomb[i]: | ||
+ | writeln(t, tomb[i]); | ||
+ | end; | ||
+ | close(t);*) | ||
+ | //az állomány elemeinek összege és szorzata | ||
+ | assign(t, ' | ||
+ | reset(t); | ||
+ | osszeg:=0; | ||
+ | szorzat:=1; | ||
+ | while not eof(t) do | ||
+ | begin | ||
+ | readln(t, beolvasott); | ||
+ | if beolvasott <> 0 then | ||
+ | szorzat: | ||
+ | osszeg: | ||
+ | end; | ||
+ | close(t); | ||
+ | writeln(' | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | <code txt adat.txt> | ||
+ | 0 | ||
+ | 9 | ||
+ | 5 | ||
+ | 7 | ||
+ | 9 | ||
+ | 2 | ||
+ | 5 | ||
+ | 3 | ||
+ | 0 | ||
+ | 7 | ||
+ | </ | ||
+ | |||
+ | |||
+ | **Eredmény: | ||
+ | |||
+ | |||
+ | >> Hello! | ||
+ | >> A file elemeinek osszege: | ||
+ | >> A file elemeinek szorzata: 595350 |