1 reply to this topic

[boss-777]

eu presiso guardar 3 tipos de dados numa sou varivel na matriz...tentei assim nao da...max com 2 colunas funsiona..


program save_nome_numero_bi;
uses crt;
type

formandos = record
nome:string[50];
idade:byte;

end;

var
np:byte;
i:integer;
l:real;
alunos:array[1..10,1..10] of formandos;

begin
writeln('inntruza quantas pessos quer inserir');
readln(np);
clrscr;
for i:=1 to 2 do

begin
writeln('intruza o ' , i , ' nome ');
readln(alunos[i,1].nome);
writeln('Introduza a idade dessa pessoa' , i);
readln(alunos[i,2].idade);
clrscr;
end;

for i:=1 to 2 do
begin
writeln('os nome que forom introduzidos ',alunos[i,1].nome, ' idade e ' ,alunos[i,2].idade );
readln;

end;
end.

[Simon Viegas]

eu presiso guardar 3 tipos de dados numa sou varivel na matriz...tentei assim nao da...max com 2 colunas funsiona..


program save_nome_numero_bi;
uses crt;
type

formandos = record
nome:string[50];
idade:byte;

end;

var
np:byte;
i:integer;
l:real;
alunos:array[1..10,1..10] of formandos;

begin
writeln('inntruza quantas pessos quer inserir');
readln(np);
clrscr;
for i:=1 to 2 do

begin
writeln('intruza o ' , i , ' nome ');
readln(alunos[i,1].nome);
writeln('Introduza a idade dessa pessoa' , i);
readln(alunos[i,2].idade);
clrscr;
end;

for i:=1 to 2 do
begin
writeln('os nome que forom introduzidos ',alunos[i,1].nome, ' idade e ' ,alunos[i,2].idade );
readln;

end;
end.

Olá boss-777,

1) Quais são os dados?
2) Qual é a matriz?


Seu código com alguns comentários:

program save_nome_numero_bi;
uses
  crt;
type
  formandos = record
				nome  :string[50];
				idade :byte;
				dado3 :tipo;
			  end;

var
  np	 :byte;
  i	  :integer;
  l	  :real;
  alunos :array[1..10,1..10] of formandos;

begin
{writeln('inntruza quantas pessos quer inserir');}
writeln('introduza quantas pessoas quer inserir');
readln(np);
clrscr;
{for i:=1 to 2 do}
for i:=1 to np do
  begin
  {writeln('intruza o ' , i , ' nome ');}
  writeln('introduza o ' ,i,' nome');
  readln(alunos[i,1].nome);
  writeln('Introduza a idade dessa pessoa' , i);
  readln(alunos[i,2].idade)
  clrscr;
  end;

for i:=1 to 2 do
  begin
  writeln('os nome que forom introduzidos ',alunos[i,1].nome, ' idade e ' ,alunos[i,2].idade );
  readln;
  end;
end.

Neste caso você tem que definir pq está usando uma matriz... Se no caso for usar uma cordenada para os dados e a outra para a quantidade de pessoas, ficaria mais ou menos assim:

var
  alunos :array[10,3] of string;

Assim acessaria:

alunos[x,y]

onde "X" é o número do aluno (i) e "y" o dado (por exemplo: nome, idade e telefone, respectivamente)


writeln('os nome que forom introduzidos ',alunos[i,1], ' idade e ' ,alunos[i,2],' telefone ',alunos[i,2]);

Qualquer coisa é só postar.


Abraços
Simon Viegas