Assalamu'alaikum.. Bagi temen-temen yang sedang mempelajari software Matematika, program Turbo Pascal for Windows (TPW), saya ingin share contoh-contoh soal dan penyelesaiannya.. Kalau temen-temen belum punya softwarenya, silahkan Download softwarenya, disini.. Posting ini mudah-mudahan ada makna bagi kita semua.. Amin ^_^
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);
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
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
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.
Mungkin lumayan banyak. Cukup buat temen-temen latihan Program Turbo Pascal for Windows nya..
Lumayan capeek juga :D
Mungkin sampe sini Admin ngepost nya.. Sampai ketemu di posting selanjutnya. Mudah-mudahan temen-temen yang sudah mencoba, ataupun sekedar menyimak, mendapatkan ilmu baru..
"Orang yang mau mencoba, sesungguhnya dekat dengan keberhasilan. Orang yang sedang belajar, terlihat sedang pusing, yang gak belajar pasti terlihat biasa saja.. Sukses dekat dengan orang yang mau belajar" - Pepatah
Terima kasih :)
Tambahkan Komentar Anda.
EmoticonEmoticon