Page 5 - PowerPoint 演示文稿

function test (prod1, prod2 : informations) : string; begin
prod1.pvt := prod1.qte* prod1.pvu;
prod2.pvt := prod2.qte*prod2.pvu;
if prod1.pvt > prod2.pvt then test := 'produit 1 '
else if prod1.pvt < prod2.pvt then test := produit 2 '
else test := 'egalité';
end;
begin {PP}
writeln ('introduire les informations du produit 1');
saisie (prod1);
writeln ('introduire les informations du produit 2');
saisie (prod2);
writeln (test(prod1, prod2));
end.

3 – Structure Avec ... faire
Pour simplifier l’écriture et éviter l’utilisation répétée de la notion objet.champ, nous pouvons
utiliser l’instruction Avec.. Faire
En algorithmique En Pascal
Avec variable Faire With Variable Do
Action champ 1 Begin
Action champ 2 Action champ1;
… Action champ2;
Fin Avec …
end;

Application2 (vecteur d’enregistrements)

a) Écrire une analyse et un algorithme d’un programme permettant de :
• saisir les informations relatives à n produits (articles) ( 5<= n <= 30)
• déterminer le(s) produits les plus bénéfiques
b) traduire la solution en pascal

Questions : Que peut être la structure de donnée nécessaire tableau d’enregistrements

Page 5