Jawaban Tugas Praktikum Komdas(I)

Berikut ini hanya membantu bagi yang belum bisa mengerjakan karena memang soal dirasa sulit. Keep Spirit =)

Tugas 1 Mencari Algoritma membentuk M dengan bintang


var
i, j : integer;

begin
Write ('Ukuran M yang ditampilkan : ');
ReadLn (i);
if i=1 then
begin
for j:= 1 to i do
WriteLn ('*');
WriteLn;
end
else
begin
WriteLn ('*',' ':(i-1)*4-1,'*');
for j:= 2 to i-1 do
WriteLn ('*',' ':(j-1)*2-1,'*',' ':(i-j)*4-1,'*',' ':(j-1)*2-1,'*');
WriteLn ('*',' ':(i-1)*2-1,'*',' ':(i-1)*2-1,'*');
end;
WriteLn;
ReadLn;
end.


Tugas 2 Deret Fibbonaci
1 2 3 5 8 dst.

var
i, j, k1, k2, k3 : integer;

begin
Write ('Deret Fibbonaci : ');
ReadLn (i);
if i=0 then
WriteLn ('0')
else if i=1 then
WriteLn ('1')
else if i=2 then
WriteLn ('1 2')
else
begin
k1:=1;
k2:=2;
Write ('1 2 ');
for j:= 3 to i do
begin
k3:=k2;
k2:=k2+k1;
k1:=k3;
Write (k2,' ');
end;
end;
WriteLn;
WriteLn;
ReadLn;
end.


NB: Source code di atas menggunakan Borland Delphi 7, jadi apabila menggunakan Turbo Pascal, source code mungkin berbeda.