Boa noite pessoal, venho aqui pedir a ajuda de vocês em mais um problema .
Este é o problema que preciso resolver galera, segue abaixo o código que fiz até o momento :
Program produtos ; var codigo : array [1..5] of integer; produto : array [1..5] of string; preco : array [1..5] of real; x, op : integer; Begin for x := 1 to 5 do Begin writeln('Digite o Codigo do ', x , ' produto' ); readln(codigo[x]); writeln('Digite o Nome do ', x , ' produto' ); readln(produto[x]); writeln('Digite o Preço do ', x , ' produto' ); readln(preco[x]); end; writeln('Código : ',codigo[1]); writeln('Nome Do Produto : ',produto[1]); writeln('Preço : ',preco[1]); writeln(); writeln('Código : ',codigo[2]); writeln('Nome Do Produto : ',produto[2]); writeln('Preço : ',preco[2]); writeln(); writeln('Código : ',codigo[3]); writeln('Nome Do Produto : ',produto[3]); writeln('Preço : ',preco[3]); writeln(); writeln('Código : ',codigo[4]); writeln('Nome Do Produto : ',produto[4]); writeln('Preço : ',preco[4]); writeln(); writeln('Código : ',codigo[5]); writeln('Nome Do Produto : ',produto[5]); writeln('Preço : ',preco[5]); writeln(); writeln('Digite a opção desejada:'); writeln('1 - Concretizar Venda '); writeln('2 - Sair '); readln(op); if ( op = 1 ) then begin writeln(''); end; if ( op = 2 )then begin exit; end; End.
Preciso continuar a parte de quando concretizar a venda ele me mostrar os produtos e dependendo do código selecionado ele busca o preço e multiplica pela quantidade vendida.
Se alguém tiver uma sugestão de como fazer ficarei muito grato .