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-fszi:oesszegzes_tetele [2017/06/20 11:37] beistvan |
inf-prog-fszi:oesszegzes_tetele [2017/06/22 04:44] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Összegzés tétele ====== | ||
+ | |||
+ | Adott egy N elemű számsorozat: | ||
+ | |||
+ | <code bash osszeg.txt> | ||
+ | Eljárás: | ||
+ | S := 0 | ||
+ | Ciklus I = 1-től N-ig | ||
+ | S := S + A(I) | ||
+ | Ciklus vége | ||
+ | Eljárás vége. | ||
+ | </ | ||
+ | |||
+ | Pascal forráskód | ||
+ | |||
+ | <code pascal osszeg.pas> | ||
+ | program osszeg; | ||
+ | var a:array [1..10] of integer; | ||
+ | i, | ||
+ | begin | ||
+ | sum:=0; | ||
+ | for i:=1 to 10 do | ||
+ | begin | ||
+ | a[i]: | ||
+ | writeln(' | ||
+ | sum: | ||
+ | end; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | |||
+ | Órai gyakorlat | ||
+ | <code pascal osszegzes.pas> | ||
+ | program osszegzes; | ||
+ | const n=8; | ||
+ | var i, s: integer; | ||
+ | a: array [1..n] of integer; | ||
+ | begin | ||
+ | s:=0; | ||
+ | for i:= 1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | s:=s+a[i]; | ||
+ | end; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | |||
+ | </ |