SlideShare a Scribd company logo
Soal dan bahasan Pascal
FUNGSI
Perhatikan algoritma berikut:
function ABC (a, b : integer) :
integer;
var
hasil : integer;
begin
if (a mod b = 0) then ABC := b
else ABC := ABC(a, b-1);
end;
Berapakah hasil ABC(12, 4)?
Pembahasan
Fungsi ABC mengembalikan
nilai b jika a merupakan
kelipatan b (a mod b = 0). Jika
b bukan faktor dari a, maka
fungsi ini akan memanggil
dirinya kembali dengan
parameter ABC(a,b‐1). Tampak
bahwa fungsi ABC akan
mengembaikan nilai faktor
terbesar dari a yang kurang
dari atau sama dengan b.
Maka hasil ABC(12,4) adalah 4.
Untuk soal 1 – 2
FUNCTION fak (x, y: integer) :
Integer;
BEGIN
if y:= 0 then fak := 1
else
fak := x * fak (x, y-1);
END;
Writeln (fak(5, 3));
1. Apa hasil dari program di atas!
a. 125
b. 8
c. 81
d. 3
e. 15
Pembahasan :
Ini adalah contoh kasus fungsi
dengan mempergunakan rekursi
(fungsi yang mampu memangil
dirinya sendiri)
Nilai x awal adalah 5, nilai y awal
adalah 3 maka
fak (5,3) —> 5 * fak (5, 3-1) = 5 *
25 = 125
fak (5,2) —> 5 * fak (5, 2-1) = 5 * 5
= 25
fak (5,1) —> 5 * fak (5,1-1) = 5 * 1
= 5
fak (5,0) (proses selesai karena y
=0)
Jadi yang muncul adalah
125
2. Jika writeln (fak(5,3)) diganti
menjadi writeln (fak(4,5)),
hasil dimunculkan adalah…
a. 20
b. 9
c. 1024
d. 64
e. 5
Pembahasan:
Kasus ini sama seperti pada
soal 1
Nilai x awal adalah 4, nilai y
awal adalah 5 maka
fak (4,5) —> 4 * fak (4, 5-1)
dengan mempergunakan hasil
fak ( 4,4) –> 4 * 256 = 1024
fak (4,4) —> 4 * fak (4, 4-1)
dengan mempergunakan hasil
fak ( 4,3) –> 4 * 64 = 256
fak (4,3) —> 4 * fak (4,3-1)
dengan mempergunakan hasil
fak ( 4,2) –> 4 * 16 = 64
fak (4,2) —> 4 * fak (4,2-1)
dengan mempergunakan hasil
fak ( 4,1) –> 4 * 4 = 16
fak (4,1) —> 4 * fak (4,1-1) = 4
* 1 = 4
fak (4,0) (proses selesai karena
y =0)
Jadi yang muncul adalah
1024
3. Manakah yang salah dari
deklarasi dibawah ini
a. function info(a:byte):real;
b. function info:byte;
c. function info(a,b:byte) : real;
d. function info(a: real;
b:integer):real;
e. function info(a:real);
Pembahasan
Ingat bentuk dekelarasi dari
suatu fungsi
FUNCTION
nama_fungsi(daftar_fungsi):ti
pe;
– daftar parameter berisi
sejumlah parameter
– tipe menyatakan tipe dari
hasil fungsi
– Jika fungsi tidak memiliki
parameter, tanda () tidak perlu
disertakan.
jadi jawabannya adalah
e.function info(a:real);
For to Do
untuk soal 1 -2
y := 10;
x := 0;
for i := 0 to y-1 do
begin
x:=x+ 2 * i;
end;
Writeln (x);
1. Berapakah output dari
program diatas?
a. 112
b. 110
c. 90
d. 72
e. 45
x
Pembahasan
Program diatas akan
mengulang pernyataan x:=x
+2*i sebanyak 10 kali dari i = 0
sampai 9.
0 = 0 + 2*0
2 = 0 + 2*1
6 = 2 + 2*2
12 = 6 + 2*3
20 = 12 + 2*4
30 = 20 + 2*5
42 = 30 + 2*6
56 = 42 + 2*7
72 = 56 + 2*8
90 = 76 + 2*9
jadi nilai x yang akan
dimunculkan adalah 90.
2. jika baris kelima (x:=x+2*i)
diganti dengan x:= x + i
Berapakah output program
tersebut?
a. 112
b. 110
c. 90
d. 72
e. 45
Pembahasan
0 = 0 + 0
1 = 0 + 1
3 = 1 + 2
6 = 3 + 3
10 = 6 + 4
15 = 10 + 5
21 = 15 + 6
28 = 21 + 7
36 = 28 + 8
45 = 36 + 9
jadi output nya adalah 45.
untuk soal no 3
program x;
var
i,j,k,l : integer;
begin
for i:= 1 to 2 do
for j := 1 to 2 do
write (i*j);
end.
3. output program diatas adalah?
a. 4
b. 6
c. 9
d. 123246369
e. 1
2
3
2
4
6
3
6
9
Pembahasana
i * j
1) —> 1 * 1 = 1
2 * 1 = 2
3 * 1 = 3
2) —> 1 * 2 = 2
2 * 2 = 4
3 * 2 = 6
3) —> 1 * 3 = 3
2 * 3 = 6
3 * 3 = 9
karena write jadi hasil yang akan
dimunculkan berjejeer ke samping
123246369
While do
potongan prgram dibawah untuk soal 1 -2
c := 0
d := 0
while (a>b) do
begin
a := a – b;
c := c + 1;
d := d + b;
end;
write(c,’,’,d);
1. jika nilai a = 15, b = 4 maka keluaran dari
program diatas adalah..
a. 3 , 12
b. 1 , 4
c. 0 , 0
d. 6 , 23
e. 2 , 8
Pembahasan
nilai awal a = 15, b = 4, c = 0, d = 0
kondisi a > b
—–>> 15 > 4 (True), maka
a = 15 – 4
= 11
c = 0 + 1
= 1
d = 0 + 4
= 4
—–>> 11 > 4 (True), maka
a = 11 – 4
= 7
c = 1 + 1
= 2
d = 4 + 4
= 8
—–>> 7 > 4 (True), maka
a = 7 – 4
= 3
c = 2 + 1
= 3
d = 8 + 4
= 12
—–>> 3 > 4 (False), maka perulangan
dihentikan.
Jadi nilai c = 3, d = 12
2. jika nilai a = 34, b = 11 maka keluaran
dari program diatas adalah..
a. 3 , 12
b. 1 , 4
c. 0 , 0
d. 6 , 23
e. 2 , 8
Pembahasan
nilai awal a = 34, b = 11, c = 0, d = 0
kondisi a > b
—–>> 34 > 11 (True), maka
a = 34 – 11
= 23
c = 0 + 1
= 1
d = 0 + 11
= 11
—–>> 23 > 11 (True), maka
a = 23 – 11
= 12
c = 1 + 1
= 2
d = 11 + 11
= 22
—–>> 12 > 11 (True), maka
a = 12 – 11
= 1
c = 2 + 1
= 3
d = 22 + 11
= 33
—–>> 1 > 11 (False), maka perulangan
dihentikan.
Jadi nilai c = 3, d = 33
ANALISIS
Kal1 := ‘ ujian ’; Kal2 :=’ akhir ’;
Hasil dari CONCAT(Kal2,Kal1, “Pascal”) adalah :
A. ujian akhir
B. akhir ujian
C. ujian akhir Pascal
D. akhir ujian Pascal

