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
Matriks.. buat tampilan
4/
5
Oleh
Hanya Catatan Pribadi