a. Konversi detik ke jam
program konversi_detik_ke_jam;
uses wincrt;
var
detik:real;
jam:real;
begin
write('masukkan
detik=');
readln(detik);
jam:=detik/3600;
writeln('jam=',jam:10:2);
end.
b. Program Konversi Detik
uses wincrt;
type
jam =record
hh:longint;
mm:longint;
ss:longint;
end;
var
J :jam;
totaldetik :longint;
begin
write ('Jam :
'); readln (J.hh);
write ('menit :
'); readln (J.mm);
write ('detik :
'); readln (J.ss);
totaldetik:=
(J.hh*3600) + (J.mm*60) + J.ss;
write
('totaldetik= ', totaldetik);
end.
c. Konversi jam ke detik
program konversi_jam_ke_detik;
uses wincrt;
var
jam:real;
detik:real;
begin
write('masukkan
jam=');
readln(jam);
detik:=jam*3600;
writeln('total
detik=',detik:10:2);
end.
d.
Koordinat titik tengah dari kedua titik yang diketahui
Program Koordinat_Titik_Tengah;
uses wincrt;
var
x1,
x2, y1, y2, a, b, titik_tengah_x, titik_tengah_y:real;
begin
write('masukkan
nilai x1 =');readln(x1);
write('masukkan
nilai x2 =');readln(x2);
write('masukkan
nilai y1 =');readln(y1);
write('masukkan
nilai y2 =');readln(y2);
titik_tengah_x:=((x1+x2)/2);
titik_tengah_y:=((y1+y2)/2);
writeln('titik_tengah_x=',titik_tengah_x:10:2);
writeln('titik_tengah_y=',titik_tengah_y:10:2);
end.
e.
Mencari Luas Bujur Sangkar
uses wincrt;
var
sisi : real;
luas :real;
begin
write('berapa
sisi bujursangkar? ');readln(sisi);
write('berapa
sisi bujursangkar? ');readln(sisi);
luas := sisi *
sisi;
writeln('luas
bujursangkar= ', luas);
end.
f.
Mencari Luas dan Keliling Lingkaran
uses wincrt;
const
phi=3.142857;
var
r,
Luas, Keliling:real;
begin
write
('masukkan jari-jari lingkaran: ');readln(r);
Luas:=(phi*r*r);
Keliling:=(phi*2*r);
writeln
('luas:', Luas:10:3);
writeln
('keliling:', Keliling:10:3);
end.
g.
Mencari Luas Permukaan Tabung dan Kerucut
uses wincrt;
const
phi=3.142857;
var
r,
t, s, luas_permukaan_tabung, luas_permukaan_kerucut:real;
begin
write('masukkan
jari-jari =');readln(r);
write('masukkan
tinggi =');readln(t);
write('masukkan
selimut_kerucut =');readln(s);
luas_permukaan_tabung:=((2*phi*r*r)+(2*phi*r*t));
luas_permukaan_kerucut:=((phi*r*r)+(phi*r*s));
writeln('luas_permukaan_tabung=',luas_permukaan_tabung:5:2);
writeln('luas_permukaan_kerucut=',luas_permukaan_kerucut:5:2);
end.
h.
Mencari Luas Segitiga
Uses wincrt;
Var
pjg,
lbr, als, tg, NomorMenu:Integer;
l_persegi,
l_segitiga, kll_segitiga, kll_persegi:integer;
Begin
clrscr;
writeln('rumus
luas segitiga');
write('masukan
alas segitiga: '); readln(als);
write('masukan
tinggi segitiga: '); readln(tg);
l_segitiga:=
als*tg div 2;
writeln('luas
segitiga adalah ',l_segitiga);
readln;
end.
i.
Luas Trapesium
Uses wincrt;
Var
sisi_a,sisi_b,tinggi,luas:real;
Begin
clrscr;
write
(‘masukkan sisi a:’);
readln
(sisi_a);
write(‘masukkan
sisi b:’);
readln(sisi_b);
write
(‘masukkan tinggi:’);
readln(tinggi);
Luas:=(sisi_a+sisi_b)/2*tinggi;
writeln(‘Luas
Trapesium adalah:’,Luas:8:2);
readln;
end.
j.
Menentukan Volume Bola
Uses wincrt;
Var
jari_jari,volume:real;
Begin
clrscr;
write
(‘masukkan jari-jari:’);
readln
(jari_jari);
volume:=jari_jari*jari_jari*4/3*pi;
writeln(‘Volume
Bola adalah:’,volume:8:2);
readln;
end.
k.
Luas Segi Empat
uses wincrt;
var
panjang:integer;
lebar:integer;
luas:integer;
Begin
writeln('panjangnya');
readln(panjang);
writeln('lebarnya');
readln(lebar);
luas:=panjang*lebar;
writeln('luas
segi4=',luas);
End.
l.
Operasi Bilangan
uses wincrt;
var
a,b,c,d,e,h:integer;
f,g:real;
begin
write('masukkan
nilai pertama = ');readln(a);
write('masukkan
nilai kedua = ');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a
div b;
h:=a
mod b;
writeln('hasil
penjumlahan = ',c);
writeln('hasil
pengurangan = ',d);
writeln('hasil
perkalian = ',e);
writeln('hasil
pembagian = ',f:0:2);
writeln('hasil
pembagian bulat = ',g:0:2);
writeln('sisa
hasil bagi = ',h);
end.
m.
Jenis Akar Persamaan (1)
uses wincrt;
var
a,b,c,x,x1,x2,D : real;
begin
writeln
('berapa a?'); read (a);
writeln
('berapa b?'); read (b);
writeln
('berapa c?'); read (c);
D:=b*b-4*a*c ;
if D=0 then
begin
x:=
-b/(2*a);
write
('akar-akarnya real kembar yaitu ',x);
end else
if D>0 then
begin
x1:= (-b +
sqrt(D))/(2*a);
x2:= (-b -
sqrt(D))/(2*a);
writeln('akarnya real berbeda yaitu x1= ',x1:0:0);
writeln('x2=
',x2:0:0);
end else
begin
writeln('akarnya
tidak real yaitu ');
end;
end.
n.
Jenis Akar Persamaan (2)
uses wincrt;
var
a,b,c,x,x1,x2,D : real;
begin
writeln
('berapa a?'); read (a);
writeln
('berapa b?'); read (b);
writeln
('berapa c?'); read (c);
D:=b*b-4*a*c
;
if D=0 then
begin
x:=
-b/(2*a);
write
('akar-akarnya real kembar yaitu ',x);
end else
if D>0 then
begin
x1:= (-b +
sqrt(D))/(2*a);
x2:= (-b -
sqrt(D))/(2*a);
writeln('akarnya real berbeda yaitu x1= ',x1:0:0);
writeln('x2=
',x2:0:0);
end else
begin
writeln('akarnya tidak real yaitu ');
end;
end.
o. Konversi Hari ke Tahun, Bulan, Hari
uses wincrt;
type
hari = record
yy:longint;
mm:longint;
dd:longint;
end;
var
d : hari;
totalhari
: longint;
sisa : longint;
begin
write ('total
hari: '); readln (totalhari);
d.yy:=
totalhari div 365 ;
sisa:=
totalhari mod 365 ;
d.mm:=
totalhari div 30;
sisa:=
totalhari mod 30;
d.dd:=
totalhari div 1;
sisa:=
totalhari mod 1;
writeln ('d.yy=
', d.yy);
writeln ('d.mm=
', d.mm);
writeln ('d.dd=
', d.dd);
end.
p. Menu Persamaan Kuadrat
uses wincrt;
var
nomormenu :integer;
a, b, c, D, x, x1, x2,
jumlahakar, perkalianakar :real;
begin
writeln('menu
persamaan kuadrat');
writeln('1.mencari diskriminan');
writeln('2.jenis-jenis akar persamaan');
writeln('3.mencari akar-akar persamaan');
writeln('4.jumlah akar persamaan');
writeln('5.hasil
kali akar persamaan');
writeln('6.keluar');
writeln('masukan pilihan anda'); read(nomormenu);
case nomormenu of
1 : begin
write('berapa a?'); readln (a);
write('berapa b?'); readln (b);
write('berapa c?'); readln(c);
D:=b*b-4*a*c;
writeln('D= ',D);
end;
2 : begin
writeln ('berapa a?'); read (a);
writeln ('berapa b?'); read (b);
writeln ('berapa c?'); read (c);
D:=b*b-4*a*c ;
if D=0 then
write ('akar-akarnya real sama')
else
if D>0 then
write ('akar-akarnya real berbeda')
else
write ('tidak memiliki akar real')
end;
3 : begin
writeln ('berapa a?'); read (a);
writeln ('berapa b?'); read (b);
writeln ('berapa c?'); read (c);
D:=b*b-4*a*c ;
if D=0 then
begin
x:=
-b/(2*a);
write ('akar-akarnya real kembar yaitu ',x);
end else
if D>0 then
begin
x1:= (-b + sqrt(D))/(2*a);
x2:= (-b - sqrt(D))/(2*a);
writeln('akarnya real berbeda yaitu x1= ',x1:0:0);
writeln('x2= ',x2:0:0);
end else
begin
writeln('akarnya tidak real yaitu ');
end;
end;
4 : begin
writeln ('berapa a?'); read (a);
writeln ('berapa b?'); read (b);
jumlahakar:= -(b/a);
writeln('jumlahakar= ', jumlahakar);
end;
5 : begin
writeln ('berapa a?'); read (a);
writeln ('berapa c?'); read (c);
perkalianakar:= c/a ;
writeln('perkalianakar= ', perkalianakar);
end;
6 : write('keluar
program .... sampai jumpa')
end;
end.
q. Volume dan Luas Permukaan Kubus
Program
Volume_Kubus_dan_Luas_Permukaan_Kubus;
uses wincrt;
var
alas,
volume, luas_permukaan:real;
begin
write('masukkan
alas =');readln(alas);
volume:=alas*alas*alas;
luas_permukaan:=6*(alas*alas);
writeln('volume=',volume:5:2);
writeln('luas_permukaan=',luas_permukaan:5:2);
end.