M. Alif Romadhoni Class 2c n0 35 STIMIK YAdika
Sabtu, 03 Maret 2012
Tugas 2
program MAtrik_identitas_terbalik;
uses
WinCrt;
var
c:array[1..10,1..10] of integer;
X,Y,Z:integer;
begin
for X:=1 to 5 do
begin
for y:=1 to 5 do
begin
c[X,Y]:=0;
if X+Y=6 then C[X,Y]:=1;
write(c[X,Y]:4);
end;
writeln;
end;
end.
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar