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.

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. Essa é a pergunta que vamos responder e mostrar uma maneira simples de se lembrar dessa informação. Portanto, é essencial você conferir a matéria completamente.
  • 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.

    • 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.


    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.
    #COMO
    #ONDE
    #PORQUE
    #QUAIS
    #QUAL
    #QUANDO
    #QUANTO
    #QUE
    #QUEM

    Leia também: