Problem avec mon program en pascal
Utilisateur anonyme
-
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, voici la traduction de mon algo en pascal qui ne passe pas verifié quel est le problem. Merci
program facture;
use crt;
var pht, nb, ttva, pttc : real;
begin
clrscr;
writeln ('entrez le prix unitaire');
readln (pht);
writeln ('entrez le nombre d"article');
readln (nb);
writeln ('entrez le taux tva');
readln (ttva);
pttc := nb*pht*(1+ttva);
writeln ('le prix total est: ',pttc);
readln;
end.
program facture;
use crt;
var pht, nb, ttva, pttc : real;
begin
clrscr;
writeln ('entrez le prix unitaire');
readln (pht);
writeln ('entrez le nombre d"article');
readln (nb);
writeln ('entrez le taux tva');
readln (ttva);
pttc := nb*pht*(1+ttva);
writeln ('le prix total est: ',pttc);
readln;
end.
A voir également:
- Problem avec mon program en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Atheros client installation program - Forum Logiciels
- Time of day not set please run setup program ✓ - Forum Debian
3 réponses
bonsoir ,
alors je ne suis pas tres sure mais a mon humble avis tous va bien sauf que tu as declaré "nb" mais apres ton programme ne demande pas sa valeur , il utilise "nb" sans connaitre sa valeur forcément dans le dernier calcul il reste toujours un inconu "nb" donc essaie de lui faire son petit readln writeln a lui aussi , mais si non je crois que tt va bien.....
je commence apeine moi aussi donc soyez indulgeant .
alors je ne suis pas tres sure mais a mon humble avis tous va bien sauf que tu as declaré "nb" mais apres ton programme ne demande pas sa valeur , il utilise "nb" sans connaitre sa valeur forcément dans le dernier calcul il reste toujours un inconu "nb" donc essaie de lui faire son petit readln writeln a lui aussi , mais si non je crois que tt va bien.....
je commence apeine moi aussi donc soyez indulgeant .
merci moi aussi je sui nouvo en programmation.
ds le code il ya
writeln ('entrez le nombre d''article');
readln (nb);
à la 8ème et 9ème ligne
ds le code il ya
writeln ('entrez le nombre d''article');
readln (nb);
à la 8ème et 9ème ligne
Merci d'avance