matrizes

[alex.ryan]

program vetor_registro;

//ETAPA 1.2 ALEXINALDO_LUCIANO.PAS

//ETAPA 1_2 Alexinaldo e Luciano

uses crt;

type tp_cidades = record

nomes : string[3];

precocompra,precovenda : array[1..3] of real;

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

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

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

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

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

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

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

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

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

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

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

readln(cidades[1].precovenda[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].precocompra[1]);

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

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

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

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

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

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

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

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

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

readln(cidades[2].precovenda[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].precocompra[1]);

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

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

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

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

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

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

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

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

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

readln(cidades[3].precovenda[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].precocompra[1]:4:2);

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

writeln(cidades[1].precocompra[3]:4:2);

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

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

writeln(cidades[1].precovenda[3]:4:2);

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]:4:2);

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

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

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

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

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

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]:4:2);

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

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

writeln(cidades[3].precovenda[1]:4:2);

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

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

readkey;

end.

Preciso colocar matrizes neste programa, custo por deslocamento de uma cidade para outra e consultar preços de vendas da mesma cidade