Svp un algorithme
Bonjour, svp écrire cette algorithme
une société de télécommunication facture la consommation téléphonique à 0.80 DH par unité (taxe nom comprise ) . L'abonnement mensuel est fixé à 70 DH hors taxe.
La société n'envoie la facture au cliente que lorsque le montant dépasse 120 DH toutes taxes comprises . Sinon la facture est reprortée au mois suivant .
1) on vous charge d'écrire un algorithme qui calcule le montant à payer en fonction du nombre d'unités consommées et affiche selon le cas des messages " facture envoyée " ou " facture reportée au mois suivant " .
2 ) traduire l'algorithme en un programme pascal.
une société de télécommunication facture la consommation téléphonique à 0.80 DH par unité (taxe nom comprise ) . L'abonnement mensuel est fixé à 70 DH hors taxe.
La société n'envoie la facture au cliente que lorsque le montant dépasse 120 DH toutes taxes comprises . Sinon la facture est reprortée au mois suivant .
1) on vous charge d'écrire un algorithme qui calcule le montant à payer en fonction du nombre d'unités consommées et affiche selon le cas des messages " facture envoyée " ou " facture reportée au mois suivant " .
2 ) traduire l'algorithme en un programme pascal.
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
Salut,
alors il qu'on fasse tout à ta place?
En Algo
-----------
Programme Facuration
Variables
NonbreUnite : ENTIER
PrixHT, PrixTTC : REEL
Constante Taxe=0.186 (18,6% en France)
Constante Abonnement = 70
Constante PrixUnite = 0.80
BEDUT
Ecrire(Nombre d''unités consommées : )
Lire(NombreUnite)
PrixHT=(PrixUnite*NombreUnite)+Abonnement
PrixTTC=PrixHT+(PrixHT*Taxe)
Ecrire(PrixTTC)
Si PrixTTC > 120 alors Ecrire(Facture envoyée) sinon Ecrire(Facture reportée au mois suivant)
FIN
En PASCAL
--------------
program Fact_Tel ;
uses crt;
var
NbUnit: integer;
PrixHT , PrixTTC : real;
txt:string[8] ;
Const Taxe = 0.186; { 18,6% }
Const Abonnement = 70;
Const PrixUnit = 0.80;
Begin
write('Nombre d''unités consommées : ');
readln(NbUnit);
writeln;
PrixHT:=(Nbunit*PrixUnit)+Abonnement;
PrixTTC:=PrixHt*(1+Taxe);
str((PrixTTC):8:2,txt); {formatage du nombre sur 8 caractère dont 2 décimales}
writeln('Total facture : ' , txt);
if (PrixTotal > 120) then
writeln('Facture envoyée')
else
writeln('Facture reportée au mois suivant');
readln;
end. -
je pense il sufait de traduire les mots clés en anglais
car moi j'ai oublie pascal j'utilise le C -
ok merci mais est-se-que eu peut traduire cett algorithme a un programme pascal ???
-
salut voila l'algo
debut
cmt naturel ; "est le compteur de nombre d'unité";
prix réel ;"le prie de la communication avec taxe";
taxe réel ;"est les taxes ajouté a la communication";
cmpt =0;
tantque (no fin appelle)
cmt=cmt+1;
fin
prix=(cmt*0,80)+taxe;
si prix>70 alors ecrire ("coupé la ligne");
sinon
si prix>10 alors
ecrire ("facture envoyée ");
sinon
ecrire(" facture reportée au mois suivnt " );
finsi
fin
