[Turbo Pascal] Silnia.

Main Page -> Forum Index -> Programming Generally -> [Turbo Pascal] Silnia.

Author

Message

Tomaszow
Poziom 2

Joined: 13 Apr 2004
Posts: 2

13 Apr 2004 21:59

[Turbo Pascal] Silnia.

Nie mam pojęcia jak zrobić program podający silnię danej liczby w Turbo Pascalu. Proszę o pomoc.

Zamykam. - arnoldziq

Google

Google Adsense

13 Apr 2004 21:59

elektryk
Poziom 26

Joined: 25 Apr 2002
Posts: 11092

#2 13 Apr 2004 22:26

Re: Silnia w Turbo Pascalu

Możesz zrobić na dwa sposoby rekurencyjnie albo w pętli, oba wg wzoruk książkowego.

Google

Google Adsense

# 13 Apr 2004 22:26

Leap
Poziom 16

Joined: 28 May 2003
Posts: 306
Location: Morąg

#3 13 Apr 2004 22:49

Re: Silnia w Turbo Pascalu

uses crt;
var wynik:integer;
x,y:integer;
begin
wynik:=1;
write('Podaj z jakiej liczby silnia ? :');
readln(x);
for y:=1 to x do wynik:=wynik*y;
writeln('Silnia tej liczby to :',wynik);
end.

moze bedzie trzeba wziasc wynik innego typu zmiennych gdy silnia bedzie za duza.

Google

Google Adsense

# 13 Apr 2004 22:49

jiwaniuk
Poziom 20

Joined: 14 Dec 2002
Posts: 1085
Location: Gdynia

#4 13 Apr 2004 22:59

Re: Silnia w Turbo Pascalu

Oto przykład funkcji obliczającej silnię:

FUNCTION silnia(n: integer): integer;
BEGIN
IF n = 0 THEN silnia := 1
ELSE silnia := n*silnia(n - 1)
END;
Pozdrawiam wszystkich

jjanek

Tomaszow
Poziom 2

Joined: 13 Apr 2004
Posts: 2

14 Apr 2004 18:40

Silnia w Turbo Pascalu

thx

Main Page -> Forum Index -> Programming Generally -> [Turbo Pascal] Silnia.

Page 1 of 1

Page generation time: 0.105 seconds

FAQ || Administrator || Moderators || Widgets and banners || Contact