SOAL LATIHAN PEMROGRAMAN PASCAL

SOAL LATIHAN PEMROGRAMAN PASCAL A. Untuk soal nomor 1 – 25 lihat program di bawah ini : uses crt; var r,r1,r2:real; i:integer; s,s1,s2:string; begin clrscr; s := pred('f'); s1:= pred('3'); s2:= 'PASCAL'; writeln('1 : ',s,s1); writeln('2 : ',succ(s2[3])); writeln('3 : ',succ('j')); s := 'SMU N 1 KRANGKENG'; writeln('4 : ',ord(s[5])); writeln('5 : ',ord('5')); r := 201.456; r1:= 5.5106; writeln('6 : ',trunc(r)); writeln('7 : ',trunc(r1)); writeln('8 : ',trunc(3.45+5.55)); writeln('9 : ',round(r)); writeln('10: ',round(r1)); writeln('11: ',frac(r):0:4); writeln('12: ',frac(r1):0:4); writeln('13: ',int(r):0:4); writeln('14: ',int(r1):0:4); writeln('15: ',trunc(r) div round(r1)); writeln('16: ',trunc(r1)+round(r1) mod round(r1)); writeln('17: ',exp(round(frac(r))):0:2); writeln('18: ',ln(exp(round(frac(r)))):0:2); writeln('19: ',cos(round(r1)-6):0:2); i := 10; dec(i,7); dec(i); writeln('20: ',i); inc(i); inc(i,7); writeln('21: ',i); writeln('22: ',odd(i)); writeln('23: ',odd(i+1)); r := 10; r := r * 10; writeln('24: ',r:0:0); r := 3; r1 := 5; r2 := 4; r := r2; r := r1 - r2; r := r * r1; gotoxy(15,1); writeln('25: ',r:0:0); readln; end.

1

Soal nomor 1 – 25 : 1. Bagaimana out put dari program di atas Pada tampilan ke-1 ? a. 5b b. 52 c. eb d. e2 e. be 2. Bagaimana out put dari program di atas Pada tampilan ke-2 ? a. 20 b. 84 c. 116 d. t e. T 3. Bagaimana out put dari program di atas Pada tampilan ke-3 ? a. 11 b. 75 c. 107 d. k e. K 4. Bagaimana out put dari program di atas Pada tampilan ke-4 ? a. 14 b. 78 c. 110 d. n e. N 5. Bagaimana out put dari program di atas Pada tampilan ke-5 ? a. 5 b. 53 c. e d. E e. Error 6. Bagaimana out put dari program di atas Pada tampilan ke-6 ? a. 456 b. 201 c. 5 d. 5106 e. 6 7. Bagaimana out put dari program di atas Pada tampilan ke-7 ? a. 456 b. 201 c. 5 d. 5106 e. 6 8. Bagaimana out put dari program di atas Pada tampilan ke-8 ? a. 8 b. 9 c. 45 d. 55 e. 0 9. Bagaimana out put dari program di atas Pada tampilan ke-9 ? a. 456 b. 201 c. 5 d. 5106 e. 6 10. Bagaimana out put dari program di atas Pada tampilan ke-10 ? a. 456 b. 201 c. 5 d. 5106 e. 6 11. Bagaimana out put dari program di atas Pada tampilan ke-11 ? a. 0.4560 b. 201.0 c. 5.0000 d. 0.5106 e. 6.0000 12. Bagaimana out put dari program di atas Pada tampilan ke-12 ? a. 0.4560 b. 201.00 c. 5.0000 d. 0.5106 e. 6.0000 13. Bagaimana out put dari program di atas Pada tampilan ke-13 ? a. 2.0100 b. 20.1000 c. 201.0000 d. 2.010E+02 e. 2.01E+02 14. Bagaimana out put dari program di atas Pada tampilan ke-14 ? a. 0.0000 b. 5.0000 c. 6.0000 d. 5 e. 6 15. Bagaimana out put dari program di atas Pada tampilan ke-15 ? a. 3 b. 6 c. 33 d. 201 e. 1206

2

16. Bagaimana out put dari program di atas Pada tampilan ke-16 ? a. 3 b. 33 c. 5 d. 201 e. 6 17. Bagaimana out put dari program di atas Pada tampilan ke-17 ? a. 0 b. 1 c. 0.00 d. 1.00 e. Error 18. Bagaimana out put dari program di atas Pada tampilan ke-18 ? a. 0 b. 1 c. 0.00 d. 1.00 e. Error 19. Bagaimana out put dari program di atas Pada tampilan ke-19 ? a. 0.00E+00 b. 1.00E+00 c. 0.00 d. 1.00 e. Error 20. Bagaimana out put dari program di atas Pada tampilan ke-20 ? a. -1 b. -7 c. 2 d. 7 e. 17 21. Bagaimana out put dari program di atas Pada tampilan ke-21 ? a. -6 b. 1 c. 7 d. 8 e. 10 22. Bagaimana out put dari program di atas Pada tampilan ke-22 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 23. Bagaimana out put dari program di atas Pada tampilan ke-23 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 24. Bagaimana out put dari program di atas Pada tampilan ke-24 ? a. 0 b. 10 c. 20 d. 100 e. 1 25. Bagaimana out put dari program di atas Pada tampilan ke-25 ? a. 5 d. 5 Pada posisi: Pada posisi: Kolom ke-15 , Baris ke-1 Baris ke-15 , Kolom ke-1 b. 3 Pada posisi: Kolom ke-15 , Baris ke-1

e. 3 Pada posisi: Baris ke-15 , Kolom ke-1

c. 8 Pada posisi: Kolom ke-15 , Baris ke-1

3

