1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(* Declaration des variables *)
var prix_unitaire,quantite, total_ht,tva,total_ttc:real;
(*debut du programme *)
begin
(* Writeln Affichage *)
writeln('prix de l''article ?');
(* le système attend que l'utilisateur entre une donnée - d'après la définition des variables il s'agit d'un réel on pase à l'affichage suivant après que l'utilisateur eu appuyé sur Entrée *)
readln(prix_unitaire);
(*cf. ci-dessus*)
writeln('quantité désirée ? ');
readln(quantite);
(* petit calcul tout simple... ;-) )
total_ht:=prix_unitaire*quantite;
tva:=total_ht*(18.6/100);
total_ttc:=total_ht+tva;
(* affichage des résultats *)
writeln('total ht : ',total_ht);
writeln('tva : ',tva);
writeln(' -------------');
writeln('total ttc : ',total_ttc)
(* fin du programme *)
end. |
