Kumpulan Latihan Soal

1. LUAS DAN KELILING PERSEGI PANJANG
program luas_dan_keliling_persegipanjang;
uses wincrt;
var p,l,Lp,K:integer;
begin
write('masukkan panjang= ');readln(p);
write('masukkan lebar= ');readln(l);
Lp:=p*l;
K:=2*(p+l);
writeln('luas= ',Lp);
writeln('keliling= ',K);
end.

2. VOLUME DAN LUAS PERMUKAAN KUBUS
program volume_dan_luaspermukaan_kubus;
uses wincrt;
var s,L,V:integer;
begin
write('masukkan panjang sisi kubus=');read(s);
L:=s*s*6;
V:=s*s*s;
writeln('jadi luas permukaan kubusnya adalah=',L);
write('jadi volume kubusnya aadalah=',V);
end.
3. LUAS DAN KELILING LINGKARAN
program luas_dan_kelilinglingkaran;
uses wincrt;
const phi=3.14;
var r,L,K:real;
begin
write('masukkan jari-jari lingkaran=');read(r);
L:=phi*r*r;
K:=2*phi*r;
writeln('jadi luas lingkaran adalah=',L:0:2);
write('jadi keliling lingkaran adalah=',K:0:2);
end.

4. MEMPERTUKARKAN NILAI A DAN NILAI B
program mempertukarkan_nilaiA_dan_B;
uses wincrt ;
var
a,b,c:integer;
begin
write('masukkan nilai a=');
read(a);
write('masukkan nilai b=');
read(b);
c:=a;
a:=b;
b:=c;
writeln('stelah ditukar');
writeln('sekarang nilai a=',a);
writeln('sekarang nilai b=',b);
end.

5. PERMUKAAN TABUNG DAN KERUCUT
program permukaan_tabung_dan_kerucut;
uses wincrt;
const phi=3.14;
var rt,tt,Lt,s,rk,tk,Lk:real;
begin
write('masukkan jari-jari alas tabung=');read(rt);
write('masukkan tinggi tabung=');read(tt);
Lt:=(2*phi*rt*rt)+(2*phi*rt*tt);
writeln('luas permukaan tabung=',Lt);
write('masukkan jari-jari alas kerucut=');read(rk);
write('masukkan tinggi kerucut=');read(tk);
s:=sqrt((tk*tk)+(rk*rk));
Lk:=(phi*rk*rk)+(rk*phi*s);
write('luas permukaan kerucut=',Lk);
end.

6. OPERASI BILANGAN
program operasi_bilangan;
uses wincrt;
var a,b,c,d,e,g,h:integer;
f:real;
begin
write('masukkan nilai a=');readln(a);
write('masukkan nilai b=');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
writeln('nilai a+b adalah=',c);
writeln('nilai a-b adalah=',d);
writeln('nilai a*b adalah=',e);
writeln('nilai a/b adalah=',f:0:2);
writeln('nilai a div b adalah=',g);
writeln('nilai a mod b adalah=',h);
end.

7. GAJI KARYAWAN
program gaji_karyawan;
uses wincrt;
var
nama:string;
gp,ti,ta,pajak,gs,gt:real;
begin
write('masukkan nama=');readln(nama);
write('masukkan gaji pokok=');readln(gp);
ti:=0.15*gp;
ta:=0.20*gp;
gs:=gp+ti+ta;
pajak:=0.15*gs;
gt:=gs-pajak;
writeln('tunjangan istri adalah=',ti:0:2);
writeln('tunjangan anak adalah=',ta:0:2);
writeln('gaji keseluruhan adalah=',gt:0:2);
end.

8. KOORDINAT TITIK TENGAH
program koordinat_titiktengah;
uses wincrt;
var x1,x2,y1,y2,xt,yt:real;
begin
writeln('masukkan nilai x1 dan y1=');
write('x1=');read(x1);
write('y1=');read(y1);
writeln('masukkan x2 dan y2=');
write('x2=');read(x2);
write('y2=');read(y2);
xt:=(x1+x2)/2;
yt:=(y1+y2)/2;
write('jadi titik tengahnya adalah=(',xt:0:2,',',yt:0:2,')');
end.

