Jawaban UTP Komdas 2010

Berikut adalah jawaban UTP Komputer Dasar angkatan 2010

Output akan seperti ini

                          KOTAK                                             BELAH KETUPAT

 

Berikut adalah jawaban untuk Kotak

var i,j,m1,m2,n:integer;

begin
  write('Masukkan banyaknya n : ');
  readln(n);
  m1:=0;
  m2:=0;
  if n mod 2 = 1 then
    m1:=round((n+1)/2)
  else
    m2:=round(n/2);
    for i := 1 to n do
    begin
      if (i=1) or (i=n) or (i=m1) or (i=m2) or (i=m2+1) then
        for j := 1 to n do
          write('* ')
      else
          write('* ',' ':(n-2)*2,'*');
        writeln;
    end;
  readln;
end.

Sedangkan untuk Belah Ketupat

var i,j,m,n:integer;

begin
  write('Masukkan banyaknya n : ');
  readln(n);
  m:=0;
  for i := 1 to 2*n-1 do
    if i<=n then
    begin
      m:=round(i*2-1);
      write(' ':n-i+1);
      for j := 1 to m do
        write('*');
        writeln;
    end
    else
    begin
    m:=m-2;
      write(' ':i-n+1);
      for j := m downto 1 do
        write('*');
        writeln;
    end;
  readln;
end.

Silahkan dipahami, kalo ada yang kurang paham, silahkan di bahas saat di praktikum.
Atas perhatiannya terima kasih. Tetep semangat ^^