Ezt a programot hogyan kell megcsinálni free pascalban? Olyan programot kell írni, amely egy számtani sorozat elemeit írja ki, kérje be a sorozat első elemét, a növekményt, és azt hogy hány elemből áll.

Le kell ülni, végiggondolni az algoritmust, majd bepötyögni és tesztelni.

Hol akadtál el a folyamatban?

Ne várd, hogy bárki megírja helyetted a házidat :)

Egy számtani sorozatot legyeszerűbben tömbben tárolhatsz. Ezesetben az elemszám a tömb méretét fogja jelenteni. A sorozat első eleme a tömb 0. helyére kerül, majd a tömbön végigiterálva feltöltöd a hátralevő értékeket úgy, hogy minden N -edik érték az előző érték és a növekmény értéke legyen. (values[i] := values[i - 1] + increment)

Ha ezzel megvagy, egy másik programrész végigitelrálva a tömbön kiír minden egyes értéket.

A fentieket egyetlen iterációban is végre lehet hajtani, ezesetben tömbbe való berámolás helyett kell egyszerűen kiírni az aktuális értéket, azonban ez durva szakbarbárságra vallana.

program sorozat;

var i, indulo, novekmeny, elemszam : integer;

begin

Write('Induló érték: ');

ReadLn(indulo);

Write('Növekmény: ');

ReadLn(novekmeny);

Write('Elemszám: ');

ReadLn(elemszam);

for i:=1 to elemszam do

begin

Write(indulo,' ');

indulo:=indulo+novekmeny;

end;

WriteLn;

Write('Nyomj Entert a kilépéshez !');

ReadLn;

end.