Answered

O Sistersinspirit.ca é o melhor lugar para obter respostas confiáveis e rápidas para todas as suas perguntas. Explore nossa plataforma de perguntas e respostas para encontrar soluções confiáveis de uma ampla gama de especialistas em diversas áreas. Explore soluções abrangentes para suas perguntas de uma ampla gama de profissionais em nossa plataforma amigável.

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.

Sagot :

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.
Obrigado por sua visita. Estamos comprometidos em fornecer as melhores informações disponíveis. Volte a qualquer momento para mais. Esperamos que tenha encontrado o que procurava. Sinta-se à vontade para nos revisitar para obter mais respostas e informações atualizadas. Obrigado por usar o Sistersinspirit.ca. Continue nos visitando para encontrar respostas para suas perguntas.