JAWABAN TUGAS INI DI KIRIM PALING LAMBAT TGL 10 DESEMBER 2012 VIA EMAIL DAN HARUS KONFIRMASI VIA SMS, JIKA TIDAK ADA BALASAN ATAU FORWARD MAKA PENGIRIMAN EMAIL TERJADI KESALAHAN ... THANKS.
BUATLAH PENALARAN ALGORITMA DAN STEP DALAM PASCALNYA ... SELAMAT BELAJAR.
DESKRIPSI
Berikut ini
struktur if-then-else
If (a and not (not c
and not b)) or not ((c and b) or not a)
Then
writeln(‘merah’)
Else writeln
(‘putih’)
1.
Agar
algoritma itu selalu menuliskan ‘merah’ maka kondisi yang tepat adalah....
2. Buatlah operasi logik untuk menggantikan operasi logik (notasi if dan then di atas)
3. jika a berharga false maka ....
DESKRIPSI
Perhatikan
algoritma berikut :
Procedure Bingo(t :
integer);
Begin
If(t<2) then
Writeln(‘Bingo’)
Else
Begin
Bingo(t-1);
Bingo(t-2);
End;
End;
4.
Berapa
kalikah ‘Bingo’ dituliskan jika procedure tersebut dipanggil dengan Bingo(6) ?
DESKRIPSI
Perhatikan
algoritma berikut :
Procedure
Boo(t:integer);
Begin
If
(t>0)then
Begin
For i:=1 to t do writeln(‘Boo’);
Boo(t div 2);{t dibagi 2 dan
dibulatkan ke bawah}
End;
End;
5.
Berapa
kalikah ‘Boo’ dituliskan jika procedure tersebut dipanggil dengan Boo(k) dimana
k adalah suatu bilangan 2N ?
6. Pemanggilan Boo(1000)menghasilkan
‘Boo’ sebanyak ?
7. Untuk menghasilkan pencetakan
‘Boo’ sebanyak 200 kali memerlukan pemanggilan dengan ?
DESKRIPSI
Type kal =
string[20];
Peocedure
pqr(x:kal, n:byte);
Begin
If
n>0 then
Begin
write(x[n]);pqr(x,n-1);end;
End;
8.
Bila
dipanggil procedure dengan pqr(‘TOKI97’,6);
Maka
output yang dicetak adalah :
9. Bila procedure pqr di atas
dipanggil dengan statement pqr(‘kasur nababan rusak’,20), maka output yang dihasilkan adalah :
10. x :=0; y :=0;
while
x<10 do
begin
x:=x+1; y := y + x; end;
writeln(x,y);
berapa
harga x yang dicetak ?