9. KONVERSI JAM KE DETIK
program konversi_jam_kedetik;
uses wincrt;
var
jam,menit,detik,total_detik:integer;
begin
write('masukkan jam=');read(jam);
write('masukkan menit=');read(menit);
write('masukkan detik=');read(detik);
total_detik:=(jam*3600)+(menit*60)+detik;
writeln('total detiknya adalah=',total_detik);
end.

10. KONVERSI DETIK KE JAM
program konversi_detik_kejam;
uses wincrt;
var
jam,detik,menit:longint;
begin
write('masukkan detik=');read(detik);
jam:=detik div 3600;
detik:=detik mod 3600;
menit:=detik div 60;
detik:=detik mod 60;
write('jadi jamnya adalah=',jam,'jam,',menit,'menit,',detik,'detik');
end.

11. LAMANYA TELEPON
program lamanya_telepon;
uses wincrt;
var
jam1,menit1,detik1,jam2,menit2,detik2,detik_awal,detik_akhir,lamanya:integer;
begin
write('masukkan jam awal=');read(jam1);
write('masukkan menit awal=');read(menit1);
write('masukkan detik awal=');read(detik1);
write('masukkan jam akhir=');read(jam2);
write('masukkan menit akhir=');read(menit2);
write('masukkan detik akhir=');read(detik2);
detik_awal:=(jam1*3600)+(menit1*60)+detik1;
detik_akhir:=(jam2*3600)+(menit2*60)+detik2;
lamanya:=detik_akhir-detik_awal;
writeln('lamanya telepon dalam detik adalah=',lamanya);
end.






12. BIAYA TELEPON
program biaya_telepon;
uses wincrt;
var j1,j2,m1,m2,d1,d2,x,y,lam,p,b:integer;
begin
write('jam mulai=');readln(j1);
write('menit mulai=');readln(m1);
write('detik mulai=');readln(d1);
write('jam akhir=');readln(j2);
write('menit akhir=');readln(m2);
write('detik akhir=');readln(d2);
x:=(j1*3600)+(m1*60)+d1;
y:=(j2*3600)+(m2*60)+d2;
lam:=y-x;
writeln('lamanya dlm detik=',lam);
p:=lam div 5;
b:=p*200;
writeln('biayanya adalah=',b);
end.


13. SUHU
program suhu;
uses wincrt;
var
C,K,F:real;
begin
write('masukkan nilai celcius=');read(C);
K:=C+273;
F:=(9/5*C)+32;
writeln('jadi nilai kelvin adalah=',K:0:2);
writeln('jadi nilai fahrenhet adalah=',F:0:2);
end.


14. UMUR SESEORANG
program umur_seseorang;
uses wincrt;
var d1,m1,y1,d2,m2,y2,h,i,j,k,l:integer;
begin
write('masukkan tanggal lahir=');readln(d1,m1,y1);
write('masukkan tanggal sekarang=');readln(d2,m2,y2);
h:=(y2-y1)*365+(m2-m1)*30+(d2-d1);
i:=h div 365;
j:=h mod 365;
k:=j div 30;
l:=j mod 30;
writeln('umur sekarang=',i,' tahun ',k,' bulan ',l,' hari');
end.

15. NILAI MAHASISWA
program nilai_mahasiswa;
uses wincrt;
var nama,nim:string;
nt,nm,nf,na:real;
begin
write('nama=');readln(nama);
write('nim=');readln(nim);
write('nilai tugas=');readln(nt);
write('nilai mid=');readln(nm);
write('nilai final=');readln(nf);
na:=(0.20*nt)+(0.30*nm)+(0.50*nf);
writeln('nilai akhir=',na:0:2);
begin
if na>85 then write('nilai A')else
if na<86 then write('nilai B')else
if na<71 then write('nilai C')else
if na<56 then write('nilai D')else
write('nilai C')
end;
end.



