Első 10 darab páratlan szám kiíratása előltesztelő (while) ciklussal (Elso10ParatlanSzam.pas) program Elso10ParatlanSzam; uses crt; var i,n,a:integer; BEGIN n:=10; n = sorozatelemek száma i:=1; i = ciklusváltozó a:=1; a = kiirandó érték while(i<=n) do begin writeln(a); Kiírjuk az a változó aktuális értékét. a:=a+2; Megnöveljük az a változó értékét 2-vel, így a következő páratlan számot kapjuk. i:=i+1; end; END. Első n darab páratlan szám kiíratása előltesztelő (while) ciklussal (ElsoNParatlanSzam.pas)
program ElsoNParatlanSzam; uses crt; var i,a,n:integer; BEGIN write('n:='); Kiírjuk a képernyőre az "n:=" szöveget, így jelezvén, hogy számot kérünk be. readln(n); Beolvassuk a billentyűzetről az értéket, amely az ENTER billentyű lenyomása után kerül eltárolásra. Ezután ezzel az értékkel dolgozunk tovább a ciklusban. i:=1; a:=1; while(i<=n) do begin writeln(a); a:=a+2; i:=i+1; end; END. Első n darab páratlan szám kiíratása for ciklussal (ElsoNParatlanSzamV1.pas) program ElsoNParatlanSzamV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=1; for i:=1 to n do begin writeln(a); a:=a+2; end; END. Első n darab páratlan szám kiíratása hátultesztelő (repeat - until) ciklussal (ElsoNParatlanSzamV2.pas)
program ElsoNParatlanSzamV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; repeat writeln(a); a:=a+2; i:=i+1; until(i>n); END.