Exercice
Fermé
bimo13
-
29 mars 2009 à 22:05
rwikus Messages postés 871 Date d'inscription lundi 29 décembre 2008 Statut Membre Dernière intervention 18 mai 2012 - 30 mars 2009 à 03:51
rwikus Messages postés 871 Date d'inscription lundi 29 décembre 2008 Statut Membre Dernière intervention 18 mai 2012 - 30 mars 2009 à 03:51
A voir également:
- Exercice
- Comment trouver la correction d'un exercice - Forum Programmation
- Exercice pour apprendre à utiliser un ordinateur - Astuces et Solutions
- Exercice word gratuit avec corrigé - Forum Word
- Triangle des textures exercice corrigé - Forum Loisirs / Divertissements
- Exercice python mot de passe ✓ - Forum Python
2 réponses
rwikus
Messages postés
871
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
18 mai 2012
56
30 mars 2009 à 03:36
30 mars 2009 à 03:36
dans quel langange tu le veut? ou en algorithmique normal si c sa eks ele produit est un enregistrement composé de 2 atribue prix et cat?
rwikus
Messages postés
871
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
18 mai 2012
56
30 mars 2009 à 03:51
30 mars 2009 à 03:51
program calcul;
type
record=article
prix:integer;
cat:(1,2,3,4);
end;
var
tva:(0,7,14,21);
a:article;
prixTTC:real;
reponse:string,
begin
repeat
read(a);
if a.cat=1 then
prixTTC=prix
else
if a.cat=2 then
prixTTC=prix+(prix*7)/100
else
if a.cat=3 then
prixTTC=prix+(prix*14)/100
else
if a.cat=4 then
prixTTC=prix+(prix*21)/100;
writeln('le prix de votre article est',prixTTC);
writeln('voulez calculer le pxi d'un autr article');
readln(reponse);
until reponse="non";
end.
voila se programme est en langage pascal normalmen tu devrai pas avoir de problem a le comprendre ,,,sur les succetion de if tu peux biensur utiliser la primitive du "case of",,,,,,,,sinon tu le veu en algorithmique?
type
record=article
prix:integer;
cat:(1,2,3,4);
end;
var
tva:(0,7,14,21);
a:article;
prixTTC:real;
reponse:string,
begin
repeat
read(a);
if a.cat=1 then
prixTTC=prix
else
if a.cat=2 then
prixTTC=prix+(prix*7)/100
else
if a.cat=3 then
prixTTC=prix+(prix*14)/100
else
if a.cat=4 then
prixTTC=prix+(prix*21)/100;
writeln('le prix de votre article est',prixTTC);
writeln('voulez calculer le pxi d'un autr article');
readln(reponse);
until reponse="non";
end.
voila se programme est en langage pascal normalmen tu devrai pas avoir de problem a le comprendre ,,,sur les succetion de if tu peux biensur utiliser la primitive du "case of",,,,,,,,sinon tu le veu en algorithmique?