Tugas Pascal

1. Jawaban no. B
uses crt;
var a,d,e:integer;
begin
clrscr;

for a:=1 to 5 do{mengulang sampai 5 kali}
begin
d:=2*a-1; {nilai d adalah dua kali a dikurangi 1}
write(d); {mencetak nilai d}
e:=e+d; {nilai e adalah e awal ditambah d}

if d<9 then {jika nilai d kurang dari 9 maka mencetak tanda +}
write(‘+’)
else {jika tidak mencetak tanda = diikuti nilai e}
write(‘=’,e);

end;

readln;{untuk membaca tampilan}
end.

2. Jawaban no. C
uses crt;
var a,d:integer;
begin
clrscr;
for a:=1 to 5 do {mengulang sampai nilai ke 5}
begin

for d:=1 to a do {mengulang sampai nilai ke a}
write(d,' '); {mencetak nilai d dan spasi kosong}
writeln; {untuk membuat pindah baris/baris kosong}

end;
readln; {untuk membaca tampilan}
end.

3. Jawaban no. D
program fibonancy;{judul program}
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
write('Masukan deret angka: ');readln(a);{menginput banyaknya deret angka}
c:=0;
d:=1;

for b:=0 to a do {mengulang sampai a kali}
begin

if (b=0)or(b=2) then {jika b=0 atau b=2 maka mencetak nilai c dan tanda ,)
write(c,',')
else {jika tidak, menghitung nilai e,c,d, dan mencetak nilai e diikuti tanda ,}
begin
e:=c+d;
c:=d;
d:=e;
write(e,',');
end;

end;
readln;{untuk membaca tampilan}
end.