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-prog-fszi:szorzas_tetele [2017/06/20 11:38] beistvan |
inf-prog-fszi:szorzas_tetele [2017/06/21 12:34] (aktuális) beistvan |
||
---|---|---|---|
Sor 1: | Sor 1: | ||
+ | ====== Szorzás tétele ====== | ||
+ | |||
+ | Adott egy N elemű számsorozat: | ||
+ | |||
+ | <code bash szorzat.txt> | ||
+ | Eljárás: | ||
+ | P := 1 | ||
+ | Ciklus I = 1-től N-ig | ||
+ | P := P * A(I) | ||
+ | Ciklus vége | ||
+ | Eljárás vége. | ||
+ | </ | ||
+ | |||
+ | Pascal forráskód | ||
+ | |||
+ | <code pascal szorzat.pas> | ||
+ | program szorzat; | ||
+ | var a:array [1..10] of integer; | ||
+ | i: integer; | ||
+ | prod: longword; | ||
+ | begin | ||
+ | randomize; | ||
+ | prod:=1; | ||
+ | for i:=1 to 10 do | ||
+ | begin | ||
+ | a[i]: | ||
+ | writeln(' | ||
+ | prod: | ||
+ | end; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | Órai gyakorlat | ||
+ | |||
+ | <code pascal szorzas.pas> | ||
+ | program szorzas; | ||
+ | const n=8; | ||
+ | var i, p: integer; | ||
+ | a: array [1..n] of integer; | ||
+ | begin | ||
+ | p:=1; | ||
+ | for i:= 1 to n do | ||
+ | begin | ||
+ | write(' | ||
+ | p:=p*a[i]; | ||
+ | end; | ||
+ | writeln(' | ||
+ | readln; | ||
+ | end. | ||
+ | </ |