alex.ryan

PROGRAM TESTE; USES CRT; TYPE TP_PRODUT = RECORD NOME : STRING; QTD : INTEGER; você,VV : REAL; END; TYPE TP_JOGADOR = RECORD NOME : STRING; SALDO : REAL; PRODUTO : ARRAY[1..3,1..3] OF STRING; ESTOQUE : ARRAY[1..3,1..3] OF INTEGER; END; TYPE TP_CIDADE = RECORD NOME : STRING; PROD : ARRAY [1..3] OF STRING; PRECOCOMPRA : ARRAY [1..3] OF REAL; PRECOVENDA : ARRAY [1..3] OF REAL; ESTOQUE : ARRAY [1..3] OF INTEGER; END; VAR ADMINISTRADOR : STRING; CIDADE : ARRAY [1..3] OF TP_CIDADE; ICIDADE : INTEGER; DESLOC : ARRAY [1..3,1..3] OF REAL; CONF : CHAR; JOGADOR : TP_JOGADOR; SAIR,JOGAR : STRING; OPCAOMENU : CHAR; CIDADEATUAL : INTEGER; CIDADEDESTINO : INTEGER; I,I2,I3 : INTEGER; OP,OP2 : INTEGER ; CMOSTRARINSTRUCOES : CHAR; ICODPRODUTO, IQUANTCOMPRA, IQUANTVENDA :INTEGER; RVALORCOMPRA,RVALORVENDA : REAL; SCONFIRMA : STRING; BEXISTEPRODUTO : BOOLEAN; CLRSCR WRITELN('1- Efetuar deslocamento entre cidades'); WRITE('2- Consultar mercadorias dispon¡veis para'); WRITELN(' compra na cidade e seus respectivos pre‡os'); WRITELN('3- Consultar pre‡os de venda de todas as mercadorias'); WRITELN('4- Consultar mercadorias que est levando'); WRITELN('5- Consultar saldo financeiro'); WRITELN('6- Consultar estoque'); WRITELN('7- Comprar produtos'); WRITELN('8- Vender produtos'); WRITELN('0- Finalizar o jogo'); READLN(OPC3); CASE OPC3 OF 1: BEGIN WRITELN; WRITELN('Efetuar deslocamento'); WRITELN('Vocˆ est na cidade ',JOGADOR.CID,'.'); FOR j:=1 to 4 do if(JOGADOR.CID <> VETCIDADE[j]) THEN writeln(' Se quer ir para a cidade ',VETCIDADE[j],' ,digite ',j); READLN(DESLOC); JOGADOR.SALDO:= JOGADOR.SALDO - matcustod[jogador.ncid,desloc]; JOGADOR.CID:= VETCIDADE[DESLOC]; JOGADOR.NCID:= DESLOC; READKEY(); END; 2: BEGIN Writeln('------------------------------------------------------------------'); Writeln(' Mercadorias dispon¡veis para compra e pre‡os'); Writeln('------------------------------------------------------------------'); Writeln; For j:= 1 to 4 do BEGIN Writeln('Cidade: ',Vetcidade[j]); Writeln; For i:= 1 to 4 do BEGIN Writeln('Produto: ', Vetproduto[j].Nome); Writeln('Pre‡o de compra: ', Vetproduto[j].PC:7:2); END; WRITELN; END; Readkey(); Writeln; WHILE CP <> 0 DO BEGIN CASE CP OF 1..9: BEGIN clrscr; textcolor(lightgreen); writeln('CAIXEIRO VIAJANTE'); writeln('CONSULTAR ESTOQUE DO JOGADOR E VENDER PRODUTOS'); writeln('Jogador: ', Jogador.PersonagemNome); writeln('Cidade atual: ', Cadastro[Jogador.PersonagemCidadeAtual].CidadeNome); writeln('Saldo atual: R$', Jogador.PersonagemSaldoAtual:1:2); writeln('CONSULTAR ESTOQUE DO JOGADOR'); FOR NC:= 1 TO 3 DO FOR NP:= 1 TO 3 DO writeln('Produto: ', Jogador.PersonagemProdutoNome[NC,NP], ' | Qnt: ', Jogador.PersonagemProdutoQnt[NC,NP], ' | Pre‡o de Venda: R$', Jogador.PersonagemProdutoValorVenda[NC,NP]:1:2); END; END; // Menu comprar produtos textcolor(lightblue); writeln('VENDER PRODUTOS'); writeln('[1] ', Jogador.PersonagemProdutoNome[1,1]); writeln('[2] ', Jogador.PersonagemProdutoNome[1,2]); writeln('[3] ', Jogador.PersonagemProdutoNome[1,3]); writeln('[4] ', Jogador.PersonagemProdutoNome[2,1]); writeln('[5] ', Jogador.PersonagemProdutoNome[2,2]); writeln('[6] ', Jogador.PersonagemProdutoNome[2,3]); writeln('[7] ', Jogador.PersonagemProdutoNome[3,1]); writeln('[8] ', Jogador.PersonagemProdutoNome[3,2]); writeln('[9] ', Jogador.PersonagemProdutoNome[3,3]); writeln('[0] Menu principal'); write('Entre com o n£mero do produto que deseja vender: '); readln(CP); // PROCESSAMENTO DA VENDA CASE CP OF 1..9: BEGIN // Atribuir valores a vari veis de controle TempQnt := 0; TempTotal := 0.00; CASE CP OF 1..3: NC := 1; 4..6: NC := 2; 7..9: NC := 3; END; CASE CP OF 1,4,7: NP := 1; 2,5,8: NP := 2; 3,6,9: NP := 3; END; clrscr; textcolor(lightgreen); writeln('CAIXEIRO VIAJANTE'); writeln('CONSULTAR ESTOQUE DO JOGADOR E VENDER PRODUTOS'); writeln('Jogador: ', Jogador.PersonagemNome); writeln('Saldo atual: R$', Jogador.PersonagemSaldoAtual:1:2); writeln('Produto selecionado: ', Jogador.PersonagemProdutoNome[NC,NP]); writeln('Qnt em estoque: ', Jogador.PersonagemProdutoQnt[NC,NP], ' | Pre‡o de Venda: R$', Jogador.PersonagemProdutoValorVenda[NC,NP]:1:2); textcolor(lightblue); write('Entre com a quantidade a ser vendida: '); readln(TempQnt); IF (TempQnt <= Jogador.PersonagemProdutoQnt[NC,NP]) THEN // Validar quantidade de produtos BEGIN TempTotal := TempQnt * Jogador.PersonagemProdutoValorVenda[NC,NP]; // Calcular valor total da venda textcolor(lightgreen); writeln('O valor total da venda ‚: R$', TempTotal:1:2); // Exibe valor total da venda Jogador.PersonagemSaldoAtual:= Jogador.PersonagemSaldoAtual + TempTotal; // Adiciona ao saldo do jogador o valor total da venda Jogador.PersonagemProdutoQnt[NC,NP] := Jogador.PersonagemProdutoQnt[NC,NP] - TempQnt; // Diminui do estoque do jogador o n£mero de produtos vendidos IF (Jogador.PersonagemProdutoQnt[NC,NP] = 0) THEN // Se igual a 0, eliminar o produto do estoque BEGIN Jogador.PersonagemProdutoNome[NC,NP] := ''; Jogador.PersonagemProdutoQnt[NC,NP] := 0; Jogador.PersonagemProdutoValorVenda[NC,NP] := 0.00; END; writeln('A venda do produto ', Jogador.PersonagemProdutoNome[NC,NP], ' foi realizada com sucesso'); writeln('Pressione qualquer tecla para continuar'); readkey; END ELSE BEGIN textcolor(lightred); writeln('Estoque insuficiente, venda nÆo realizada'); writeln('Pressione qualquer tecla para continuar'); readkey; END; END; END; 2: begin 2: begin writeln('Indique o nome e a quantidade do produto que deseja vender.'); write('Produto: '); readln(Produto); // verifica a existencia do produto na sacola z:= 0; FOR x:= 1 TO 9 DO IF Produto = sacola.ProdutoJog[x] THEN z:= x;; IF z = 0 THEN writeln('Vocˆ nÆo possui o produto.') ELSE begin // solicita a quantidade que se deseja vender write('Quantidade: '); readln(QtdProduto); // verifica a quantidade dispon¡vel do produto IF QtdProduto > sacola.QtdProdutoJog[z] THEN writeln('A quantidade na sacola deste produto ‚ ', sacola.QtdProdutoJog[z],'.') ELSE // verifica se ‚ poss¡vel vender o produto na cidade begin y:= 0; FOR x:= 1 TO 3 DO IF Produto = Cidade.NomeProduto[x] THEN y:= x; IF y = 0 THEN writeln('NÆo ‚ poss¡vel vender este produto nesta cidade.') ELSE begin // efetua a venda (* adiciona: saldo, qtd produtos na cidade *) saldo:= saldo + Cidade.ValorVenda[y] * QtdProduto; Cidade.QtdProduto[y]:= Cidade.QtdProduto[y] + QtdProduto; (* retira produto na sacola *) sacola.QtdProdutoJog[z]:= sacola.QtdProdutoJog[z] - QtdProduto; writeln(); writeln('Vocˆ vendeu ', QtdProduto, ' und do produto ', Produto,'.'); writeln('Seu saldo ser atualizado para R$ ', saldo:1:2); end; end; end; end; // ir para outra cidade 3: begin writeln('Escolha a cidade para qual deseja se deslocar.'); write('- Cidade destino: '); readln(Destino); writeln(); z:= 0; FOR x:= 1 TO 3 DO IF (Destino = Cidade[x].Nome) THEN z:= x; IF z = 0 THEN writeln('Sinto muito, mas a cidade ', Destino, ' nÆo est na rela‡Æo.') ELSE If z = i Then writeln('Vocˆ j se encontra na cidade ', Destino, '.') Else begin writeln('Vocˆ se deslocar para cidade ', Destino,'.'); Saldo:= Saldo - Deslocamento[i,z]; writeln('Ser cobrada a taxa de deslocamento no valor de R$ ', Deslocamento[i,z]:1:2); writeln('Seu saldo ser atualizado para R$ ', saldo:1:2); i:= z; end; end; // finalizar o jogo 4: writeln('finalizar'); // nenhuma das op‡äes dispon¡veis ELSE writeln('Op‡Æo inv lida.'); END; readkey(); clrscr(); UNTIL opcao = 4; readkey(); End.

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

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.

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

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.

