svp un algorithme Fermé

Question

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.

info2009 · Answer

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

t9dm · Answer

ok merci mais est-se-que eu peut traduire cett algorithme a un programme pascal ???

info2009 · Answer

je pense il sufait de traduire les mots clés en anglais
car moi j'ai oublie pascal j'utilise le C

amigo · Answer

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.

Svp un algorithme

4 réponses

Discussions similaires