Page 4 - PowerPoint 演示文稿

b – Ecriture (livre page 17)
En analyse & algorithmique En Pascal
Ecrire(objet .champ) write(objet.champ) ;

Activité 3

Déclarer 2 variables p1 et p2 de type informations
Affecter les valeurs suivantes « A006 », « Savon », 40 et 1.200 à la variable p1

Affectez le contenu de p1 à p2
(Remarques page 15)
Application1

a) Écrire une analyse et un algorithme d’un programme permettant de :
• saisir les informations relatives à 2 produits (articles)
• déterminer le produit le plus bénéfique
b) traduire la solution en pascal

traduction en pascal (solution 1)
Pascal program produits;
uses wincrt;
type
Informations = record
code, design : string;
qte : integer;
pvu, pvt : real;
end;
var prod1 , prod2 : informations;
procedure saisie ( var prod : informations);
begin
write ('reference = '); readln (prod.ref);
write ('designation = ');
realdln(prod.design);
write ('Qte vendue = ');
readln (prod.qte); 00000000000
write ('prix de vente unitaire =');
readln (prod.pvu);
end;

Page 4