BAB 5
1). Program menyebut nama
program halo_nama;
uses crt;
var
nama : string;
begin
clrscr;
write('Hallo siapa namamu?');
writeln(' Hafidah Dinatul Latifah');readln(nama);
writeln('Senang berteman denganmu ', nama);
readln;
end.
2). Program luas persegi
program luas_persegi;
uses crt;
var
L,s : integer;
begin
clrscr;
write('s= ');readln(s);
writeln('====================');
writeln('Jadi luas dari persegi tersebut adalah');
L := 4 * s;
write('L= ');
write(L);
readln;
end.
3). Program konversi waktu
program konversiwaktu;
uses crt;
var
H,J,M,D,sisa1,sisa2,sisa3 : longint;
begin
clrscr;
write('jumlah detik= '); readln(D);
H := D DIV 86400;
sisa1 := D MOD 86400;
writeln('jumlah hari= ', H);
J := sisa1 DIV 3600;
sisa2 := J MOD 3600;
writeln('jumlah jam= ', J);
M := sisa2 DIV 60;
sisa3 := D MOD 60;
writeln('jumlah menit= ', M);
D := sisa3;
writeln('jumlah detik= ', D);
readln;
end.
4). Program konversi hari
program konversihari;
uses crt;
var
T,B,H,sisa : longint;
begin
clrscr;
write('jumlah hari= '); read(H);
T := H DIV 365;
sisa := H MOD 365;
writeln('Tahun= ', T);
B := sisa DIV 30;
writeln('Bulan= ', B);
H := sisa MOD 30;
writeln('Hari= ', H);
readln;
readln;
end.
5). Program jarak 2 tanggal
program jarak2tanggal;
uses crt;
var
dd1,dd2,mm1,mm2,yy1,yy2,selisih_hari : longint;
awal,akhir,hasil1,hasil2,hasil3,hasil4,jumlah1,jumlah2,jumlah3,jumlah4 : longint;
begin
clrscr;
writeln('isi data tanggal pertama :');
writeln('==================================');
write('Tanggal : '); readln(dd1);
write('Bulan : '); readln(mm1);
write('Tahun : '); readln(yy1);
writeln('Tanggal Pertama Adalah : ', dd1,'-',mm1,'-',yy1);
writeln('==================================');
writeln('isi data tanggal kedua :');
writeln('==================================');
write('Tanggal : '); readln(dd2);
write('Bulan : '); readln(mm2);
write('Tahun : '); readln(yy2);
writeln('Tanggal Kedua Adalah : ', dd2,'-',mm2,'-',yy2);
writeln('==================================');
hasil1 := 30 * mm1;
hasil2 := 365 * yy1;
jumlah1 := dd1 + hasil1;
jumlah2 := jumlah1 + hasil2;
awal := jumlah1 + jumlah2;
hasil3 := 30 * mm2;
hasil4 := 365 * yy2;
jumlah3 := dd1 + hasil3;
jumlah4 := jumlah3 + hasil4;
akhir := jumlah3 + jumlah4;
selisih_hari := akhir - awal;
writeln('selisih dari ',dd1,'-',mm1,'-',yy1,' <===> ', dd2,'-',mm2,'-',yy2,' adalah : ',
selisih_hari ,' Hari');
readln;
end.
6). Program tukar 3 nilai
program tukar3nilai;
uses crt;
var
x,y,z,a : integer;
begin
clrscr;
write('masukkan nilai x= '); readln(x);
write('masukkan nilai y= '); readln(y);
write('masukkan nilai z= '); readln(z);
writeln('nilai x=', x);
writeln('nilai y=', y);
writeln('nilai z=', z);
a := x;
x := y;
y := z;
z := a;
writeln('======================================================
================');
writeln('pertukaran tripel bilangan bulat (x,y,z) <===> (y,z,x) adalah : ');
writeln('======================================================
================');
writeln('jadi 3 bilangan bulat setelah ditukarkan menjadi : ');
writeln('nilai x=', y);
writeln('nilai y=', z);
writeln('nilai z=', x);
readln;
end.
7). Program tukar nilai uang
program tukar_nilaiuang;
uses crt;
var
Rp1000,Rp500 : longint;
Rp50,Rp25 : longint;
sisa1,sisa2,sisa3,x : longint;
begin
clrscr;
writeln('Selamat Datang Di Nilai Tukar Uang Dalam Kelipatan 25');
writeln('===============');
write('Masukan Jumlah Uang Yang Akan Ditukarkan= Rp '); readln(x);
Rp1000 := x DIV 1000;
sisa1 := x MOD 1000;
writeln('pecahan Rp1000= ', Rp1000, 'buah');
Rp500 := sisa1 DIV 500;
sisa2 := sisa1 MOD 500;
writeln('pecahan Rp500= ',Rp500, 'buah');
Rp50 := sisa2 DIV 50;
sisa3 := sisa2 MOD 50;
writeln('pecahan Rp50= ',Rp50, 'buah');
Rp25 := sisa3 DIV 25;
writeln('pecahan Rp25= ',Rp25, 'buah');
readln;
end.
8). Program konversi jarak
program konversijarak;
uses crt;
var
km,m,cm,sisa,jumlah_jarak_dalam_cm : longint;
begin
clrscr;
write('jumlah jarak dalam cm= '); read(jumlah_jarak_dalam_cm);
km := jumlah_jarak_dalam_cm DIV 100000;
sisa := jumlah_jarak_dalam_cm MOD 100000;
writeln('km= ', km);
m := sisa DIV 100;
writeln('m= ', m);
cm := sisa MOD 100;
writeln('cm= ', cm);
readln;
readln;
end.
9). Program konversi panjang
program konversipanjang;
uses crt;
var
yard,kaki,inchi : real;
m : integer;
const
y_m = 0.9144;
k_m = 0.3048;
i_m = 0.0254;
begin
clrscr;
write('jumlah panjang dalam meter= '); readln(m);
writeln('Jadi konversi dari meter di atas adalah :');
yard := m / y_m;
writeln(yard :2:2, ' yard');
kaki := m / k_m;
writeln(kaki :2:2, ' kaki');
inchi := m / i_m;
writeln(inchi :2:2, ' inchi');
readln;
end.
10). Program berat badan ideal
program beratbadanideal;
uses crt;
var
tb,bbi,awal,akhir : real;
const
persenan = 0.1;
begin
clrscr;
write('masukkan tinggi badan(cm)= '); readln(tb);
awal := tb - 100;
akhir := awal * persenan;
bbi := awal - akhir;
writeln('berat badan idealnya= ', bbi:0:2, 'kg');
readln;
end.
