Penulisan laporan pada praktikum kali ini bertujuan untuk
memeberitahukan kepada pembaca tentang fungsi dari rekursif serta cara
penggunaannya.
1.2 Deklarasi
PROCEDURE
judul (var : tipe data ; var : tipe data);
begin
if var > 1 then var_1(var-1,var);
writeln(var, var:5);
end;
begin
if var > 1 then var_1(var-1,var);
writeln(var, var:5);
end;
1.3
Sintaks
Sederhana
uses wincrt;
var x,i:integer; function fib(n:integer):integer; begin if(n=1)then fib:=0 else if (n=2)then fib:=1 else fib:=fib(n-1)+fib(n-2); end; begin write('masukan batas suku bilangan ke:'); readln(x); write('deret fibonacci:'); for i:=1 to x do write(fib(i),' '); end. |
Tidak ada komentar:
Posting Komentar
Berkomentarlah secara relevan sesuai topic yang di bahas..
Pengunjung yang super selalu meninggalkan jejak di komentar.