Contoh soal uts pemrograman pascal dan jawabannya

CopasCoding

    Hello Sobat Instan. Kalian sedang atau akan melaksanakan UTS khususnya Teknik Informatika ataupun Jurusan RPL. Kali ini CopasCoding akan memberikan beberapa contoh soal UTS dan tentunya dengan Jawabannya juga untuk kalian. Agar kalian mudah memahami atau bahkan soalnya mirip dan kalian tinggal kumpulkan saja. Inilah contoh soal tersebut :

Contoh soal uts pemrograman pascal dan jawabannya

1. 
Membuat program membuktikan fakta dengan pascal



Jawaban
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 		program nomer_1;
uses crt;
var input1, input2, input3, hasil1:Integer;
hasil2,hasil3 : Boolean;
begin
clrscr;
Writeln('====================');
Writeln('== masukkan Nilai ==');
Writeln('====================');
Write ('nilai 1 = '); readln(input1);
Write ('Nilai 2 = '); readln(input2);
Write('Nilai 3 = '); readln(input3);
hasil1 := input1 mod input2;
hasil2 := hasil1 =0;
hasil3 := input3 > input2;
WriteLn('=================================================');
WriteLn(' Apakah Nilai 1 adalah kelipatan nilai 2?');
WriteLn('==================================================');
if ( hasil1=0) then
begin
WriteLn('Ya Betul (',hasil2,')');
end
else
begin
WriteLn('Sayang Sekali (',hasil2,')');
end ;
WriteLn('=================================================');
WriteLn(' Apakah Nilai 3 lebih besar dari nilai 2? ');
WriteLn('==================================================');
if (hasil3=true) then
begin
writeln ( 'Yap Betul (' ,hasil3, ')');
end
else
begin
WriteLn( 'Sayang Sekali (',hasil3, ')');
end;
end.


Next Pages: 1 2 3