Question

gostaria de saber os significado de cada linha/;Program Bidimensional;
Uses CRT;
var
tabela : Array [1..3,1..2] of Integer;
i, j,k : Integer;
achou : Boolean;
Begin
ClrScr;
for i := 1 to 3 do
for j := 1 to 2 do
Begin
Write ('Entre com o Valor i= ',i,' j= ',j,' = ');
ReadLn (tabela[i,j]);
End;
Write ('Qual numero voce deseja encontrar?');
ReadLn (k);
achou := False;
for i := 1 to 3 do
for j := 1 to 2 do
if tabela[i,j]=k then
Begin
WriteLn ('i=',i,' j=',j);
achou := True;
End;
if not(achou) then WriteLn ('O numero nao foi encontrado!');
ReadLn;
End.

Answer 1

Program Bidimensional;  ( nome do programa )
Uses CRT;  ( biblioteca onde é guardado o dado )
var  ( variavéis)
tabela : Array [1..3,1..2] of Integer; ( array é uma matriz onde são armazenados dados)
i, j,k : Integer; ( variável com valor inteiro )
achou : Boolean; 
Begin ( começo)
ClrScr; ( limpa a tela )
for i := 1 to 3 do  ( comando "for" que quer dizer "para" por ex,  para J igual a 1 até 3 "faça"
for j := 1 to 2 do 
Begin ( começo )
Write ('Entre com o Valor i= ',i,' j= ',j,' = ');  ( é o que aparece na tela do usuário )
ReadLn (tabela[i,j]); ( lê o que o usuário digitou )
End; ( fim do "for" )
Write ('Qual numero voce deseja encontrar?'); 
ReadLn (k); 
achou := False; 
for i := 1 to 3 do 
for j := 1 to 2 do 
if tabela[i,j]=k then 
Begin 
WriteLn ('i=',i,' j=',j); 
achou := True; 
End; 
if not(achou) then WriteLn ('O numero nao foi encontrado!'); ( if é comando " se" por ex, SE o número digitado for 3, aparece "o número não foi encontrado")
ReadLn; 
End.