Waterise

@Math.Pi. Código: Program Pzim ; var fil : array[1..1] of record cod : integer; nome,status : string; genero : char; valor , quant: real; end; i : integer; Begin for i:= 1 to 1 do begin write (' escreva o codigo do produto: '); read (fil[i].cod); write (' escreva a quntidade do produto: '); read (fil[i].quant); write (' escreva seu nome do produto: '); read (fil[i].nome); write (' escreva o valor do produto: '); read (fil[i].valor); write (' escreva sua status do produto: '); read (fil[i].status); end; writeln; for i:= 1 to 1 do begin writeln ('codigo: ',fil[i].cod); writeln ('nome: ', fil[i].nome); writeln ('valor : ', fil[i].valor); writeln ('quant: ',fil[i].quant); writeln ('status: ',fil[i].status); end; readln; End. Foi o que consegui fazer.

@Math.Pi como eu faço para que as informações sejam gravadas em um arquivo de dados. Permita as seguintes operações: Inclusão de novos produtos, Alteração dos dados do produto (menos o código) e Listar os dados dos produtos (relatório dos produtos existentes).

@Math.Pi isso mesmo , to precisando de ajuda

crie um registro com código, nome do produto, valor do produto, quantidade do produto e status do produto (A-tivo/I-nativo) dos produtos de uma padaria. Faça com que as informações sejam gravadas em um arquivo de dados. Permita as seguintes operações: Inclusão de novos produtos, Alteração dos dados do produto (menos o código) e Listar os dados dos produtos (relatório dos produtos existentes). Monte um menu com a estrutura CASE para cada umas dessas instruções. 1 - Incluir Produto 2 - Alterar Produto 3 - Relatório dos Produtos 4 - Sobre o Autor e o Programa 5 - Sair Fazer as validações necessárias, segue alguns exemplos: a. Código ou valor de produto negativo b. quantidade de produto negativa c. Status diferente de A/I ou ativo/inativo d. Outras...