PDA

Zobacz pełną wersję : [Turbo Pascal] gdzie błąd?



drewniak89
06-10-07, 22:52
Witam!
Chciaem napisa sobie programik, ktry bdzie mi liczy wkad (w bukmacherce :D), ale gdzie si chyba pomyliem, bo le mi liczy od 5 poziomu...
Nie chce mi si szczegowo tuaczy o co chodzi, ale ma liczy kolejne liczby cigu.
Np.: zaczynajc od 1: 1, 3, 7, 15, 31;
zaczynajc od 2: 2, 6, 14, 30, 62;
zaczynajc od 3: 3, 9, 27, 81, 273; itd...
Jak przeczytacie kod(?) programu, to rozkminicie o co chodzi.

Z gry dzikuj za wskazanie bdu, bd propozycj, jak to zrobi.

Kod programu:

PROGRAM progresja;
var i , x , poziom :integer;

BEGIN

Write ('Podaj stawke poczatkowa: ');
Readln (x);
Write ('Podaj poziom: ');
Readln (poziom);
FOR i:=2 TO poziom DO x:= (2*x)+x;
Writeln;
Writeln ('Wklad: ',x);
readln;

END.