Dhifallah Fethi Admin
Messages : 74 Date d'inscription : 02/03/2011
| Sujet: Exercice 4 (Enregistrement et fichiers) Dim 27 Mar - 2:32 | |
| Exercice 4 (Enregistrement et fichiers) Recherche et affichage des Références et PU des produits à l'exportation Correction de l'exercice - Code:
-
program produit_export; uses wincrt; type produit = record reference : string[10]; nom : string [50]; pu:real; quantite:word; exportation:byte; end; tab_prod = array[1..50] of produit; var tp1 : tab_prod; n : byte; procedure saisie(var n:byte); begin repeat readln(n); until n in [3..50]; end; procedure remplir(var tp1 : tab_prod; n:byte); var i:byte; begin for i:=1 to n do begin write ('donner la reference : '); readln (tp1[i].reference); write ('donner le nom :'); readln (tp1[i].nom) ; write ('donner le P.U : '); readln (tp1[i].pu) ; write ('donner la quantié : '); readln (tp1[i].quantite); write ('Es ce que ce produit et à l''export (0 => Non, 1 => Oui : '); readln (tp1[i].exportation); end; end;
procedure affiche(tp1 : tab_prod; n:byte); var j:byte; begin writeln('LISTE DES PRODUITS A L''EXPORTATIION'); writeln; writeln('Référence P.U'); writeln('--------- ---'); for j:=1 to n do with tp1[j] do begin if exportation = 1 then writeln(reference,' ',pu:5:3); end; end;
begin saisie(n); remplir(tp1,n); affiche(tp1,n); end. | |
|