Tugas Pascal

soal A

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.