Discussion :

[Drax]

Bonjour je viens de me mettre sur le delphi et j'ai un petit probleme avec un programme que j'ai trouvé sur un livre de Pascal voila ce que j'ai ecrit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program PI;
{$APPTYPE CONSOLE}
const
  PI=3.14159 ;
var
  r,c,sc,ss,vs:real;
 
begin
 
   readln(r);
   c:=pi*r*r
   sc:=4*sc
   ss:=4*sc
   vs:=ss*r/3
   writeln('rayon='r:6:2);
   writeln('cercle','perimetre=',c:6:2,'surface=',sc:6:2
   writeln('sphere','surface=',ss:6:2,'volume=',vs:6:2);
   readln
end.

Le probleme est que le logiciel Delphi6 me met "operateur ou point virgule manquant"

merci par avance

[Hauwke]

Bonjour,

program PI;
{$APPTYPE CONSOLE}
const
PI=3.14159 ;
var
r,c,sc,ss,vs:real;

begin
readln(r);
c:=pi*r*r ;
sc:=4*sc ;
ss:=4*sc;
vs:=ss*r/3;
writeln('rayon='r:6:2);
writeln('cercle','perimetre=',c:6:2,'surface=',sc:6:2);
writeln('sphere','surface=',ss:6:2,'volume=',vs:6:2);
readln;
end;
end.

Delphi préférrerait pas que tu l'écrives de cette façon?
Cordialement,
Hauwke
PS: Prière de ne pas prendre ombrage pour l'usage du rouge, c'est juste une question de visibilité rapide

[Drax]

Je viens de corriger mais le probleme persiste.
Des que je fais executer,il me met la ligne "PI=3.14159;" :/

[Hauwke]

je vais peut être dire une bétise mais renomme "pi" en "toto" et réessaies.
(Changement dans le nom de la constante et dans le code)

[Laurent Dardenne]

je vais peut être dire une bétise mais renomme "pi"

Non tu as raison, le nom de programme et la constante porte le même nom ...

[Hauwke]

Non tu as raison, le nom de programme et la constante porte le même nom ...

J'ai hésité à cause de ça:

[...] un programme que j'ai trouvé sur un livre de Pascal [...]

J'en ai lu quelques uns, généralement, ils sont plutôt bien fait surtout les citations de code... J'ai dû avoir de la chance... Mais surtout parce qu'avec D2005, l'ide n'autorise même pas l'enregistrement du source si plusieurs objets ont le même nom et j'ignore si cette fonctionnalité se trouve aussi dans l'ide de D6.
il faut dire que je suis passé de D2 à D2005 et mm aprés quelques mois ça continue de décoiffer, j'ai l'impression de vivre un remake d'Hibernatus
En tout cas merci de la confirmation, un doute de moins

[Drax]

Ok merci ça a marché.J'ai un autre soucis avec un autre programme (j'ai mis en bleu)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 grandpetit;
{$APPTYPE CONSOLE}
type
  sexe=('M','F'); // <-- PB
var
  sex:sexe;
  majeur,petit,grand:boolean;
  age:1..150;
  taille:50..250;
  femme,homme:boolean;
begin
 read(sex,age,taille);
 femme:=sexe='F';
 HOMME:= not femme;
 majeur:=age>18;
 If femme then
   begin
    petit:=taille<150;
    grand:=taille>170;
   end
 else
   begin
    petit:=taille<160;
    grand:=taille>180;
   end;
writeln(majeur,femme,homme)
writeln(age,petit,grand);
end.

merci (j'ai mis ici pour eviter de surcharger le forum .

[Laurent Dardenne]

Je te conseille de relire un tuto sur les bases du langage Pascal/Delphi.

[Drax]

Et bien en fait j'ai pris cet exemple sur un livre Pascal ( qui date un peu).
J'ai mis exactement ce qu'il y avait dessus mais j'ai toujours un probleme.Ne sachant pas d'ou viens le probleme je ne sais quelle solution rechercher.
Afin de resoudre tous mes problemes il faudrait que j'achete un livre specialement pour le Delphi.mais lequel choisir? http://delphi.developpez.com/livres/#L2744013188 ?

[Hauwke]

Bonjour,
Scala
Beaulieu
des noms qui ne vont pas te quitter durant des semaines...
Bonne lecture,
Cordialement,
Hauwke

[Nono40]

Cette notation sexe=('M','F'); n'a jamais été supportée telle que par Borland. De quel compilateur parle ton livre ?

[Laurent Dardenne]

Ne sachant pas d'ou viens le probleme je ne sais quelle solution rechercher.

Pour ton pb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type
  sexe=('M','F');

Tu peux utiliser un ensemble de caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
type
  Abreviation = set of Char;
 
const
  Genre:Abreviation=['F','M'];
 
var
  sex:Char;
  majeur,petit,grand:boolean;
  age:1..150;
  taille:50..250;
  femme,homme:boolean;
begin
 read(sex,age,taille);
 if sex in Genre
  then femme:=sex='F' // Cas de saisie minuscule à faire
  else Writeln('Erreur de saisie');

Et comme le dit Nono ton exemple est 'un mixage' entre une déclaration d'énumération et un ensemble.

[Drax]

Bonjour,
Scala
Beaulieu
des noms qui ne vont pas te quitter durant des semaines...
Bonne lecture,
Cordialement,
Hauwke

Merci je vais regarder tout ça
Pour Nono40: a vrai dire je ne sais pas du tout vu que j'apprends a peine les bases je ne connait pas tout le vocabulaire.

Merci pour le code que m'a passé