Contoh Soal Pascal (part 1)
Penulisan awalku tentang (secetek) pascal ini bermula karna aku kesulitan nyari soal-soal untuk referensi pascal kelas X. Yah, ndeg sekolahku, pascal tuh baru kali ini diajarain, jadi pengetahuanku masih awam. Tapi, di sini, aku tidak bermaksud sok tau, sekedar berbagi contoh soal. Semoga salah satu dari pembaca ada juga yang mao sharing soal tentang pascal. Habisnya,soal-soal di internet tuh hampir smuanya standart nasional yang super sulit untuk orang yang baru belajar tentang pascal, sepertiku.
Ini baru sedikit, mudah-mudahan guruku ngasih yang lebih banyak lagi biar aku sering sharing :).
Soal:
Tentukan jenis persamaan kuadrat bila nilai A,B, dan C diketahui dan rumus D=b2-4ac!
Dengan tampilan(misal):
-----------------------------------------------
MASUKKAN NILAI A:1
MASUKKAN NILAI B:2
MASUKKAN NILAI C:1
AKAR KEMBAR
-----------------------------------------------
Jawab:
Var
A,B,C:integer:
disk:real;
begin
clrscr;
writeln(‘----------------------------‘);
write(‘MASUKKAN NILAI A:’);readln(A);
write(‘MASUKKAN NILAI B:’);readln(B);
write(‘MASUKKAN NILAI C:’);readln(C);
disk:=sqr(B)-4*A*C;
writeln(‘AKAR KEMBAR);
else
writeln(‘AKAR BERUPA BILANGAN KOMPLEKS’);
writeln(‘-------------------------‘);
readln
end.
Soal:
Hitung gaji karyawan dalam sebulan jika aturan dibuat sbb:
• KAryawan tetap digolongkan menjadi 3 gol.
gol 1. gaji pokok=Rp 2500000
gol 2. gaji pokok=Rp 2000000
gol 3. gaji pokok=Rp 1500000
• Tunjangan KESRA u/ karyawan tetap 20% dari gaji pokonya
• KAryawan honorer digaji berdasarkan jumlah jam kerjanya dalam upah perjam Rp 10000
• Tunjangan KESRA u/ karyawan honorer sebesar Rp 250000
• Upah lembur Rp 15000 berlaku u/ semua karyawan
• PAjak penghasilan sebesar 10% dari gaji kotor berlaku u/ karyawan
dengan tampilan
------------------------------------
DATA PENGGAJIAN KARYAWAN
----------------------------------------
NAMA KARYAWAN :
STATUS (Y/T) :
GOLONGAN :
JUMLAH JAM KERJA/LEMBUR :
GAJI KOTOR :
POTONGAN (10%) :
GAJI DITERIMA :
-----------------------------------
JAwab:
const
gapok1=2500000;
gapok2=2000000;
gapok3=1500000;
kesrat=0.2;
gajih=10000;
kesarh=250000;
lembur=15000;
pph=0.1;
var
nama,status:string[25];
gol:longint;
jjk,jjl:byte;
gakot,pot,diterima:real;
begin
clrscr;
writeln(‘-----------------------------------‘);
writeln(‘DATA PENGGAJIAN’);
writeln(‘----------------------------------‘);
write(‘Nama KAryawan:’);readln(nama);
write(‘Status (y/t):’);readln(status);
if status=’y’ then
begin
write(‘golongan:’);readln(gol);
if gol=1 then
begin
write(‘jumlah jam lembur:’)readln(jjl);
gakot:=gapok1+(kesart*gapok1)+(jjl*lembur);
pot:=0.1+gakot;
diterima:=gakot-pot;
end
else
if gol=2 then
begin
write(‘jumlah jam lembur:’)readln(jjl);
gakot:=gapok2+(kesart*gapok2)+(jjl*lembur);
pot:=0.1+gakot;
diterima:=gakot-pot;
end
else
if gol=3 then
begin
write(‘jumlah jam lembur:’)readln(jjl);
gakot:=gapok3+(kesart*gapok3)+(jjl*lembur);
pot:=0.1+gakot;
diterima:=gakot-pot;
end;
end
else
if status=’t’ then
begin
write(‘jumlah jam kerja:’);readln(jjk);
gakot:=jjk*gajih+kesrah;
pot:=0.1*gakot;
diterima:=gakot-pot;
end;
writeln(‘GAJI KOTOR :Rp’,gakot:8:2);
writeln(‘Potongan (10%) :Rp’,gakot:8:2);
writeln(‘Gaji Diterima :Rp’,diterima:8:2);
writeln(‘---------------------------------------‘);
readln
end.
Soal:
gunakan case pada program u/ melihat (menebak) konteks yg anda inputkan berupa huruf,angka, atau karakter lain.
Dengan tampilan:
----------------------------------------
Input :A
OUTPUT :KARAKTER BERUPA HURUF
----------------------------------------
jawab:
var
output:longint;
input:char;
begin
clrscr;
writeln(‘--------------------------------------‘);
write(‘Input:’);readln(input);
write(‘OUtpuT:’);readln(output);
case input of
‘A’..’Z’,’a’..’z’:write(‘KARAKTER BERUPA HURUF’);
‘0’..’9’:write(‘KARAKTER BERUPA ANGKA’);
else
writeln(‘INPUT BERUPA KARAKTER LAIN’);
end;
writeln(‘-----------------------‘);
readln;
end.
0 Comments
Terimakasih atas kunjungan dan segala apresiasinya. Silakan tinggalkan pesan di kolom komentar jika memang ada yang perlu didiskusikan ^ ^
Jika memerlukan informasi urgent, boleh sapa saya di email karena saya cukup aktif pula di sana :).