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
| uses crt;
var boisson:integer;
//var canette:integer;
var x:integer;
var n1:integer;
begin
n1:=0;
//canette:=100;
Repeat
writeln('Autre client?YES=1 NO=2');
readln(x);
IF (x=1)
THEN
writeln('Choississez votre boisson 1=coca');
writeln('Choississez votre boisson 2=fanta');
writeln('Choississez votre boisson 3=sprite');
writeln('Choississez votre boisson 4=ice tea');
writeln('Choississez votre boisson 5=aquarius');
readln(boisson);
if (boisson in [1,2,3,4])then writeln('Le prix est 1,00')
else if(boisson in [5])then writeln('le prix est 1;20');
if (boisson in [1,2,3,4]) then writeln(n1,'+',1,'=',n1+1)
else if (boisson in [5]) then writeln(n1,'+',1.20,'=',n1+1,20);
UNTIL (x=2);
//Until (canette=0)
end. |
Partager