func_faktorial

program m9c3;
uses wincrt;
function faktorial (nilai : integer) :real;
begin
if nilai = 0 then
faktorial := 1
else
faktorial := nilai * faktorial (nilai - 1);
end;

var
N : integer ;
begin
write ('berapakah faktorial ? ');
readln (n);
writeln (n, 'faktorial = ', faktorial (n):9:0);
end.

func_pangkat

program m8c2;
uses wincrt;
function pangkati (x: real; y:integer): real;
var
pangkat : real;
i : integer;
begin
pangkat := 1;
for i := 1 to y do;
pangkat := pangkat * x;
pangkati := pangkat;
end;
var
a : real;
b: integer;
begin
write ('nilai yang akan dipangkatkan? ');
readln (a);
write ('dipangkatkan dengan: ');
readln (b);
writeln (a:6:1, ' pangkat ',b, ' adalah ', pangkati(a,b):6:1);
end.

program function jumlah

program m9c1;
uses wincrt;
function hitung (var a, b, c, d: integer): integer;
begin
hitung := a+b;
c := a*b;
d := a-b;
end;
var
x, y, z, w : integer;
begin
write ('Nilai x? ');
readln (x);
write ('NIlai y? ');
readln (y);
writeln;
writeln (x, '+', y, '= ',hitung (x,y,z,w));
writeln (x, 'x', y, '=', z);
writeln (x, '-', y, '=',w);
end.

praktek tanpa prosedur

program prosedur;
uses wincrt;
var
pil : char;


begin

repeat
clrscr

writeln ('MENU');
writeln ('1. Bakso');
writeln ('2. Bakmi');
writeln ('3. Siomay');
writeln ('4. Soto');
writeln ('0. Bayar');
writeln;
write ('pilihan anda? '); readln (pil);

case pil of
'1' : begin
write ('Pesan Bakso');readln;
end;
'2' : begin
write ('pesan Bakmi');readln;
end;
'3' : begin
write ('pesan Siomay');readln;
end;
'4' : begin
write ('Pesan Soto');readln;
end;
'0' : begin
writeln ('Bayar dan bye');
end;
end;

until pil = '0';

end.

procedure bangun

program m8c2;
uses wincrt;
var
pilihan : integer;
ulang : string;
procedure judul;
begin
WRITELN ('program mencari luas');
WRITELN ('====================');
end;
procedure menupilihan;
begin
writeln('------menu pilihan-----');
writeln('1.persegi panjang');
writeln('2.segitiga');
writeln('3.lingkaran');
writeln('4.jajar genjang');
writeln('5.bujur sangkar');
end;
procedure persegipanjang;
var
p, l, luas : integer;
begin
writeln (' nilai panjang: ');
readln (p);
writeln (' nilai lebar: ');
readln (l);
luas := p * l;
writeln;
writeln (' luas persegi panjang= ',luas);
end;
procedure segitiga;
var
a, t , luas : real;
begin
writeln ('nilai alas: ');
readln (a);
writeln ('nilai tinggi: ');
readln (t);
luas := 0.5 *a * t;
writeln ('luas segitiga: ',luas);
end;
procedure lingkaran;
var
r, luas : real ;
begin
writeln ('nilai radius : ');readln(r);
luas := 3.14 * r * r;
writeln ('luas lingkaran: ',luas);
end;
procedure jajargenjang;
var
a, t, luas : real;
begin
writeln ('nilai sisi bawah: ');
readln(a);
writeln('nilai tinggi: ');
readln(t);
luas := a * t;
writeln('luas jajar genjang: ',luas);
end;
procedure bujursangkar;
var
s1, s2, luas : integer;
begin
writeln ('nilai sisi pertama: ');
readln(s1);
writeln('nilai sisi kedua: ');
readln(s2);
luas := s1 * s2;
writeln ('luas bujursangkar: ',luas);
end;
begin
ulang := 'Y';
while (ulang='Y')or(ulang='y')do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3/4/5)dimenu pilihan: ');
readln(pilihan);
case pilihan of
1: persegipanjang;
2: segitiga;
3: lingkaran;
4: jajargenjang;
5: bujursangkar;


end;
write('mau mengulang lagi tekan Y: ');
readln(ulang);
end;
readln;
end.