Dúvida Matriz em Pascal

Com base na dúvida de leitora Danielle:

"enfim, meu nome é Danielle e moro no interior de São Paulo, estou cursando o primeiro período de Ciência da Computação. Eu estava com uma dúvida e fui fuçando no google e yahoo perguntas da vida e vi uma resposta com o link do seu blog dizendo que o senhor é professor e especialista em delphi e pascal. Então resolvi te mandar este email.. caso o senhor possa responder, eu vou ficar muito agradecida.

a minha dúvida é a seguinte: como mostrar a matriz EM FORMA DE MATRIZ???

sem q os números fiquem dispostos um do lado do outro??

eu tentei usar o gotoxy mas naum tah dando mto certo. olha aí"

Muitas pessoas tem dado o blog como referência e agradeço muito quem tem feito isso.

O código fonte dela:

 program teste;  
 uses crt;  
 var  
   iMat: array [1..3,1..3] of integer;  
   iLin, iCol: integer;  
 begin  
   write ('Digite os números da matriz: ');  
   for iLin:=1 to 3 do  
   begin  
    for iCol:=1 to 3 do  
      read (iMat[iLin,iCol]);  
   end;  
 clrscr;  
   for iLin:=1 to 3 do  
   begin  
    for iCol:=1 to 3 do  
    gotoxy (iCol,iLin); write (iMat[iLin,iCol]);  
   end;  
 readkey;  
 end.  

O único equivoco encontrado foi no seguinte trecho:

for iLin:=1 to 3 do
begin
for iCol:=1 to 3 do
gotoxy (iCol,iLin); write (iMat[iLin,iCol]);
end

Faltou um Begin antes do GotoXY.

Código Corrigido:

 program teste;  
 uses crt;  
 var  
   iMat: array [1..3,1..3] of integer;  
   iLin, iCol: integer;  
 begin  
  ClrScr;  
  write ('Digite os números da matriz: ');  
  for iLin:=1 to 3 do  
  begin  
   for iCol:=1 to 3 do  
   begin  
    Write ('(',iLin,',',iCol,')= ');  
    ReadLn (iMat[iLin,iCol]);  
   end;  
  end;  
  ClrScr;  
  for iLin:=1 to 3 do  
  begin  
   for iCol:=1 to 3 do  
   begin  
    gotoxy (iCol,iLin); write (iMat[iLin,iCol]);  
   end;  
  end;  
  readkey;  
 end.  

Nenhum comentário:

Postar um comentário