prosedure menu matriks

procedure menghitung luas dan keliling bangun datar

program menghitung_luas_dan_keliling_bangun_datar;
uses crt;
var
a,b,c,t,p,l,r,s:integer;
luas,keliling:real;
procedure menu;
begin
writeln ('1.segitiga');
writeln ('2.lingkaran');
writeln ('3.persegi panjang');
writeln ('4.bujur_sangkar');
end;
procedure segitiga;
begin
writeln ('menghitung luas dan keliling segitiga'); readln;
write ('input a:'); readln (a);
write ('input b:'); readln (b);
write ('input c:'); readln (c);
write ('input t:'); readln (t);
luas:=0.5*a*t;
keliling:=a+b+c;
writeln ('luas:',luas:3:3);
writeln ('keliling:',keliling:3:3);
end;
procedure lingkaran;
begin
writeln ('menhitung luas dan keliling lingkaran'); readln;
write ('input r:'); readln (r);
luas:=3.14*r*r;
keliling:=2*3.14*r;
writeln ('luas:',luas:3:3);
writeln ('keliling:',keliling:3:3);
end;
procedure persegi_panjang;
begin
writeln ('menhitung luas dan keliling persegi panjang'); readln;
write ('input p:'); readln (p);
write ('input l:'); readln (l);
luas:=p*l;
keliling:=2*(p+l);
writeln ('luas:',luas:3:3);
writeln ('keliling:',keliling:3:3);
end;
procedure bujur_sangkar;
begin
writeln ('menhitung luas dan keliling bujur sangkar'); readln;
write ('input s:'); readln (s);
luas:=s*s;
keliling:=4*s;
writeln ('luas:',luas:3:3);
writeln ('keliling:',keliling:3:3);
end;
var
pil:char;
tanya:string;
begin
tanya:='Y';
while tanya='Y' do
begin
writeln ('silahkan pilih menu berikut');
menu;
case pil of
'1.': begin segitiga; end;
'2.': begin lingkaran; end;
'3.': begin persegi_panjang; end;
'4.': begin bujur_sangkar; end;
writeln ('masukan pilihan anda:'); readln (pil);
write ('mengulang [Y/N]:'); readln (tanya);
end;
end.

Bahasa Pascal FPB

SPLTV & menghitung luas dan keliling lingkaran

1. SPLTV


Program Sistem_Persamaan_Linear_Tiga_Variabel;
var
J, K, L, M, N, O, P, Q, R, S, T, U, X, Y, Z : integer;
begin
writeln('ini adalah program untuk mencari nilai x,y,z melalui SPLTV');
writeln('masukan nilai J');
readln(J);
writeln('masukan nilai K');
readln(K);
writeln('masukan nilai L');
readln(L);
writeln('masukan nilai M');
readln(M);
writeln('masukan nilai N');
readln(N);
writeln('masukan nilai O');
readln(O);
writeln('masukan nilai P');
readln(P);
writeln('masukan nilai Q');
readln(Q);
writeln('masukan nilai R');
readln(R);
writeln('masukan nilai S');
readln(S);
writeln('masukan nilai T');
readln(T);
writeln('masukan nilai U');
readln(U);
X := ( ( M*P - Q*L ) - ( M*T - U*L ) ) div ( ( J*P - N*L ) - ( J*T - R*L ) ) ;
Y := ( ( M*N - Q*J ) - ( M*R - U*J ) ) div ( ( K*N - O*J ) - ( K*R - S*J ) ) ;
Z := ( ( M*N - Q*J ) - ( M*R - U*J ) ) div ( ( L*N - P*J ) - ( L*R - T*J ) ) ;
writeln('nilai x adalah ');
writeln(x);
writeln('nilai y adalah');
writeln(y);
writeln('nilai z adalah');
writeln(z);
readln
End.


2. Menghitung Luas dan Keliling Lingkaran



Program lingkaran;
var
K,L,R:real;
const
phi=3.14;
begin
writeln('ini adalah program untuk mencari keliling dan luas lingkaran');
writeln('masukan nilai R');
readln(R);
K:=2*phi*R;
L:=phi*R*R;
writeln('nilai K adalah:');
writeln(K);
writeln('nilai L adalah:');
writeln(L);
end.

persamaan kuadrat & nilai akhir

1. Persamaan Kuadrat

Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln('Menghitung akar-akar persamaan kuadrat');
writeln('Nilai a,b,c dimasukkan dengan jeda spasi');
write('Masukkan nilai a,b,c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('tidak ada akar real')
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 =',x1:6:2);
writeln('x2 =',x2:6:2);
end;
readln;
end.


2. Nilai Akhir


Program nilai_akhir;
uses crt;
var
nt,uts,uas,rt:real;
nim,nama,grade:string[25];
tr:longint;
begin
clrscr;
writeln(’program input’);
writeln(’===============’);
write(’masukan nim :’);readln(nim);
write(’masukan nama:’);readln(nama);
write(’masukan tugas :’);readln(nt);
write(’masukan UTS :’);readln(uts);
write(’masukan UAS :’);readln(uas);
rt:=0.25*nt+0.25*uts+0.5*uas;
tr:=round(rt);
case tr of
0..44:
begin
grade:=’E';
end;
45..55:
begin
grade:=’D';
end;
56..65:
begin
grade:=’C';
end;
66..79:
begin
grade:=’B';
end;
80..100:
begin
grade:=’A';
end;
end;

clrscr;
writeln(‘program nilai mahasiswa’);
writeln(’=======================’);
writeln;
writeln(’mahasiswa yang bernama ‘,nama);
write(’dengan nim ‘,nim);
write(’ mendapatkan nilai ‘,rt:4:0);
write(’ dan gradenya adalah ‘,grade);
readln;
end.