Matriks.. buat tampilan

Algoritma dan pemrograman kuliah Struktur Data

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.

Bagikan

Jangan lewatkan

Matriks.. buat tampilan

4/ 5

Oleh Hanya Catatan Pribadi

Hanya Catatan Pribadi 23:29 Komentar