A. Untuk soal nomor 26 – 46 lihat program di bawah ini : uses crt; var r,r1,r2:real; i:integer; s,s1,s2:string; const s3: set of char = ['S','M','U']; begin clrscr; s := 'KECAMATAN'; s1:= 'KARANGAMPEL'; writeln('1 : ',length(s)); writeln('2 : ',length(s+s1)); writeln('3 : ',concat(s,s1)); writeln('4 : ',concat(s1,' I')); insert('KEC. ',s1,1); writeln('5 : ',s1); writeln('6 : ',copy(s,3,5)); delete(s1,5,12); writeln('7 : ',s1); writeln('8 : ',NOT 203); writeln('9 : ',17 AND 21); writeln('10: ',21 OR 17); writeln('11: ',21 XOR 21); writeln('12: ',NOT -30); writeln('13: ',17 AND 21 OR 17); i := 0; write('14: '); for i:= 3 to 9 do write(i); writeln; i := 0; write('15: '); for i:= 9 downto 3 do write(i); writeln; writeln('16: ',ord(true)); writeln('17: ',pred(true)); writeln('18: ','m' in s3); writeln('19: ','U' in s3); i := 0; s := 'KRANGKENG'; s1:= 'KARANGAMPEL'; for i:= 1 to 20 do if s[i] in ['N'] then s[i] := s1[i]; writeln('20: ',s); i := 0; s := 'KRANGKENG'; s1:= 'KARANGAMPEL'; for i:= 1 to 20 do if s1[i] in ['N'] then s1[i] := s[i]; writeln('21: ',s1); readln; end.

4

Soal nomor 26 – 50 : 26. Bagaimana out put dari program di atas Pada tampilan ke-1 ? a. 9 b. 11 c. 20 d. KECAMATAN e. KARANGAMPEL 27. Bagaimana out put dari program di atas Pada tampilan ke-2 ? a. 9 b. 11 c. 20 d. KECAMATAN e. KARANGAMPEL 28. Bagaimana out put dari program di atas Pada tampilan ke-3 ? a. 20 b. 21 c. KARANGAMPEL d. KECAMATANKARANGAMPEL e. KECAMATAN KARANGAMPEL 29. Bagaimana out put dari program di atas Pada tampilan ke-4 ? a. 13 b. 20 c. KARANGAMPEL I d. KECAMATAN I e. KECAMATAN KARANGAMPEL 30. Bagaimana out put dari program di atas Pada tampilan ke-5 ? a. 15 b. 16 c. 20 d. KEC.KARANGAMPEL e. KEC. KARANGAMPEL 31. Bagaimana out put dari program di atas Pada tampilan ke-6 ? a. KECAMAT b. CAAN c. KECAMATAN d. CAMATAN e. CAMAT 32. Bagaimana out put dari program di atas Pada tampilan ke-7 ? a. KEC b. KEC. c. CAMAT d. KECAMATAN e. Error 33. Bagaimana out put dari program di atas Pada tampilan ke-8 ? a. -203 b. -204 c. -202 d. 204 e. 202 34. Bagaimana out put dari program di atas Pada tampilan ke-9 ? a. 0 b. 16 c. 17 d. 21 e. 38 35. Bagaimana out put dari program di atas Pada tampilan ke-10 ? a. 0 b. 4 c. 16 d. 17 e. 21 36. Bagaimana out put dari program di atas Pada tampilan ke-11 ? a. 0 b. 4 c. 16 d. 17 e. 21 37. Bagaimana out put dari program di atas Pada tampilan ke-12 ? a. 30 b. 29 c. 31 d. -29 e. -31 38. Bagaimana out put dari program di atas Pada tampilan ke-13 ? a. 0 b. 17 c. 21 d. 38 e. 55 39. Bagaimana out put dari program di atas Pada tampilan ke-14 ? a. 1234567 b. 123 c. 789 d. 3456789 e. 9876543 40. Bagaimana out put dari program di atas Pada tampilan ke-15 ? a. 1234567 b. 123 c. 789 d. 3456789 e. 9876543

5

41. Bagaimana out put dari program di atas Pada tampilan ke-16 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 42. Bagaimana out put dari program di atas Pada tampilan ke-17 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 43. Bagaimana out put dari program di atas Pada tampilan ke-18 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 44. Bagaimana out put dari program di atas Pada tampilan ke-19 ? a. 0 b. 1 c. FALSE d. TRUE e. Error 45. Bagaimana out put dari program di atas Pada tampilan ke-20 ? a. KRANGKENG b. KRAAGKEMG c. KRAAGKENG d. KRAAGKEMGKARANGAMPEL e. KRANGKEMG 46. Bagaimana out put dari program di atas Pada tampilan ke-21 ? a. KARANGAMPEL b. KARAGGAMPEL c. KARAGAMPE d. KRAAGKEMGKARANGAMPEL e. KRAAGKEPG 47. Di bawah ini mana yang tidak bisa dikerjakan/di compile oleh Pascal ? Var i,i1:integer; r,r1:real; a. i:=i*i1; b. i:=i1*r1 c. r:=i*r; d. r1:=i*r; e. i:=r*5; 48. Berikut ini manakah yang BUKAN merupakan tipe data real ? a. Exports b. Single c. Comp d. Extended e. Double 49. Apakah out put dari program berikut ? var angka:array[0..50] of longint; i:integer; begin angka[1]:= 1; for i:= 2 to 10 do angka[i]:= angka[i-2]*i; writeln(angka[3]); end. a. 0 b. 2 c. 3

d. 6

e. 20

50. Apakah output dari program berikut ? var i:integer; begin i:1*2; repeat i:=i; until i>0; writeln(i+3); end. a. 0 b. 2 c. 3

d. 5

e. 6

{ SELAMAT MENGERJAKAN } 6