alex.ryan Postado Abril 23, 2009 Denunciar Share Postado Abril 23, 2009 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.