Tuesday, 22 October 2013

Matriks.. buat tampilan



var
  matriks:array[1..5,1..5] of integer;
  maulana,baehaqi:integer;



    begin
Begin         writeln ('Name : Achmad Maulana Baehaqi');
writeln( 'NIM  : 112222005')              ;
writeln( 'Site  : http://www.gopandaan.com')  ;
writeln('---------------------------------------------');


  for maulana := 1 to 5 do
  begin

    for baehaqi := 1 to 5 do
    begin
      if (maulana+baehaqi>=6) then
      begin
      write(1:2);
      end
      else
      begin
      write(0:2);
      end;
    end;
    writeln('');
  end;
readln;
end;
end.

algoritma

Bagikan

Jangan lewatkan

Matriks.. buat tampilan
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.