vetor e registro

[alex.ryan]

program vetor;

uses crt;

type tp_cidades = record

nomes : string[3];

precocompra: real;

precovenda : real;

produtos: array [1..9] of string;

end;

type produtos = record

nomes : string[3];

precos: real;

preço : array [1..18] of real;

end;

var

cidades : array [1..3] of tp_cidades;

begin

writeln('Entre com o nome da primeira cidade');

readln(cidades[1].nomes);

writeln('Entre com o primeiro produto da primeira cidade');

readln(cidades[1].produtos[1]);

writeln('Entre com o segundo produto da primeira cidade');

readln(cidades[1].produtos[2]);

writeln('Entre com o terceiro produto da primeira cidade');

readln(cidades[1].produtos[3]);

writeln('Entre com o primeiro preço de compra do primeiro produto da primeira cidade');

readln(cidades[1].precocompra);

writeln('Entre com o segundo preço de compra do primeiro produto da primeira cidade');

readln(cidades[1].precocompra);

writeln('Entre com o terceiro preço de compra do primeiro produto da primeira cidade');

readln(cidades[1].precocompra);

writeln('Entre com o primeiro preço de venda do primeiro produto da primeira cidade');

readln(cidades[1].precovenda);

writeln('Entre com o segundo preço de venda do primeiro produto da primeira cidade');

readln(cidades[1].precovenda);

writeln('Entre com o terceiro preço de venda do primeiro produto da primeira cidade');

readln(cidades[1].precovenda);

writeln('Entre com o nome da segunda cidade');

readln(cidades[2].nomes);

writeln('Entre com o primeiro produto da segunda cidade');

readln(cidades[2].produtos[1]);

writeln('Entre com o segundo produto da segunda cidade');

readln(cidades[2].produtos[2]);

writeln('Entre com o terceiro produto da segunda cidade');

readln(cidades[2].produtos[3]);

writeln('Entre com o primeiro preço de compra do primeiro produto da segunda cidade');

readln(cidades[2].precocompra);

writeln('Entre com o segundo preço de compra do primeiro produto da segunda cidade');

readln(cidades[2].precocompra);

writeln('Entre com o terceiro preço de compra do primeiro produto da segunda cidade');

readln(cidades[2].precocompra);

writeln('Entre com o primeiro preço de venda do primeiro produto da segunda cidade');

readln(cidades[2].precovenda);

writeln('Entre com o segundo preço de venda do primeiro produto da segunda cidade');

readln(cidades[2].precovenda);

writeln('Entre com o terceiro preço de venda do primeiro produto da segunda cidade');

readln(cidades[2].precovenda);

writeln('Entre com o nome da terceira cidade');

readln(cidades[3].nomes);

writeln('Entre com o primeiro produto da terceira cidade');

readln(cidades[3].produtos[1]);

writeln('Entre com o segundo produto da terceira cidade');

readln(cidades[3].produtos[2]);

writeln('Entre com o terceiro produto da terceira cidade');

readln(cidades[3].produtos[3]);

writeln('Entre com o primeiro preço de compra do primeiro produto da terceira cidade');

readln(cidades[3].precocompra);

writeln('Entre com o segundo preço de compra do primeiro produto da terceira cidade');

readln(cidades[3].precocompra);

writeln('Entre com o terceiro preço de compra do primeiro produto da terceira cidade');

readln(cidades[3].precocompra);

writeln('Entre com o primeiro preço de venda do primeiro produto da terceira cidade');

readln(cidades[3].precovenda);

writeln('Entre com o segundo preço de venda do primeiro produto da terceira cidade');

readln(cidades[3].precovenda);

writeln('Entre com o terceiro preço de venda do primeiro produto da terceira cidade');

readln(cidades[3].precovenda);

{ write('nome: ');

writeln(cidades[1].nomes);

write('produtos: ');

writeln(cidades[1].produtos[1]);

writeln(cidades[1].produtos[2]);

writeln(cidades[1].produtos[3]);

write('precos: ');

writeln(cidades[1].precocompra[1]);

writeln(cidades[1].precocompra[2]);

writeln(cidades[1].precocompra[3]);

writeln(cidades[1].precovenda[1]);

writeln(cidades[1].precovenda[2]);

writeln(cidades[1].precovenda[3]);

write('nome: ');

writeln(cidades[2].nomes);

write('produtos: ');

writeln(cidades[2].produtos[1]);

writeln(cidades[2].produtos[2]);

writeln(cidades[2].produtos[3]);

write('precos: ');

writeln(cidades[2].precocompra[1]);

writeln(cidades[2].precocompra[2]);

writeln(cidades[2].precocompra[3]);

writeln(cidades[2].precovenda[1]);

writeln(cidades[2].precovenda[2]);

writeln(cidades[2].precovenda[3]);

write('nome: ');

writeln(cidades[3].nomes);

write('produtos: ');

writeln(cidades[3].produtos[1]);

writeln(cidades[3].produtos[2]);

writeln(cidades[3].produtos[3]);

write('precos: ');

writeln(cidades[3].precocompra[1]);

writeln(cidades[3].precocompra[2]);

writeln(cidades[3].precocompra[3]);

writeln(cidades[3].precovenda[1]);

writeln(cidades[3].precovenda[2]);

writeln(cidades[3].precovenda[3]);

readkey;

end.

Não aparece o nome da primeira cidade e os precos são sempre os mesmos. Eu coloco varios preços mais eles só aparecem o valor que eu coloco primeiro. Coloco treis preços diferentes de compra e venda, mais só aparece repetido o preço do primeiro.

[Paulo_elite]

Seu código está cheio de erros de sintaxe... Olha um deles aqui!!!

writeln('Entre com o primeiro preço de compra do primeiro produto da primeira cidade');
readln(cidades[1].precocompra);
writeln('Entre com o segundo preço de compra do primeiro produto da primeira cidade');
readln(cidades[1].precocompra);

Você está entradno com valores diferentes na mesma variável precocompra, além disso ela teria que ser um array;

Tem vários outros, mais como o obrjetivo do fórum é ajudar, mais não fazer, quero que releia seu código e tente encontrar mais erros, se estiver difícil, te ajudarei em outro erro fatal que cometeu! Estou fazendo isso para sua própria aprendizagem, se eu postar o código aqui certo não aprenderás nada!!! Aguardo resposta!