listing program matriks

uses crt;

var

a,b,c,d,e,I,g:integer;

x,nm:string[10];

begin

clrscr;

write('input jumlah baris: '); readln(a);

write('input jumlah kolom: '); readln(b);

write('input nama matriks: '); readln(nm);

e:=5;

i:=0;

repeat

begin

gotoxy(18,e);

writeln('I');

g:=20;

c:=0;

repeat

begin

gotoxy(g,e);

writeln('-');

g:=g+3;

c:=c+1;

end;

until c=b;

gotoxy(g-1,e);

writeln('I');

e:=e+1;

i:=i+1;

end;

until i=a;

gotoxy(19,4);writeln('-');

gotoxy(19,e);writeln('-');

gotoxy(g-2,4);writeln('-');

gotoxy(g-2,e);writeln('-');

if a > 1 then

begin

if a mod 2=0 then

e:=a div 2

else

e:=(a div 2)+1;

end

else

a:=1;

gotoxy (7,e+4);

writeln(nm,'',a,'x',b,'=');

e:=5;

i:=0;

repeat

begin

gotoxy(18,e);

g:=20;

c:=0;

repeat

begin

gotoxy(g,e);

readln(x);

g:=g+3;

c:=c+1;

end;

until c=b;

e:=e+1;

i:=i+1;

end;

until i=a;

gotoxy(g,e+5);

readln;

end.

Artikel Terkait