16. RUMUS PERSAMAAN KUADRAT
program rumus;
uses wincrt;
var x1,x2,a,b,c,d:real;
begin
write('masukkan nilai a=');readln(a);
write('masukkan nilai b=');readln(b);
write('masukkan nilai c=');readln(c);
if a=0 then write('error')else
begin
d:=(b*b)-(4*a*c);
writeln('D=',d:0:2);
if d>0 then
begin
writeln('pers.kuadrat memp.2 akar yg berbeda');
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
end
else
if d=0 then
begin
writeln('pers.kuadrat memp.akar yg sama');
x1:=-b/(2*a);
x2:=x1;
write('jadi x1 dan x2 adalah=',x2:0:2);
end
else
writeln('tdk memp akar real');
end;
end.



17. MENU MAKANAN
program menu;
uses wincrt;
var
x:integer;
begin
gotoxy(20,5);writeln('menu warung top=');
gotoxy(20,6);writeln('================');
gotoxy(20,9);writeln('1.penyet');
gotoxy(20,10);writeln('2.bakso');
gotoxy(20,11);writeln('3.mie ayam');
gotoxy(20,12);writeln('4.pindang tetel');
gotoxy(20,16);writeln('apa menu favorit anda?');
readln(x);
case x of
1:begin
clrscr;
writeln('menu yang anda pilih adalah....');
writeln('penyet');
end;
2:begin
clrscr;
writeln('menu yang anda pilih adalah....');
writeln('bakso');
end;
3:begin
clrscr;
writeln('menu yang anda pilih adalah....');
writeln('mie ayam');
end;
4:begin
clrscr;
writeln('menu yang anda pilih adalah....');
writeln('pindang tetel');
end;
5:begin
clrscr;
writeln('kembali ke menu');
end;
end;
end.


18. BILANGAN GANJIL
program bilangan_ganjil;
uses wincrt;
var
x,y,jum:integer;
begin
write('sampai berapa?');readln(y);
begin
x:=1;
repeat
write(x,' ');
x:=x+2;
until
x>y;
end;
end.


19. BILANGAN GENAP
program bilangan_genap;
uses wincrt;
var
x,y,jum:integer;
begin
write('sampai berapa?');readln(y);
begin
x:=2;
repeat
write(x,' ');
x:=x+2;
until
x>y;
end;
end.


20. BILANGAN GENAP DAN GANJIL
program bilangan_genap_dan_ganjil;
uses wincrt;
var x,y,n:integer;
begin
write('masukkan bilangan=');readln(n);
for x:=1 to n do
if x mod 2=0 then write(x:3);writeln(' bilangan genap');
for y:=1 to n do
if y mod 2<>0 then write(y:3);write(' bilangan ganjil');
end.




21. JUMLAH BILANGAN (menggunakan reapet until)
program jumlah_bilangan;
uses wincrt;
var
x,y,jum:integer;
begin
x:=1;
jum:=0;
write('masukkan y=');readln(y);
repeat
write(x);
if x jum:=jum+x;
x:=x+1;
until x>y;
write('=');
write(' ',jum);
end.

22. PENGULANGAN KATA (menggunakan for-to-do)
program perulangan;
uses wincrt;
var
n:integer;
begin
for n:=1 to 5 do
writeln(n,'. Pemrograman Komputer');
end.


23. PERULANGAN KATA (menggunakan repeat until)
program perulangan;
uses wincrt;
var
x:integer;
begin
x:=1;
repeat
writeln(x,'. Pemrograman Komputer');
x:=x+1;
until x>5;
end.




24. PERULANGAN KATA (menggunakan while-do)
program perulangan;
uses wincrt;
var
x:integer;
begin
x:=1;
while x<6 do
begin
writeln(x,'. Pemrograman Komputer');
x:=x+1;
end;
end.


25. SEGITIGA ASYIK
program segitiga;
uses wincrt;
var x,y,z:integer;
begin
write('masukkan angka segitiga asyik=');readln(y);
for x:=1 to y do
begin
for z:=1 to x do
write(x:3);
writeln;
end;
end.



26. JUMLAH SEGITIGA ASYIK
program segitiga;
uses wincrt;
var n,i,j,a:integer;
begin
write('masukkan angka untuk segitiga asyik=');readln(n);
for j:=1 to n do
begin
for i:=1 to j do
if j<=i then write(j:2,' = ')else
write(j:2,' + ');
for i:=1 to j do
a:=i*j;
write(a);
writeln;
end;
end.



