Cadastro de Produtos em Pascal

Atendendo a mais um pedido de Linguagem Pascal e agora do leitor Marcos:

"Olá, Profº preciso de sua ajuda.
Eu necessito fazer um programa que tenha a entrada de produtos, códigos e data de validade. O cliente deve entrar com o código e o algoritmo deve ler o tipo de produto e a validade do mesmo. Ex.: Produto: Congelados; Código: 01; Validade: 07 dias. Necessito colocar 7 produtos, 7 validades e 7 códigos. Muito obrigado"

Detalhe Marcos, eu uso Free Pascal para fazer o programa se tiver algum problema me avise.

Solução:

Código:

Program Produtos_Validade;
Uses Crt;
var
Produto : array [1..7] of String;
Codigo : array [1..7] of String [3];
Validade : array [1..7] of Integer;
i : Integer;
cod : String [3];
achou : Boolean;
Begin
ClrScr;
WriteLn (' Cadastro dos produtos ');
WriteLn (' ===================== ');
WriteLn;
for i := 1 to 7 do
begin
Write ('Produto..: '); ReadLn (Produto[i]);
Write ('Codigo...: '); ReadLn (Codigo[i]);
Write ('Validade.: '); ReadLn (Validade[i]);
end;
repeat
ClrScr;
WriteLn (' Consulta dos produtos ');
WriteLn (' ===================== ');
WriteLn;
WriteLn (' Digite 000 para sair');
WriteLn;
Write (' Codigo do Produto: '); ReadLn (cod);
achou := false;
for i := 1 to 7 do
begin
if cod = Codigo[i] then
begin
achou := True;
WriteLn (' Produto..:', Produto[i]);
WriteLn (' Validade.:', Validade[i]);
end;
end;
if not(achou) and cod<>'000' then WriteLn ('Produto nao encontrado!');
ReadLn;
until cod='000';
end.

2 comentários:

  1. Para se bem sincera eu não entendo nada de computação...mas gostei do seu tutorial.
    Bjos

    ResponderExcluir
  2. nao esta funcionando no free pascal!

    ResponderExcluir