Alternáló sorozat, előltesztelő (while) ciklussal (Alternalo.pas) program Alternalo; uses crt; var i,a,s,x,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; s:=-1; Ezzel a változóval módosítjuk az érték előjelét. x:=1; x = változó növekmény while(i<=n) do begin writeln(a); x:=x+2; A növekményt növeljük 2-vel. Ez az előjelváltáshoz szükséges összeadás miatt kell. a:=a+s*x; A sorozatelem aktuális értékéhez hozzáadjuk a változó előjelű növekményt. s:=s*(-1); Megváltoztatjuk az s változó előjelét. i:=i+1; end; END. Alternáló sorozat, for ciklussal (AlternaloV1.pas) program AlternaloV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=1; s:=-1; x:=1; for i:=1 to n do begin writeln(a); x:=x+2; a:=a+s*x; s:=s*(-1); end; END. Alternáló sorozat, hátultesztelő (repeat - until) ciklussal (AlternaloV2.pas) program AlternaloV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; s:=-1; x:=1; repeat writeln(a); x:=x+2; a:=a+s*x; s:=s*(-1); i:=i+1; until(i>n); END.