MENU HITUNG

uses wincrt;

procedure tanya_hitung1;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x*y;

writeln('Hasil perkalian= ',h:5:2);

end;

procedure tanya_hitung2;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x+y;

writeln('Hasil penjumlahan= ',h:5:2);

end;

procedure menu;

var

j:integer;

begin

writeln('MENU HITUNG');

writeln('1.Perkalian');

writeln('2.Penjumlahan');

write('Pilih no?(1/2)');readln(j);

if j=1 then

begin

clrscr;

tanya_hitung1;

end;

if j=12 then

begin

clrscr;

tanya_hitung12;

end;

end;

begin

menu;

end.

Rata-rat,Max,Min

uses wincrt;
var
a,b,c,max,min:integer;
rata:real;
begin
write('Nilai 1 = '); readln(a);
write('Nilai 2 = '); readln(b);
write('Nilai 3 = '); readln(c);
rata:=(a+b+c)/3;
if a>b then
if a begin
max:=c;
min:=b;
end
else
begin
max:=a;
min:=c;
end
else
if b>c then
begin
max:=b;
min:=c;
end
else
begin
max:=c;
min:=a;
end;
writeln;
writeln('Rata-rata = ',rata:3:2);
writeln('Bilangan terbesar = ',max);
writeln('Bilangan terkecil = ',min);
end.

FIBONACCI

uses wincrt;

var
a:array[1..100] of real;
i,n:integer;

begin
write ( 'Masukkan suku keberapa deret fibonacci: ');readln(n);
a[1]:=1;
a[2]:=1;

for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:0,' ');


end.

PROGRAM LUAS SEGITIGA

uses wincrt;
var
a,t,L:real;
begin
write('panjang alas segitiga = ');
readln (a);
write('tinggi segitiga = ');
readln (t);
L:=1/2*a*t;
writeln('Luas Segitiga = ',L:6:2);
end.

PROSEDUR TANYA HITUNG

uses wincrt;

procedure tanya_hitung1;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x*y;

writeln('Hasil perkalian= ',h:5:2);

end;

procedure tanya_hitung2;

var

x,y,h:real;

begin

write('Nilai x?');readln(x);

write('Nilai x?');readln(x);

h:=x+y;

writeln('Hasil penjumlahan= ',h:5:2);

end;

procedure menu;

var

j:integer;

begin

writeln('MENU HITUNG');

writeln('1.Perkalian');

writeln('2.Penjumlahan');

write('Pilih no?(1/2)');readln(j);

if j=1 then

begin

clrscr;

tanya_hitung1;

end;

if j=12 then

begin

clrscr;

tanya_hitung12;

end;

end;

begin

menu;

end.