27. SEGITIGA 15
program segitiga;
uses wincrt;
var x,y,z:integer;
begin
write('masukkan angka=');readln(y);
for x:=1 to y do
begin
for z:=1 to x do
write(' ',15);
writeln;
end;
end.



28. ARRAY (PERKALIAN MATRIKS)
program perkalian_matrik;
uses wincrt;
var
a,b,c:array [1..25,1..25] of real;
i,j,k,m,n,l:byte;
begin
writeln('PERKALIAN MATRIKS');
write('baris matriks pertama=');readln(m);
write('kolom matriks pertama/brs matriks kedua=');readln(n);
write('kolom matriks kedua=');readln(l);
writeln;
writeln('komponen matriks yang pertama');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']=');readln(a[i,j]);
end;
writeln;
end;
writeln('komponen matriks kedua');
for i:=1 to n do
begin
for j:=1 to l do
begin
write('nilai[',i,',',j,']=');readln(b[i,j]);
end;
writeln;
end;
for i:=1 to m do
begin
for j:=1 to l do
begin
c[i,j]:=0;
for k:=1 to l do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
end;
writeln;
writeln('hasil perkalian matriks');
writeln;
for i:=1 to m do
begin
writeln;
for j:=1 to l do
write(c[i,j]:5:2);
end;
end.




29. FUNGSI
program fungsi_x;
uses wincrt;
var
x:integer;
function fungsi (x:real):real;
var
y:real;
begin
write('masukkan nilai x=');readln(x);
y:=x*x+8*x+10;
fungsi:=y;
end;
begin
clrscr;
writeln('hasil dari nilai y nya adalah=',fungsi(x):2:0);

end.




30. FAKTORIAL
program fak;
uses wincrt;
procedure faktorial(n : byte;var hasil:longint);
begin
if n<=1 then
hasil:=1
else
begin
faktorial(n-1,hasil);
hasil:=n*hasil;
end;
end;

var
n:byte;
f:longint;
begin
write('berapa faktorial?');readln(n);
faktorial(n,f);
writeln('faktorial=',f);
end.

32. ARRAY
Program cetak_angka;
uses wincrt;
var
angka:array[1..10]of integer;
i,n:integer;
begin
write('berapa kali data ingin Anda masukkan?'); read(i);
for n:=1 to i do
begin
write('masukkan nilai Anda = '); read(angka[n]);
end;
clrscr;
for i:=1 to n do
begin
writeln('nilai Anda=',angka[i]);
end;
end.


33. Tukar nilai yang sudah ada
program tukar_variabel;
uses wincrt;
function {a,b,c adl parameter->digunakan pd saat fungsi di panggil}
tukar(a,b,c:integer):integer;
var
temp:integer;
begin
temp:=a; {temp adl variabel didlm fungsi}
a:=c;
c:=temp;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln;
end;
var x,y,z:integer;
begin
x:=100;
y:=200;
z:=300;
write(' nilai sebelum ditukar');
writeln;
writeln('a=',x);
writeln('b=',y);
writeln('c=',z);
writeln;
writeln('nilai sesudah ditukar');
tukar(x,y,z);
write('terima kasih');
end.

34. Tukar nilai a dan b yang diinputkan
program tukar_nilai;
uses wincrt;
var
a: integer;
b: integer;
temp: integer;
begin
write ('masukkan nilai a=');readln(a);
write ('masukkan nilai b=');readln(b);
temp:=a;

a:=b;
b:=temp;

writeln('nilai setelah ditukar adalah:');
writeln('a=',a);
writeln('b=',b);
end.


35. Tukar kata-kata
program tukar_kata;
uses wincrt;

function
tukar(a,b,c:string):string;
var
temp:string;
begin
temp:=a; {temp adl variabel didlm fungsi}
a:=c;
c:=temp;
writeln(a,' ',b,' ',c);
writeln(b,' ',a,' ',c);
writeln(c,' ',b,' ',a);
writeln;
end;
var x,y,z:string;
begin
write('sebelum diacak');
writeln;
writeln('masukkan kata1='); readln(x);
writeln('masukkan kata2='); readln(y);
writeln('masukkan kata3='); readln(z);
writeln;
writeln('sesudah ditukar');
tukar(x,y,z);
write('terima kasih');
end.





