Soal Ujian :
1. Buatlah program menghitung volum balok, prisma segitiga, dan limas segiempat beraturan!
2. Buatlah program kalkulator sederhana(+, -, x, /) dengan case of!
3. Buatlah program konverter suhu dari skala 0C ke suhu skala 0R, 0F, dan K dengan procedure!
Semangat Mengerjakan
Gambate Kudasai(Keep spirit)
KUNCI JAWABAN
1. Program mencari volum
program volum_bangun;
uses wincrt;
var p,l,t,a:integer;
c:char;
jenis:integer;
volum_balok,volum_prisma_segitiga,volum_limas_segiempat:real;
begin
repeat
writeln('program mencari volum bangun ');
writeln('==================================');
writeln('1. volum balok ');
writeln('2. volum prisma segitiga ');
writeln('3. volum limas segiempat beraturan');
writeln('==================================');
writeln('pilih jenis program ');
readln(jenis);
if jenis= 1 then
begin
write('masukan nilai panjang= ');readln(p);
write('masukan nilai lebar= ');readln(l);
write('masukan nilai tinggi= ');readln(t);
volum_balok:=p*l*t;
writeln('volum balok= ',volum_balok:2:2);
end;
if jenis= 2 then
begin
write('masukan nilai panjang alas= ');readln(a);
write('masukan nilai tinggi bidang alas= ');readln(l);
write('masukan nilai tinggi prisma= ');readln(t);
volum_prisma_segitiga:=1/2*a*l*t;
writeln('volum prisma segitiga= ',volum_prisma_segitiga:2:2);
end;
if jenis= 3 then
begin
write('masukan nilai rusuk alas= ');readln(a);
write('masukan nilai tinggi limas= ');readln(t);
volum_limas_segiempat:=1/3*a*a*t;
writeln('volum limas segiempat= ',volum_limas_segiempat:2:2);
end;
write('hitung lagi? (y/t)=');readln(c);
clrscr;
until (c='T') or (c='t');
gotoxy(20,10);writeln('terima kasih telah menggunakan program sederhana ini':40);
end.
Catatan: jawaban soal ini bisa dalam bentuk lain
2. Program kalkulator sederhana
program kalkulator_sederhana;
uses wincrt;
var a, b, d, jenis:integer;
c:char;
hasil_penjumlahan, hasil_pengurangan,hasil_perkalian, hasil_pembagian:real;
begin
repeat
writeln(' Menu ');
writeln('================');
writeln('1. penjumlahan ');
writeln('2. pengurangan ');
writeln('3. perkalian ');
writeln('4. pembagian ');
writeln('================');
writeln('silahkan pilih: ');
readln(d);
case d of
1: begin
writeln('penjumlahan');
write('masukan nilai a= ');readln(a);
write('masukan nilai b= ');readln(b);
hasil_penjumlahan:=a+b;
writeln('hasil penjumlahan= ',hasil_penjumlahan:0:0);
end;
2: begin
writeln('pengurangan');
write('masukan nilai a= ');readln(a);
write('masukan nilai b= ');readln(b);
hasil_pengurangan:=a-b;
writeln('hasil pengurangan= ',hasil_pengurangan:0:0);
end;
3: begin
writeln('perkalian');
write('masukan nilai a= ');readln(a);
write('masukan nilai b= ');readln(b);
hasil_perkalian:=a*b;
writeln('hasil perkalian= ',hasil_perkalian:0:0);
end;
4: begin
writeln('pembagian');
write('masukan nilai a= ');readln(a);
write('masukan nilai b= ');readln(b);
hasil_pembagian:=a/b;
writeln('hasil pembagian= ',hasil_pembagian:0:5);
end;
end;
write('hitung lagi? (y/t)=');readln(c);
clrscr;
until (c='T') or (c='t');
gotoxy(10,5);writeln('terima kasih telah menggunakan program kalkulator sederhana ini':20);
end.
3. Program konverter suhu
program konverter_suhu;
uses wincrt;
var a:real;
d:char;
procedure suhu_reamur;
var c,r,suhu_reamur:real;
begin
c:=a;
r:=4/5*c;
suhu_reamur:=r;
writeln('suhu dalam Reamur= ',r:0:2);
end;
procedure suhu_fahrenheit;
var c,f,suhu_fahrenheit:real;
begin
c:=a;
f:=(9/5*c)+32;
suhu_fahrenheit:=f;
writeln('suhu dalam Fahrenheit= ',f:0:2);
end;
procedure suhu_kelvine;
var c,k,suhu_kelvine:real;
begin
c:=a;
k:=c+273;
suhu_kelvine:=k;
writeln('suhu dalam Kelvine= ',k:0:2);
end;
begin
repeat
writeln('|==============|');
writeln('| Menu |');
writeln('|konventer suhu|');
writeln('|==============|');
write('masukan suhu dalam Celcius= ');readln(a);
suhu_reamur;
suhu_fahrenheit;
suhu_kelvine;
write('hitung lagi? (y/t)=');readln(d);
clrscr;
until (d='T') or (d='t');
gotoxy(10,5);writeln('terima kasih telah menggunakan program konverter sederhana ini':20);
end.
Catatan : jawaban dari setiap pertanyaan bisa dalam bentuk lain dari kunci jawaban.
Baca Selengkapnya......
