FPS reikia pagalbos

[Demon45]

Sveiki. Gal kas galite parašyti programą, kuri apskaičiuoja faktorialą su ciklu while. Ribose nuo 0 iki 20.

[linas_mif]

Sveiki. Gal kas galite parašyti programą, kuri apskaičiuoja faktorialą su ciklu while. Ribose nuo 0 iki 20.

nepamenu paskalio, bet su php butu
$i=1;
$fakt = 1;
while($i<=20)
{
$fakt = $fakt*$i;
$i++;
}
echo $fakt."<br/>";

i paskali manau pats issiversi.

[virusass]

Pilna visur parašyta būna

Papraščiausias gavimas panaudojant rekursyviają funkciją.

Code: Select all

function f(n:integer):longint; begin if n = 1 then f :=1 else f := n*f(n-1) end;

[Demon45]

Dėkui

[Demon45]

Tad iškilo problema su ciklu for. Kažko man tas ciklas nesisuka. Programą reik ant ryt padaryti. Žodžiu Petriukas taupo pinigus. Gauna n litų ir kasdien vis po 2 lt daugiau. Tai parašau sakinį, bet man ciklas nesisuka.

Jei gerai supratau tai prie skaičiaus reik pridėti 2 ir gaunu sumą antrą dieną. Tai čia kaip padaryti kad 30 dienų skaičiuotų. Antrą dieną pavyksta gauti. Tačiau jeigu prie tos sumos pridėsiu 2 ir gausiu trečią dieną jau bus be ciklo for. Reik su fps padaryti.

[virusass]

Galėjai geriau visą salygą nukopijuot, nes nelabai supratau

Mano versija :

Code: Select all

program pinigai; var n, {Suma gauta pirmąją dieną} viso, {Visa sutaupyta suma} i : integer; begin readLn(n); viso := n; for i := 2 to 30 do {Pradedam nuo 2, nes pirmąją dieną jau pridejom} begin n := n + 2; viso := viso + n; end; writeLn(viso); end.

Esmė yra, jei ką tai pasitaisyk arba klausk žinoma

[Demon45]

Viskas išėjo. Tereikėjo dar read from file and write to file va šitą pasirašyti. Šiap dar pats bandžiau kažkiek daryti