11. Diketahui A berisi 25, B berisi 13 dan C berisi 37,
dijalankan algoritma
B ß A
C ß B
A ß C
OUTPUT(A)
Keluaran
dari program diatas adalah … 25
program no11 ;
uses crt ;
var a,b,c : integer ;
begin
clrscr ;
write('Masukan Nilai a: ');
readln(a);
write('masukan nilai b: ');
readln(b);
write('masukan nilai c: ');
readln(c);
b := a ;
c := b ;
a := c ;
writeln('maka a adalah : ',a);
readln();
end.
12.
Perhatikan
potongan algoritmaberikut:
na, uts, uas, tugas,
quiz: integer
utsß75
uasß80
tugasß50
quizß50
naß (uts* 30 /100) + (uas*35 /
100) + (tugas*15 /100) + (quiz * 20 / 100)
IF
na>80 THEN
indeksß’A’
ENDIF
IF
na>60 THEN
indeksß’B’
ENDIF
indeksß’C’
indeksß’A’
OUTPUT
(indeks)
Apakah
Keluaran dari program diatas?
program soal_no12;
uses crt;
var
na, uts, uas, tugas, quiz : integer;
indeks : char;
begin
clrscr;
uts := 75;
uas := 80;
tugas := 50;
quiz := 50;
na := (uts * 30 div 100) + (uas * 35 div 100) + (tugas * 15 div 100) + (quiz * 20 div 100);
if na > 80 then
indeks := 'A';
if na > 60 then
indeks := 'B';
end.
indeks := 'C'
indeks := 'A'
writeln(' maka indeks nilainya adalah: ',indeks); readln();
end.
13. Diberikan
potongan algoritma sbb :
iß 5
iß 8
OUTPUT(i)
TampilandariOUTPUT(i) adalah
…
program no13;
uses crt ;
var
i : integer ;
begin
clrscr ;
i := 5;
i := 8;
write('maka nilai i adalah ',i);
readln();
end.
14. Diberikan potongan algoritma
sbb :
IF d>0 THEN
d ß d - 1
ELSE
d ß 59
IF (m > 0) THEN
m ß m – 1
ELSE
m ß 59
j ß j - 1
ENDIF
ENDIF
OUTPUT(j+m-d)
Jika
secara berurutan nilai j, m dan d 9,0, dan 0, maka tampilan akhir kode program
diatas adalah? 8
program no14;
uses crt;
var
j,m,d : integer;
begin
clrscr;
write('masukan nilai j: ');
readln(j);
write('masukan nilai m: ');
readln(m);
write('masukan nilai d: ');
readln(d);
if d > 0 then
d := d - 1
else
d := 59;
if (m > 0)then
m := m - 1
else
m := 59;
j := j - 1;
writeln('maka nilai j + m - d adalah: ',j + m - d);
readln();
end.
15.
Perhatikan
algoritmaberikut
Program Soal18
Kamus
x,y:integer
Algoritma
xß15
yß8
zß7
xßy + x
yßx - y
OUTPUT(x)
OUTPUT(y)
END
Keluaran
dari program diatas secara berurutan adalah 23 15
program no15;
uses crt;
var
x,y,z : integer;
begin
x := 15;
y := 8;
z := 7;
x := y + x;
y := x - y;
writeln('maka nilai x: ',x);
writeln('maka nilai y: ',y);
readln();
end.
16. Diketahui A berisi 15, B berisi 23, dijalankan algoritma
A ß B
B ß A
Isi A dan B di
akhir algoritma adalah … 23
23
program no16;
uses crt;
var
a,b : integer;
begin
clrscr;
write('Masukan Nilai a: ');
readln(a);
write('Masukan Nilai b: ');
readln(b);
a := b;
b := a;
writeln('Maka Nilai a: ',a);
writeln('Dan Nilai b: ',b);
readln();
end.
17. Diketahui A berisi 25, B berisi 13 dan C berisi 37,
dijalankan algoritma
B ß A
C ß B
A ß C
Isi C di akhir algoritma adalah … 25
program no17;
uses crt;
var
a,b,c : integer;
begin
write('Masukan Nilai a: ');
readln(a);
write('Masukan Nilai b: ');
readln(b);
write('Masukan Nilai c: ');
readln(c);
b := a;
c := b;
a := c;
writeln('maka nilai c adalah: ',c);
readln();
end.
18. Diberikan
potongan algoritma sbb :
INPUT(N)
IF N<10 THEN
N ß N + 5
ENDIF
OUTPUT(N)
Jika dari perintah INPUT(N), dimasukkan data 15, maka
tampilan dari OUTPUT(N) adalah …
15
program no18;
uses crt;
var
n : integer;
begin
write('Masukan Nilai n: ');
readln(n);
if n < 10 then
n := n + 5
end.
writeln('Maka Nilai n Adalah: ',n);
readln();
end.
19. Sebuah
bilangan yang telah diINPUT ke dalam variable bil akan dipecah menjadi
ratusan,puluhan dan satuan :
ratusanßbil div 100
puluhanß ...
satuanßbil mod 10
Perintah untuk mENDapatkan puluhan di atas
adalah …
program no19;
uses crt;
var
ratusan, puluhan, satuan, x : integer;
begin
clrscr;
write('Masukan Suatu Angka: ');
readln(x);
ratusan := x div 100;
puluhan := x div 10;
satuan := x mod 10;
writeln('maka nilai puluhannya adalah: ',puluhan);
readln();
end.
20. Diberikan
potongan algoritma sbb :
INPUT(j,m,d)
IFd>0 THEN
dßd - 1
ELSE
d ß 59
IF m>0 THEN
m ß m – 1
ELSE
m ß 59
j ß j - 1
ENDIF
ENDIF
OUTPUT(j,m,d)
JikaINPUT(j,m,d), dimasukkan data 9, 0
dan 0, makatampilanakhirdariOUTPUT(j,m,d)adalah …
program soal_no20;
uses crt;
var
j,m,d : integer;
begin
clrscr;
writeln('Masukan Nilai j: ');
readln(j);
writeln('Masukan Nilai m: ');
readln(m);
writeln('Masukan Nilai d: ');
readln(d);
if d > 0 then
d := d - 1
else
d := 59;
if (m > 0)then
m := m - 1
else
m := 59;
j := j - 1;
writeln('Maka Nilai j Adalah: ',j);
writeln('\Maka Nilai m Adalah: ',m);
writeln('Maka Nilai d Adalah: ',d);
readln();
end.