Program Faktorial dengan Fungsi secara Rekursi

{program faktorial menghitung n! dengan fungsi secara rekursi}
uses wincrt;
function faktorial(n:byte):longint;
begin
if n<=1 then
faktorial:=1
else
faktorial:=n*faktorial(n-1);
end;

var
n:byte;
begin
write ('berapa faktorial? ');readln(n);
writeln ('faktorial= ', faktorial(n));
end.

Program Faktorial dengan Rekursi

uses wincrt;
procedure faktorial(n : byte; var hasil:longint);
begin
if n<=1 then
hasil:=1
else
begin
faktorial(n-1,hasil);
hasil:=n*hasil;
end;
end;

var
n:byte;
f:longint;
begin
write ('berapa faktorial? ');readln (n);
faktorial (n,f);
writeln ('faktorial= ',f);
end.

Pemrograman Komputer 1

Program luas_persegi_panjang;
uses wincrt;
var p,l:integer;
A:real;
begin
write ('masukkan nilai p= ');readln(p);
write ('masukkan nilai l= ');readln(l);
A:=p*l;
writeln (p,'*',l,'=',A:6:2);
end.

Pemrograman Komputer 1

program pembagian ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a/b;
writeln(a,'/',b,'=',c:5:2);
end.

Pemrograman komputer 1

program perkalian ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a*b;
writeln(a,'*',b,'=',c:5:2);
end.

Pemrograman komputer 1

program pengurangan ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a-b;
writeln(a,'-',b,'=',c:5:2);
end.

Pemrograman Komputer 1

program penjumlahan ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan niali b= ');readln (b);
c:=a+b;
writeln(a,'+',b,'=',c:5:2);
end.