More Related Content

PDF
Tabel Trigonometri
PPTX
Contoh soal penyelsaian metode biseksi menggunakan excel erna
PDF
Soal latihan kalkulus fungsi
PPTX
Forward Difference, Backward Difference, dan Central
PDF
Sistem Persamaan Linear
PDF
Minggu 9_Teknik Analisis Korelasi
DOC
Contoh notasi-sigma2
DOCX
Program Penjualan Supermarket
Tabel Trigonometri
Contoh soal penyelsaian metode biseksi menggunakan excel erna
Soal latihan kalkulus fungsi
Forward Difference, Backward Difference, dan Central
Sistem Persamaan Linear
Minggu 9_Teknik Analisis Korelasi
Contoh notasi-sigma2
Program Penjualan Supermarket

What's hot (20)

PPTX
Metode numerik pada persamaan diferensial (new)
DOCX
Himpunan matematika diskrit
PPTX
Parasit kelompok 4 kelas A
PPS
Barisan dan Deret ( Kalkulus 2 )
DOCX
Proposal usaha mebel
PPT
STANDARD SCORE, SKEWNESS & KURTOSIS
PPT
Transformasi Laplace
PDF
program menghitung volume bangun ruang dengan bahasa C
PPTX
Materi 6. perulangan
PDF
Proposal pengabdian masyarakat (Diajukan pada program PKM tahun 2013)
PDF
metode euler
PDF
Bab 1 sistem bilangan riil
PDF
Tata Kalimat Bahasa Indonesia yang Efektif
PPTX
Contoh soal dan penyelesaian metode biseksi
DOCX
281669604 makalah-kasus-korupsi
PDF
Statistika inferensial 1
PDF
Ejaan, Diksi, Kalimat, dan Paragraf Bahasa Indonesia
DOCX
Pembahasan ujian teori pemrograman pascal bagian 1
PPT
Bilangan kompleks
PPTX
Presentasi Masalah Korupsi Di Indonesia
Metode numerik pada persamaan diferensial (new)
Himpunan matematika diskrit
Parasit kelompok 4 kelas A
Barisan dan Deret ( Kalkulus 2 )
Proposal usaha mebel
STANDARD SCORE, SKEWNESS & KURTOSIS
Transformasi Laplace
program menghitung volume bangun ruang dengan bahasa C
Materi 6. perulangan
Proposal pengabdian masyarakat (Diajukan pada program PKM tahun 2013)
metode euler
Bab 1 sistem bilangan riil
Tata Kalimat Bahasa Indonesia yang Efektif
Contoh soal dan penyelesaian metode biseksi
281669604 makalah-kasus-korupsi
Statistika inferensial 1
Ejaan, Diksi, Kalimat, dan Paragraf Bahasa Indonesia
Pembahasan ujian teori pemrograman pascal bagian 1
Bilangan kompleks
Presentasi Masalah Korupsi Di Indonesia
Ad