36. Acak Tiga Kata
program tukar_kata;
uses wincrt;
function {a,b,c adl parameter->digunakan pd saat fungsi di panggil}
tukar(a,b,c:string):string;
var
temp1,temp2:string;
begin
temp1:=a; {temp adl variabel didlm fungsi}
a:=c;
c:=temp1;
temp2:=b;
b:=a;
a:=temp2;
writeln(a);
writeln(b);
writeln(c);
writeln;
end;
var x,y,z:string;
begin
write('sebelum diacak');
writeln;
writeln('masukkan kata1='); readln(x);
writeln('masukkan kata2='); readln(y);
writeln('masukkan kata3='); readln(z);
writeln;
writeln('sesudah ditukar');
tukar(x,y,z);
write('terima kasih');
end.

37.Acak nama

program utak_atik_nama;
uses wincrt;
var
nama1,nama2,temp:string;
begin
write ('masukkan nama 1=');readln(nama1);
write ('masukkan nama 2=');readln(nama2);
temp:=nama1;
nama1:=nama2;
nama2:=temp;

writeln('utak atik');
writeln(nama1,' ',nama2,' ',nama2);
writeln(nama2,' ',nama2,' ',nama1);
end.

38. Penjumlahan Deret bilangan

program penjumlahan;
uses wincrt;
var x,y,jmlh:integer;
begin
x:=1;
jmlh:=0;
write('masukkan nilai suatu bilangan:');readln(y);
repeat
write (x);
if x write ('+');
jmlh:=jmlh+x;
x:=x+1;
until x>y;
write('=');
write(jmlh);
end.

39. Perkalian Deret Bilangan

program perkalian;
uses wincrt;
var x,y,kali:real;
begin
x:=1;
kali:=1;
write('masukkan nilai suatu bilangan: ');readln(y);
write('hasil kali bilangan:');
repeat
write (x:1:0);
if x write ('*');
kali:=kali*x;
x:=x+1;
until x>y;
write('=');
write(kali:0:0);
end.

40. Penjumlahan Segitiga Asik

program segitiga_asyik;
uses wincrt;
var
i,j,n,jumlah:integer;
begin
write('masukkan angka untuk mainan segitiga asyik:');
readln(n);

for j:=1 to n do

begin
for i:=1 to j do

if j<=i then
write(j:2,'= ')
else write(j:2,'+');
write;
for i:=1 to j do
jumlah:=i*j;
write(jumlah);
writeln;
writeln(' ');
end;
end.

41. Ulang Bilangan Genap

program ulang_genap;
uses wincrt;
var num:integer;
begin
num:=2;
repeat
write(' ',num);
num:=num+2;
until num>50
end.


42.Mengeja Angka
Program Terbilang;
Uses Wincrt;
Var
a,b,c:longint;
Begin
Write('Masukkan Angka: ');readln(a);
b:=a div 10;
c:=a mod 10;
Writeln;
Begin
If (b=1) and (c=0) then write('sepuluh');
If (b=1) and (c=1) then write('sebelas');
If (b=1) and (c=2) then write('dua belas');
If (b=1) and (c=3) then write('tiga belas');
If (b=1) and (c=4) then write('empat belas');
If (b=1) and (c=5) then write('lima belas');
If (b=1) and (c=6) then write('enam belas');
If (b=1) and (c=7) then write('tujuh belas');
If (b=1) and (c=8) then write('delapan belas');
If (b=1) and (c=9) then write('sembilan belas');
Begin
If (b=0) and (c=1) then write('satu');
If (b=0) and (c=2) then write('dua');
If (b=0) and (c=3) then write('tiga');
If (b=0) and (c=4) then write('empat');
If (b=0) and (c=5) then write('lima');
If (b=0) and (c=6) then write('enam');
If (b=0) and (c=7) then write('tujuh');
If (b=0) and (c=8) then write('delapan');
If (b=0) and (c=9) then write('sembilan');
End;
Case b of
2: Write('dua puluh ');
3: Write('tiga puluh ');
4: Write('empat puluh ');
5: Write('lima puluh ');
6: Write('enam puluh ');
7: Write('tujuh puluh ');
8: Write('delapan puluh ');
9: Write('sembilan puluh ');
End;
If b>1 then
Case c of
1: Write('satu');
2: Write('dua');
3: Write('tiga');
4: Write('empat');
5: Write('lima');
6: Write('enam');
7: Write('tujuh');
8: Write('delapan');
9: Write('sembilan');
End;
End;
End.






