Wikipedija

Pascal (programski jezik) – razlika između verzija

Interaktivna pretraga historije
← Starija izmjenaNovija izmjena →
Uklonjeni sadržaj Dodani sadržaj
VizualnoWikitekst
m Formalne korekcije: 2 tipfelera
oznake: vizualno uređivanje mobilno uređivanje mobilno veb-uređivanje napredna mobilna izmjena
oznake: mobilno uređivanje mobilno veb-uređivanje napredna mobilna izmjena
Red 368:
function fib(n:integer): integer;
begin
if (n <= 2) then
fib := 1
else
fib := fib(n-1) + fib(n-2);
end;
 
var
i:integer;
 
begin
for i := 1 to 16 do
write(fib(i), ', ');
 
writeln('...');
end.
</source>
Red 394:
function fact(n: integer): real;
begin
if (n = 0) then
fact := 1
else
fact := n * fact(n - 1);
end;
 
var
n: integer;
 
begin
for n := 0 to 16 do
writeln(n, '! = ', fact(n):-1:0);
end.
</source>
Izvor: https://sh.wikipedia.org/wiki/Pascal_(programski_jezik)