Similar to Soal dan bahasan Pascal (20)

PDF
Pembahasan osk komputer sma 2014 - algoritma
PPT
1. BIL. BERPANGKAT(s) - Matematika SMP Kelas IX [www.defantri.com].ppt
PDF
Rumus cepat-matematika-fungsi-kuadrat
PPTX
Faizatul khayati
PPTX
Faizatul khayati
PDF
Pembahasan soal un matematika sma 2012 program ips
PPTX
bilangan bulat (Meidytha puti sabrina)
PPTX
2. Operasi Hitung pada Bilangan Bulat.pptx
DOCX
SOAL UN MATEMATIKA Paket 1 ips
PPTX
Soal olimpiade tik
PPTX
Bahan ajar MK Matematika "Persamaan dan fungsi kuadrat"
PPTX
PELAJARAN MATEMATIKA BILANGAN BILANGAN BULAT.pptx
PPTX
Matematika : Operasi Vektor Secara Aljabar
PDF
Soal Pascal OSN Komputer
PPTX
Bilangan bulat
PPTX
Matdas.pptx
PDF
Pembahasan Prediksi UN Matematika SMA IPA 2018 Paket 2
PPTX
ppt-bilangan-bulat-smp-kelas 7.pptx
PDF
Ba201 chapter -1-complex number
PPTX
Pert 1-DASAR-DASAR OPERASI BILANGAN.pptx
Pembahasan osk komputer sma 2014 - algoritma
1. BIL. BERPANGKAT(s) - Matematika SMP Kelas IX [www.defantri.com].ppt
Rumus cepat-matematika-fungsi-kuadrat
Faizatul khayati
Faizatul khayati
Pembahasan soal un matematika sma 2012 program ips
bilangan bulat (Meidytha puti sabrina)
2. Operasi Hitung pada Bilangan Bulat.pptx
SOAL UN MATEMATIKA Paket 1 ips
Soal olimpiade tik
Bahan ajar MK Matematika "Persamaan dan fungsi kuadrat"
PELAJARAN MATEMATIKA BILANGAN BILANGAN BULAT.pptx
Matematika : Operasi Vektor Secara Aljabar
Soal Pascal OSN Komputer
Bilangan bulat
Matdas.pptx
Pembahasan Prediksi UN Matematika SMA IPA 2018 Paket 2
ppt-bilangan-bulat-smp-kelas 7.pptx
Ba201 chapter -1-complex number
Pert 1-DASAR-DASAR OPERASI BILANGAN.pptx
Ad

