Output Program
1 + 2 + 3 + 4 + 5 = 15
Sourcode Program
program latihan;
uses crt;
var a,b:integer;
begin
b:=0;
clrscr;
for a:=1 to 5 do
begin
write (a,'');
if a(5 then
write (' + ');
end;
writeln(' = ',b);
readln;
end
Soal B
Output Program
1+3+5+7+9=25
Sourcode Program
uses crt;
var
a,b:integer;
begin
clrscr;
for a:=1 to 9 do
begin
write(a);
b:=b+a;
if a<9>
Soal C
Output Program
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
source code
uses crt;
var
a,b:integer;
begin
clrscr;
a:=1;
repeat
b:=1;
repeat
write(b);
b:=b+1;
until
b>a;
writeln;
a:=a+1;
until a>5;
readln;
end.
Latihan 1
uses crt;
var
A,b:integer;
begin
clrscr;
for a:=1 to 10 do
begin
for b:=1 to 5 do
writeln(b);
end;
readln;
end.
Soal D
Latihan Fibonancy
Output Program
Masukkan deret Angka :9
0,1,1,2,3,5,8,13,21
Sourcode 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;
end.
