Programme
skoparx
-
skoparx -
skoparx -
Bonjour,
je veux construire un programme qui calcule le prix d'un hotel mais le turbo pascal 7 me donne des erreure
voici le programme que j'ai ecrit
program sejour;
var A,B,C,D,E:real;
begin
write('Donner le nombre de nuits:');
readln(A);
write('Donner le prix de nuit dans lhotel:');
readln(B);
if A=1 then
write('le prix est:'B:8:2);
if A>1 then
C:=(B*25)/100;
D:=A*B;
E:=D-C;
write('le prix est :'E:8:2);
end.
end;
je veux construire un programme qui calcule le prix d'un hotel mais le turbo pascal 7 me donne des erreure
voici le programme que j'ai ecrit
program sejour;
var A,B,C,D,E:real;
begin
write('Donner le nombre de nuits:');
readln(A);
write('Donner le prix de nuit dans lhotel:');
readln(B);
if A=1 then
write('le prix est:'B:8:2);
if A>1 then
C:=(B*25)/100;
D:=A*B;
E:=D-C;
write('le prix est :'E:8:2);
end.
end;
Configuration: Windows XP Opera 9.26
1 réponse
-
Bonjour,
Essaye avec çaprogram sejour; uses crt; var A,B,C,D,E:real; S:string; begin clrscr; write('Donner le nombre de nuits:'); readln(A); write('Donner le prix de nuit dans lhotel:'); readln(B); if A=1 then begin str(B:8:2,S); write('le prix est:',S); end; if A>1 then begin C:=(B*25)/100; D:=A*B; E:=D-C; str(E:8:2,S); write('le prix est :',S); end; readln; end.