Recently uploaded (20)

PPTX
Slide PPT Metode Ilmiah Kelas 7 SMP.pptx
DOCX
Modul Ajar Deep Learning Biologi Kelas 10 SMA Terbaru 2025
PDF
Digital Statecraft Menuju Indonesia Emas 2045: Diplomasi Digital, Ketahanan N...
PDF
Gangguan Penglihatan Mata - presentasi biologi
PPTX
Keterbatasan-Fasilitas-dalam-Mengajar-KKA.pptx
PPTX
Rancangan Kegiatan Kokurikuler SMP N 1 Karanggede
PPTX
PPT Kurikulum Berbasis Cinta tahun 2025.
PPTX
Modul 2. Berpikir Komputasional sebagai Dasar Koding untuk Kecerdasan Artifis...
DOCX
Modul Ajar Pembelajaran Mendalam Senbud Seni Tari Kelas XII Terbaru 2025
PPSX
Teknik Trading Selang Seling Yang Dapat Digunakan Untuk Trading Manual Maupun...
DOCX
Modul Ajar Deep Learning Bahasa Inggris Lanjutan Kelas 11 SMA Terbaru 2025
PPTX
Bahan Tayang OJT Pembelajaran Mendalam KS
PDF
lembar kerja LMS tugas pembelajaran mendalam
PPTX
PENGIMBASAN PEMBELAJARAN MENDALAM (DEEP LEARNING)
DOCX
Modul Ajar Pembelajaran Mendalam Senbud Seni Musik Kelas XII Terbaru 2025
PDF
KELOMPOK 4 LK Modul 4 KP4 Asesmen PM (3).pdf
PDF
BAHASA INDONESIA KELAS 6 SD TEKS INFORMATIF
PPTX
5. Bahan Bacaan Asinkronus Modul 5_ Perencanaan Pembelajaran.pptx
DOCX
Modul Ajar Pembelajaran Mendalam Senbud Seni Rupa Kelas XII Terbaru 2025
DOCX
Modul Ajar Pembelajaran Mendalam Senbud Seni Teater Kelas XII Terbaru 2025
Slide PPT Metode Ilmiah Kelas 7 SMP.pptx
Modul Ajar Deep Learning Biologi Kelas 10 SMA Terbaru 2025
Digital Statecraft Menuju Indonesia Emas 2045: Diplomasi Digital, Ketahanan N...
Gangguan Penglihatan Mata - presentasi biologi
Keterbatasan-Fasilitas-dalam-Mengajar-KKA.pptx
Rancangan Kegiatan Kokurikuler SMP N 1 Karanggede
PPT Kurikulum Berbasis Cinta tahun 2025.
Modul 2. Berpikir Komputasional sebagai Dasar Koding untuk Kecerdasan Artifis...
Modul Ajar Pembelajaran Mendalam Senbud Seni Tari Kelas XII Terbaru 2025
Teknik Trading Selang Seling Yang Dapat Digunakan Untuk Trading Manual Maupun...
Modul Ajar Deep Learning Bahasa Inggris Lanjutan Kelas 11 SMA Terbaru 2025
Bahan Tayang OJT Pembelajaran Mendalam KS
lembar kerja LMS tugas pembelajaran mendalam
PENGIMBASAN PEMBELAJARAN MENDALAM (DEEP LEARNING)
Modul Ajar Pembelajaran Mendalam Senbud Seni Musik Kelas XII Terbaru 2025
KELOMPOK 4 LK Modul 4 KP4 Asesmen PM (3).pdf
BAHASA INDONESIA KELAS 6 SD TEKS INFORMATIF
5. Bahan Bacaan Asinkronus Modul 5_ Perencanaan Pembelajaran.pptx
Modul Ajar Pembelajaran Mendalam Senbud Seni Rupa Kelas XII Terbaru 2025
Modul Ajar Pembelajaran Mendalam Senbud Seni Teater Kelas XII Terbaru 2025

