Exercício 04 Registro - Pascal

4) Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No final, imprima
os produtos que tenha mais do que 5 unidades.

Program Reg04 ;
const MAX=7;
Type produto=record
       codigo:integer;
       nome:string;
       qtd:integer;
       preco:real;
     End;  
 tipo_produto=array[1..MAX] of produto;  
var
 produtos:tipo_produto;
 
procedure ler(var produtos:tipo_produto);
var
 i:integer;
 Begin
  for i := 1 to MAX do
   Begin
        Write(i,' Codigo: ');
        readln(produtos[i].codigo);
        Write(i,' Nome  : ');
        readln(produtos[i].nome);
        Write(i,' Qtd   : ');
        readln(produtos[i].qtd);
        Write(i,' Preco : ');
        readln(produtos[i].preco);
        Writeln;
   End; 
 End;  
 
procedure qtd_5(produtos:tipo_produto); 
var
 i:integer ;
  Begin
   Writeln('Produtos com Mais de 5 Unidades');
   for i := 1 to MAX do
    Begin
        if (produtos[i].qtd > 5) then
            Writeln(produtos[i].nome);
    End; 
  End;
 
 Begin
  ler(produtos);
  qtd_5(produtos); 
 End.

Categories: Pascal , Programação