43. Program Cetak Angka
Program cetak_angka;
uses wincrt;
var
angka:array[1..10]of integer;
i,n:integer;
begin
write('berapa kali data ingin Anda masukkan?'); read(i);
for n:=1 to i do
begin
write('masukkan nilai Anda = '); read(angka[n]);
end;
clrscr;
for i:=1 to n do
begin
writeln('nilai Anda=',angka[i]);
end;
end.

44. Perkalian deret bilangan
program faktorial_suatu_bilangan;
uses wincrt;

function
factorial(a:integer):real{longint};
begin
if (a=1) then
factorial:=1
else
factorial:=a*factorial(a-1);
end;
var
x,y:integer;
begin
x:=1;
writeln('faktorial sequence');
writeln;
write('berapa banyak bilangan yang anda inginkan=');
readln(y);
repeat
write(x);
if xwrite ('*');
x:=x+1;
until x>y;
write('=');
writeln(factorial(x):8:0);
end.

45. Fibonacci
program program_fibonacci;
uses wincrt;
function fibonacci(n : integer):integer;
begin
if (n = 1) or (n = 2) then fibonacci := 1
else
fibonacci := fibonacci(n - 1) + fibonacci(n - 2);
end;
var x:integer;
begin
write('masukkan nilai x='); readln(x);
writeln('fibonacci dari suku ke x=',fibonacci(x));
end.

46. rekursi
program contoh_rekursi;
uses wincrt;
var akhir:word;
procedure Rekursi;
begin
if akhir<200 then
begin write('pascal':15);
write(' ');
akhir:=akhir+1;
rekursi;
end;
end;
begin
akhir:=0;
rekursi;
end.


47. Factorial
program factorial_bilangan;
uses wincrt;
var data:longint;
procedure factorial_bil(n:longint);
var
i,fac:longint;
begin
if n<0 then
begin
writeln('bilangan negatif tidak mempunyai nilai factorial');
end
else
begin
fac:=1;
for i:=1 to n do
begin
fac:=fac*i;
end;
writeln(n:0,'!=',fac);
end;
end;
begin
clrscr;
write('masukkan data nilai bilangan bulat=');
readln(data);
factorial_bil(data);
end.

48. Tukar duit
program tukar_duit;
uses wincrt;
var a,b,c,d,e,f,g,h,i,j:longint;
begin
writeln('masukkan uang anda(maksimal 99999)='); readln(a);
b:=a div 10000;
c:=a mod 10000;
d:=c div 1000;
e:=c mod 1000;
f:=e div 500;
g:=e mod 500;
h:=g div 200;
i:=g mod 200;
j:=i div 100;
write (a,'=',b,'sepuluhribuan, ',d,'seribuan, ',f,'limaratusan, ',h,'duaratusan ',j,'seratusan');
end.

49. Tukar koin

Program tukar_koin;
uses wincrt;
var e,f,g,h,i,j,x,y,z:longint;
begin
writeln('masukkan uang anda(maksimal 99999)='); readln(e);
f:=e div 500;
g:=e mod 500;
h:=g div 200;
i:=g mod 200;
j:=i div 100;
writeln (f,'limaratusan, ',h,'duaratusan ',j,'seratusan');
x:=500;
for x:=1 to f do
write('500 ');

y:=200;
for y:=1 to h do
write('200 ');

z:=100;
for z:=1 to j do
write ('100 ');
end.


50. program tukar hallo hai
program tukar;
uses wincrt;
function tukar(a,b:string):string;
var
temp:string;
begin
temp:=a;
a:=b;
b:=temp;
writeln(a,' ',b,' ',a);
writeln(b,' ',a,' ',b);
end;
var x,y:string;
begin
x:='hallo';
y:='hai';
{writeln('nilai sebelum ditukar');}
writeln;
writeln(x);
writeln(y);
writeln;
{writeln('nilai sesudah ditukar');}
tukar(x,y);
end.