Soal dan bahasan Pascal

  • 3. Perhatikan algoritma berikut: function ABC (a, b : integer) : integer; var hasil : integer; begin if (a mod b = 0) then ABC := b else ABC := ABC(a, b-1); end; Berapakah hasil ABC(12, 4)? Pembahasan Fungsi ABC mengembalikan nilai b jika a merupakan kelipatan b (a mod b = 0). Jika b bukan faktor dari a, maka fungsi ini akan memanggil dirinya kembali dengan parameter ABC(a,b‐1). Tampak bahwa fungsi ABC akan mengembaikan nilai faktor terbesar dari a yang kurang dari atau sama dengan b. Maka hasil ABC(12,4) adalah 4.
  • 4. Untuk soal 1 – 2 FUNCTION fak (x, y: integer) : Integer; BEGIN if y:= 0 then fak := 1 else fak := x * fak (x, y-1); END; Writeln (fak(5, 3)); 1. Apa hasil dari program di atas! a. 125 b. 8 c. 81 d. 3 e. 15 Pembahasan : Ini adalah contoh kasus fungsi dengan mempergunakan rekursi (fungsi yang mampu memangil dirinya sendiri) Nilai x awal adalah 5, nilai y awal adalah 3 maka fak (5,3) —> 5 * fak (5, 3-1) = 5 * 25 = 125 fak (5,2) —> 5 * fak (5, 2-1) = 5 * 5 = 25 fak (5,1) —> 5 * fak (5,1-1) = 5 * 1 = 5 fak (5,0) (proses selesai karena y =0) Jadi yang muncul adalah 125
  • 5. 2. Jika writeln (fak(5,3)) diganti menjadi writeln (fak(4,5)), hasil dimunculkan adalah… a. 20 b. 9 c. 1024 d. 64 e. 5 Pembahasan: Kasus ini sama seperti pada soal 1 Nilai x awal adalah 4, nilai y awal adalah 5 maka fak (4,5) —> 4 * fak (4, 5-1) dengan mempergunakan hasil fak ( 4,4) –> 4 * 256 = 1024 fak (4,4) —> 4 * fak (4, 4-1) dengan mempergunakan hasil fak ( 4,3) –> 4 * 64 = 256 fak (4,3) —> 4 * fak (4,3-1) dengan mempergunakan hasil fak ( 4,2) –> 4 * 16 = 64 fak (4,2) —> 4 * fak (4,2-1) dengan mempergunakan hasil fak ( 4,1) –> 4 * 4 = 16 fak (4,1) —> 4 * fak (4,1-1) = 4 * 1 = 4 fak (4,0) (proses selesai karena y =0) Jadi yang muncul adalah 1024
  • 6. 3. Manakah yang salah dari deklarasi dibawah ini a. function info(a:byte):real; b. function info:byte; c. function info(a,b:byte) : real; d. function info(a: real; b:integer):real; e. function info(a:real); Pembahasan Ingat bentuk dekelarasi dari suatu fungsi FUNCTION nama_fungsi(daftar_fungsi):ti pe; – daftar parameter berisi sejumlah parameter – tipe menyatakan tipe dari hasil fungsi – Jika fungsi tidak memiliki parameter, tanda () tidak perlu disertakan. jadi jawabannya adalah e.function info(a:real);
  • 8. untuk soal 1 -2 y := 10; x := 0; for i := 0 to y-1 do begin x:=x+ 2 * i; end; Writeln (x); 1. Berapakah output dari program diatas? a. 112 b. 110 c. 90 d. 72 e. 45 x Pembahasan Program diatas akan mengulang pernyataan x:=x +2*i sebanyak 10 kali dari i = 0 sampai 9. 0 = 0 + 2*0 2 = 0 + 2*1 6 = 2 + 2*2 12 = 6 + 2*3 20 = 12 + 2*4 30 = 20 + 2*5 42 = 30 + 2*6 56 = 42 + 2*7 72 = 56 + 2*8 90 = 76 + 2*9 jadi nilai x yang akan dimunculkan adalah 90.
  • 9. 2. jika baris kelima (x:=x+2*i) diganti dengan x:= x + i Berapakah output program tersebut? a. 112 b. 110 c. 90 d. 72 e. 45 Pembahasan 0 = 0 + 0 1 = 0 + 1 3 = 1 + 2 6 = 3 + 3 10 = 6 + 4 15 = 10 + 5 21 = 15 + 6 28 = 21 + 7 36 = 28 + 8 45 = 36 + 9 jadi output nya adalah 45.
  • 10. untuk soal no 3 program x; var i,j,k,l : integer; begin for i:= 1 to 2 do for j := 1 to 2 do write (i*j); end. 3. output program diatas adalah? a. 4 b. 6 c. 9 d. 123246369 e. 1 2 3 2 4 6 3 6 9 Pembahasana i * j 1) —> 1 * 1 = 1 2 * 1 = 2 3 * 1 = 3 2) —> 1 * 2 = 2 2 * 2 = 4 3 * 2 = 6 3) —> 1 * 3 = 3 2 * 3 = 6 3 * 3 = 9 karena write jadi hasil yang akan dimunculkan berjejeer ke samping 123246369
  • 12. potongan prgram dibawah untuk soal 1 -2 c := 0 d := 0 while (a>b) do begin a := a – b; c := c + 1; d := d + b; end; write(c,’,’,d); 1. jika nilai a = 15, b = 4 maka keluaran dari program diatas adalah.. a. 3 , 12 b. 1 , 4 c. 0 , 0 d. 6 , 23 e. 2 , 8 Pembahasan nilai awal a = 15, b = 4, c = 0, d = 0 kondisi a > b —–>> 15 > 4 (True), maka a = 15 – 4 = 11 c = 0 + 1 = 1 d = 0 + 4 = 4 —–>> 11 > 4 (True), maka a = 11 – 4 = 7 c = 1 + 1 = 2 d = 4 + 4 = 8 —–>> 7 > 4 (True), maka a = 7 – 4 = 3 c = 2 + 1 = 3 d = 8 + 4 = 12 —–>> 3 > 4 (False), maka perulangan dihentikan. Jadi nilai c = 3, d = 12
  • 13. 2. jika nilai a = 34, b = 11 maka keluaran dari program diatas adalah.. a. 3 , 12 b. 1 , 4 c. 0 , 0 d. 6 , 23 e. 2 , 8 Pembahasan nilai awal a = 34, b = 11, c = 0, d = 0 kondisi a > b —–>> 34 > 11 (True), maka a = 34 – 11 = 23 c = 0 + 1 = 1 d = 0 + 11 = 11 —–>> 23 > 11 (True), maka a = 23 – 11 = 12 c = 1 + 1 = 2 d = 11 + 11 = 22 —–>> 12 > 11 (True), maka a = 12 – 11 = 1 c = 2 + 1 = 3 d = 22 + 11 = 33 —–>> 1 > 11 (False), maka perulangan dihentikan. Jadi nilai c = 3, d = 33
  • 14. ANALISIS Kal1 := ‘ ujian ’; Kal2 :=’ akhir ’; Hasil dari CONCAT(Kal2,Kal1, “Pascal”) adalah : A. ujian akhir B. akhir ujian C. ujian akhir Pascal D. akhir ujian Pascal