Silnia
Program oblicza silnię dowolnej liczby naturalnej n (w praktyce dowolność ta ograniczona jest zakresem danych typu integer).
Pascal
program silnia;
uses crt;
var a:byte;
function silnia(n:byte):longint;
begin
if n=0 then silnia:=1
else silnia:=silnia(n-1)*n;
end;
begin
clrscr;
write('Podaj liczbe: ');
readln(a);
silnia(a);
write('Silnia tej liczby to ',silnia(a));
readln;
end.
Język asemblera maszyny W
inix
pob n
ład l
som błąd
pob st1
dns
pob l
pyntla: ode st1
som zero
ład t
pob l
dns
sdp mno
pob t
ład l
sob pyntla
zero : pzs
ład wynik
sob koniec
błąd: pob st0
ład wynik
sob koniec
koniec : stop
Podobne strony
Podobne Strony • Szyfr Cezara • Sortowanie Przez Kopcowanie • Sortowanie Babelkowe • Rok Przestepny • wyswietlanie liczby calkowitej metodą odejmowania poteg • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Nww • Metoda Babelkowa • Fibonacci
wersja strony: 9, ostatnia edycja: 20 Jul 2009 17:17