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;
A voir également:
- Programme
- Programme demarrage windows - Guide
- Programme word gratuit - Guide
- Message programmé - Guide
- Mettre en veille un programme - Guide
- Desinstaller un programme - Guide
1 réponse
Bonjour,
Essaye avec ça
Essaye avec ça
program 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.
skoparx
merci ca marche