program vetor; type t_produto=record nomes : string; pv,pc : real; end; t_cidades=record nomes : string; produtos: array [1..3] of t_produto; end; var cidades : array [1..3] of cidade; begin readln(cidades[1].nome); readln(cidades[1].produtos[1].nome); readln(cidades[1].produtos[1].pc[1]); readln(cidades[1].produtos[1].pc[2]); readln(cidades[1].produtos[1].pc[3]); readln(cidades[1].produtos[1].pv[1]); readln(cidades[1].produtos[1].pv[2]); readln(cidades[1].produtos[1].pv[3]); readln(cidades[2].nome); readln(cidades[2].produtos[1].nome); readln(cidades[2].produtos[1].pc[1]); readln(cidades[2].produtos[1].pc[2]); readln(cidades[2].produtos[1].pc[3]); readln(cidades[2].produtos[1].pv[1]); readln(cidades[2].produtos[1].pv[2]); readln(cidades[2].produtos[1].pv[3]); readln(cidades[3].nome); readln(cidades[3].produtos[1].nome); readln(cidades[3].produtos[1].pc[1]); readln(cidades[3].produtos[1].pc[2]); readln(cidades[3].produtos[1].pc[3]); readln(cidades[3].produtos[1].pv[1]); readln(cidades[3].produtos[1].pv[2]); readln(cidades[3].produtos[1].pv[3]); writeln(cidades[1].produtos[1].nome); writeln(cidades[1].produtos[1].pc[1]); writeln(cidades[1].produtos[1].pc[2]); writeln(cidades[1].produtos[1].pc[3]); writeln(cidades[1].produtos[1].pv[1]); writeln(cidades[1].produtos[1].pv[2]); writeln(cidades[1].produtos[1].pv[3]); writeln(cidades[2].produtos[1].nome); writeln(cidades[2].produtos[1].pc[1]); writeln(cidades[2].produtos[1].pc[2]); writeln(cidades[2].produtos[1].pc[3]); writeln(cidades[2].produtos[1].pv[1]); writeln(cidades[2].produtos[1].pv[2]); writeln(cidades[2].produtos[1].pv[3]); writeln(cidades[3].produtos[1].nome); writeln(cidades[3].produtos[1].pc[1]); writeln(cidades[3].produtos[1].pc[2]); writeln(cidades[3].produtos[1](pc[3]); writeln(cidades[3].produtos[1].pv[1]); writeln(cidades[3].produtos[1].pv[2]); writeln(cidades[3].produtos[1].pv[3]); readkey; end.