Program Mencari_Luas_dan_Keliling_Bangun_Datar;
uses crt;
var a,b,c,r,p,lb,t,s:integer;
L, K:real;
procedure menu;
begin
writeln (' 1. Segitiga');
writeln (' 2. Lingkaran');
writeln (' 3. Persegi Panjang');
writeln (' 4. Persegi');
end;
procedure segitiga;
begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('Panjang c= '); readln (c);
write ('Tinggi segitiga= '); readln (t);
L:= (a*t)/2;
K:= a+b+c;
write ('Luas segitiga = ',L:0:0); readln;
write ('Keliling segitiga = ',K:0:0); readln;
end;
procedure lingkaran;
const phi=3.14;
begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r= '); readln (r);
L:=phi*r*r;
K:=phi*2*r;
write ('Luas lingkaran adalah ',L:0:0); readln;
write ('Keliling lingkaran adalah ',K:0:0); readln;
end;
procedure persegipanjang;
begin
writeln ('Menghitung Luas dan Keliling Persegi Panjang');
write ('p = '); readln (p);
write ('l = '); readln (lb);
L:=p*lb;
K:=(2*p)+(2*lb);
write ('Luas persegi panjang = ',L:0:1); readln;
write ('Keliling persegi panjang = ',K:0:1); readln;
end;
procedure persegi;
begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi = '); readln (s);
L:= s*s;
K:=4*s;
write ('Luas persegi= ',L:0:2); readln;
write ('Keliling persegi= ',K:0:2); readln;
end;
var pil:char;
begin
repeat
clrscr;
textcolor (green);
writeln (' ============================================================');
writeln (' = program Menghitung Luas dan Keliling Suatu Bangun datar =');
writeln (' ============================================================');
readln;
writeln (' Nama : Lia Amaliyah');
writeln (' Kelas : IV A');
Writeln (' MatKul : Program Komputer (Procedure)');readln;
writeln (' Pilih menu berikut ini:');
menu;readln;
writeln(' ^^ Silahkan Pilih Bangun Datar yang akan dihitung ^^ ');
write(' masukkan pilihan anda: ');readln(pil);
else
writeln ('pilihan yang anda masukkan salah');
case pil of
'1': begin segitiga;end;
'2': begin lingkaran; end;
'3': begin persegipanjang;end;
'4': begin persegi;end;
end;
write ('mau pilih menu lagi? [yes/ no] '); readln (pil);
pil:= upcase (pil);
until (pil<> 'Y');
readln;
end.
Akhwat
Berikut adalah Algoritma untuk program Turbo Pascal:
program menghitung_FPB_dua_Bilangan;
uses crt;
var a,b,q,r : integer;
label awal, akhir;
begin
clrscr;
writeln (' Program Menghitung FPB dari dua bilangan');
writeln (' ------------------------------------------');
writeln;
writeln (' Nama : Lia Amaliyah');
writeln (' NIM : 070821');
writeln (' Mata Kuliah : Program Komputer');
writeln; readln;
writeln(' Masukkan nilai a dan b yang akan dihitung ');
writeln;
write(' a = '); readln(a);
writeln;
write(' b = '); readln(b);
writeln;
writeln(' Maka FPB dari ( ',a,',',b,') melalui rumus a = qb + r adalah ');
writeln(' (Dimana q = a div b dan r = a mod b) ');
writeln;
if a>b then
awal:
begin
r:=a mod b;
q:=a div b;
textcolor (yellow);
writeln(' ',a,' = ', q ,' * ',b,' + ',r, ''); read; write;
if r=0 then
begin
writeln;
textcolor (9);
writeln(' FPB dari kedua bilangan adalah ', b); readln;writeln;
end else
a:=b; b:=r;
goto awal; end
else
if a
akhir:
begin
r:= b mod a;
q:= b div a;
write(' ',a,' = ',q,' * ',b,' + ',r, ''); readln;
writeln;
if r=0 then
writeln(' FPB dari kedua bilangan adalah ', a); readln;
end else
b:=a; a:=r;
goto akhir;
end.
Berikut adalah Algoritma Perhitungan persamaan kuadrat:
program Menghitung_akar_persamaan_kuadrat;
uses crt;
var A,B,C: integer;
x1,x2,D:real;
begin
clrscr;
writeln;
writeln(' PROGRAM KOMPUTER');
writeln(' Nama : Lia Amaliyah');
writeln(' NIM : 070821');
writeln(' Kelas : 4A');
readln; writeln;
writeln(' MENGHITUNG AKAR PERSAMAAN KUADRAT ');
writeln(' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
writeln;
write(' > koefisien A: ');
read(A);
write(' > koefisien B: ');
read(B);
write(' > koefisien C: ');
read(C);Writeln;
write(' maka persamaan kuadratnya adl sebagai berikut:');
readln; writeln;
writeln;
writeln( A,'x*x + ',B,'x + ',C,' = 0');
writeln;readln;
if A=0 then
begin
writeln;
writeln(' bukan persamaan kuadrat');
readln;writeln;
end
else
begin
D:=(B*B)-(4*A*C);
writeln(' Diskriminannya adalah ',d:2:2);readln;
writeln;writeln;
if D>0 then
begin
writeln(' Memiliki akar-akar real yang berbeda');
writeln;
x1:=(-B+sqrt(D))/(2*A);
x2:=(-B-sqrt(D))/(2*A);
writeln(' akar-akarya adalah : ',x1:2:2,' dan ',x2:2:2);
end
else
if D=0 then
begin
writeln(' Memiliki akar yang sama(akar kembar), real dan rasional');
writeln;
x1:=-b/(2*A);
x2:=-b/(2*A);
writeln(' akar-akarya : ',x1:2:2);
end
else
writeln(' Tidak Memiliki akar real atau kedua akarnya tidak real (imajiner)');
end;
readln;
end.
(Hasil akhirnya adalah sebagai berikut!)
Berikut adalah algoritma cara menghitung nilai mahasiswa akhir semester:
program Menghitung_Nilai_Akhir_Mahasiswa;
uses crt;
var nama,mata_kuliah: string;
tugas,UTS,UAS,nilai: integer;
Nilai_Akhir: real;
begin
clrscr;
writeln;
writeln(' PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA ');
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
writeln;
writeln(' Masukkan Identitas Diri!');
write(' Nama : ');
readln(nama);
write(' NIM : ');
readln;
write(' Kelas : ');
readln;
write(' Mata Kuliah : ');
readln(mata_kuliah);
write(' Alamat : ');
readln;
writeln;writeln;
write(' > Masukkan Nilai Tugas : ');
readln(tugas);
write(' > Masukkan Nilai UTS : ');
readln(UTS);
write(' > Masukkan Nilai UAS : ');
readln(UAS);
writeln;
Nilai:=25*tugas+25*uts+50*uas;
write(' Jumlah Nilai anda adalah : ',nilai);
writeln;
nilai_akhir:=nilai/100;
write(' NILAI AKHIR ANDA = ',nilai_akhir:0:2);
writeln;
writeln;
case nilai of
0..2500 : writeln(' Astaghfirullah ',NAMA,'. NILAI ANDA adalah E ');
2600..3900 : writeln(' MAAF ',NAMA,'. NILAI ANDA = D . ');
4000..6500 : writeln(' ',NAMA,'. NILAI ANDA = C ');
6600..7900 : writeln('',NAMA,'. NILAI ANDA = B ');
8000..10000: writeln('ALHAMDULILLAH ',nama,'. NILAI ANDA Adalah A.Pertahankan Prestasimu!!!');
else
writeln('Nilai anda tidak ditemukan');
end;
readln;
end.
(Hasilnya adalah sebagai berikut!)
Berikut ini Algoritma Sistem Persamaan Linier Tiga Variabel (SPLTV):
program Menghitung_SPLTV;
uses crt;
var A,B,C,D,E,F,G,H,P,Q,R,S:integer;
x,y,z,N,K,L,M:real;
begin
clrscr;
writeln(' PROGRAM KOMPUTER');
writeln(' Nama : Lia Amaliyah');
writeln(' NIM : 070821');
writeln(' Kelas : 4A');
readln;
writeln;
writeln;
writeln(' MENGHITUNG SPLTV (Sistem Persamaan Linear Tiga Variabel) ');
writeln(' ------------------------------------------------------- ');
readln;
writeln;
write('Masukkan nilai x pada persamaan pertama: ');
read(A);
write('Masukkan nilai y pada persamaan pertama: ');
read(B);
write('Masukkan nilai z pada persamaan pertama: ');
read(C);
write('Masukkan konstanta hasil pada persamaan pertama: ');
read(D);writeln;
write('Masukkan nilai x pada persamaan kedua: ');
read(E);
write('Masukkan nilai y pada persamaan kedua: ');
read(F);
write('Masukkan nilai z pada persamaan kedua: ');
read(G);
write('Masukkan konstanta hasil pada persamaan kedua: ');
read(H);writeln;
write('Masukkan nilai x pada persamaan ketiga: ');
read(P);
write('Masukkan nilai y pada persamaan ketiga: ');
read(Q);
write('Masukkan nilai z pada persamaan ketiga: ');
read(R);
write('Masukkan konstanta hasil pada persamaan ketiga: ');
read(S);writeln;
writeln;
writeln('maka persamaannya adalah sebagai berikut:');
readln;writeln;
writeln(' persamaan pertama : ',A,'x + ' ,B,'y + ' ,C,'z =',D);
writeln(' persamaan kedua : ',E,'x + ' ,F,'y + ' ,G,'z =',H);
writeln(' persamaan ketiga : ',P,'x + ' ,Q,'y + ' ,R,'z =',S);
writeln;
N:=(A*F*R)+(B*G*P)+(C*E*Q)-(P*F*C)-(Q*G*A)-(R*E*B);
K:=(D*F*R)+(B*G*P)+(C*H*Q)-(D*F*C)-(Q*G*D)-(R*H*B);
L:=(A*H*R)+(D*G*P)+(C*E*S)-(P*H*C)-(S*G*A)-(R*E*D);
M:=(A*F*S)+(B*H*P)+(D*E*Q)-(P*F*D)-(Q*H*A)-(S*E*B);
write('Akan diperoleh:');readln;
write('Determinannya = ',N:2:2);
readln;
write('Determinan x adalah = ',K:2:2);
readln;
write('Determinan y adalah = ',L:2:2);
readln;
write('Determinan z adalah = ',M:2:2);
readln;
writeln;writeln;
if N=0 then
writeln('Jadi, PERSAMAAN INI TIDAK MEMILIKI PENYELESAIAN')
else
begin
x:=K/N;
y:=L/N;
z:=M/N;
writeln('MAKA....');
writeln('NILAI x = ',x:2:2);
writeln('NILAI y = ',y:2:2);
writeln('NILAI z = ',z:2:2);
end;
writeln;
writeln;
writeln('*****************************FINISH******************');
readln;
end.
(hasilnya akan didapat berikut ini!)
Berikut adalah contoh dari algoritma untuk menghitung Luas dan Keliling lingkaran:
program menghitung_luas_dan_keliling_lingkaran;
uses crt;
const pi=3.14;
var r,L,k: real;
begin
ClrScr;
writeln;
writeln(' PROGRAM_KOMPUTER ');
Writeln(' Nama : Lia Amaliyah');
writeln(' NIM : 070821');
writeln(' Kelas : 4A');
readln; writeln;
writeln(' MENGHITUNG LUAS DAN KELILING LINGKARAN');
Writeln(' **************************************');
writeln;
write(' masukkan nilai r = ');
readln(r);
writeln;
L:=pi*r*r;
k:=2*pi*r;
writeln(' maka Luas lingkarannya adalah ', L:2:0);
writeln;readln;
writeln(' dan Keliling lingkarannya adalah ', k:2:0);
writeln;readln;
writeln(' ********* FINISH ********');
readln;
end.
(Hasilnya akan di dapat sebagai berikut ini)
