Premier programme en Pascal

Version imprimable

Bonjour je suis étudiante en math appliquées et informatique.J'essaie de compiler un programme mais ça ne marche pas.
Le voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program calcul;
var prixunitaire,nombrearticle,prixhorstaxe,tva,prixttc:integer;
const tauxtva:=0,186:real;
begin
read(prixunitaire);
prixunitaire:=45,65;
writeln(' prix unitaire:=',prixunitaire);
read(nombrearticle);
nombrearticle:=17;
writeln('nombre article:=',nombrearticle);
read(prixhorstaxe);
prixhorstaxe:=prixunitaire*nombrearticle;
writeln('prix hors taxe:=',prixhorstaxe);
read(tva);
tva:=prixhorstaxe*tauxtva;
witeln('tva:=',tva);
read(prixttc);
prixttc;=prixhorstaxe+tva;
writeln('prix ttc:='prixttc);
end.

salut léa
la prochaine fois crée toi un post plutot que d'en reprendre un qui n'as pas la même problématique

ceci dit pour ton probleme c'est normal que cla ne marche pas ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program calcul;
var 
   nombrearticle : Integer;
   prixunitaire,prixhorstaxe,tva,prixttc: real;//integer;//un nombre decimal n'est pas un entier
const 
  tauxtva:real =0,186; // dans ce sens là c'est mieux
begin
   //read(prixunitaire);
   prixunitaire:=45,65; // Pourquoi affecter une valeur alors que tu viens de demander une saisi ?
   writeln(' prix unitaire:=',prixunitaire);
  
  //read(nombrearticle);
  nombrearticle:=17;
  writeln('nombre article:=',nombrearticle);
  
   read(prixhorstaxe);
   prixhorstaxe:=prixunitaire*nombrearticle;
   writeln('prix hors taxe:=',prixhorstaxe);
   
   //read(tva);
   tva:= prixhorstaxe*tauxtva;
   witeln('tva:=',tva);
   //read(prixttc);
   
   prixttc:=prixhorstaxe+tva;
   writeln('prix ttc:=',prixttc);
end.

voila je pense que ton code devrais etre plus fonctionnel

Bonjour Léa,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program calcul;
var 
   nombrearticles: Integer; // les "s" sont utiles pour mieux comprendre le sens d'une variable
   prixunitaire,prixhorstaxes,tva,prixttc: Real;
const 
  tauxtva: Real = 0.186;
begin
  readln(prixunitaire); // plutôt lire la variable que lui affecter une valeur qui serait celle d'une constante...
  writeln('prix unitaire = ',prixunitaire); // ici, le := de Pascal n'a pas de sens => on n'écrit pas ainsi dans la vie courante
 
  readln(nombrearticles);
  writeln('nombre d''articles = ',nombrearticles);
 
  prixhorstaxes:=prixunitaire*nombrearticles;
  writeln('prix hors taxes = ',prixhorstaxes);
 
  tva:= prixhorstaxes*tauxtva;
  writeln('tva = ',tva); // attention à la syntaxe : pas "witeln"
 
 
  prixttc:=prixhorstaxes+tva;
  writeln('prix ttc= ',prixttc);
end.

Le code exige d'être très rigoureux ;)
Le programme fourni permet de calculer n'importe quel prix ttc à partir de l'entrée de l'utilisateur. Il me semble que c'est mieux qu'un programme qui définit des
variables pour rien...

Bonne continuation,

Gilles

06/04/2015, 15h49
léa diatta

remerciement

merci pour le coup de main.