drewniak89
06-10-07, 22:52
Witam!
Chcia³em napisaæ sobie programik, który bêdzie mi liczy³ wk³ad (w bukmacherce :D), ale gdzie¶ siê chyba pomyli³em, bo ¼le mi liczy od 5 poziomu...
Nie chce mi siê szczegó³owo t³uaczyæ o co chodzi, ale ma liczyæ kolejne liczby ci±gu.
Np.: zaczynaj±c od 1: 1, 3, 7, 15, 31;
zaczynaj±c od 2: 2, 6, 14, 30, 62;
zaczynaj±c od 3: 3, 9, 27, 81, 273; itd...
Jak przeczytacie kod(?) programu, to rozkminicie o co chodzi.
Z góry dziêkujê za wskazanie b³êdu, b±d¼ 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.
Chcia³em napisaæ sobie programik, który bêdzie mi liczy³ wk³ad (w bukmacherce :D), ale gdzie¶ siê chyba pomyli³em, bo ¼le mi liczy od 5 poziomu...
Nie chce mi siê szczegó³owo t³uaczyæ o co chodzi, ale ma liczyæ kolejne liczby ci±gu.
Np.: zaczynaj±c od 1: 1, 3, 7, 15, 31;
zaczynaj±c od 2: 2, 6, 14, 30, 62;
zaczynaj±c od 3: 3, 9, 27, 81, 273; itd...
Jak przeczytacie kod(?) programu, to rozkminicie o co chodzi.
Z góry dziêkujê za wskazanie b³êdu, b±d¼ 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.