vetor e registro

[alex.ryan]

program vetor;

uses crt;

type tp_cidades = record

nomes : string;

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

end;

type produtos = record

nomes : string;

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].produtos[1]);

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

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

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

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

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

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

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

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

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

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

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].produtos[1]);

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

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

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

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

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

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

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

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

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

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

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].produtos[1]);

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

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

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

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

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

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

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

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

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

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

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].produtos[1]);

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

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

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

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

writeln(cidades[1].produtos[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].produtos[1]);

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

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

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

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

writeln(cidades[2].produtos[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].produtos[1]);

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

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

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

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

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

readkey;

end.

[Jhonas]

vetor e registro, Não roda direito pascal 2.2.2

corrija este erro

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

para:

preço : array [1..18] of real; // tirar o cedilha ... o editor do forum não permite tira-lo

OBS: o pascal não aceita caracteres acentuados como variaveis

Se o " não roda direito " for por causa de erro a solução está ai em cima.... se for porque os valores não são os esperados, então reveja a lógica do programa

exemplo:

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

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

OBS: voce pede para entrar com um preço, mas joga o valor em produtos... deveria ser

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

readln(cidades[2].preço[1]);

abraço

[alex.ryan]

vetor e registro, Não roda direito pascal 2.2.2

corrija este erro

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

para:

preço : array [1..18] of real; // tirar o cedilha ... o editor do forum não permite tira-lo

OBS: o pascal não aceita caracteres acentuados como variaveis

Se o " não roda direito " for por causa de erro a solução está ai em cima.... se for porque os valores não são os esperados, então reveja a lógica do programa

exemplo:

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

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

OBS: voce pede para entrar com um preço, mas joga o valor em produtos... deveria ser

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

readln(cidades[2].preço[1]);

abraço