CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

pascal besoin d'aide

nicolas1992
nicolas1992
Niveau 6
15 octobre 2008 à 20:04:47

Bonjour,
Voici mon code source, pouvez vous me dire ce qu'il cloche? C'est pour faire une calculatrice .
merci d'avance.
Code : Pascal

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

Program Calculatrice;
Var a: integer; b, c, d: real;
Begin
WriteLn
('-------------------Calculatrice-----------------
--');
WriteLn;
WriteLn ('1. Addition');
WriteLn ('2. Soustraction');
WriteLn ('3. Division');
WriteLn ('4. Multiplication');
WriteLn;
WriteLn ('Entrer le chiffre qui correspond a ce que vous voulez faire:');
ReadLn (a);
Case a of
1: WriteLn (' Entrez un premier nombre:');

WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a+b;
WriteLn ('La réponse est:');
WriteLn (d);
2: WriteLn (' Entrez un premier nombre:');
ReadLn (b);
WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a-b;
WriteLn ('La réponse est:');
WriteLn (d);
3: WriteLn (' Entrez un premier nombre:');
ReadLn (b);
WriteLn (' Entrez un second nombre:');
ReadLn (c);
d:=a/b;
WriteLn ('La réponse est:');
WriteLn (d);
4: WriteLn(' Entrez un premier nombre:');
ReadLn (b);
WriteLn(' Entrez un second nombre:');
ReadLn (c);
d:=a*b;
WriteLn ('La réponse est:');
WriteLn (d);
End;

ReadLn
End.

Si vous comprenez pas bien le code il est plus claire ici:
http://www.siteduzero.com/forum-83-329375-pascal-probleme-de-code.html

merci d'avance

nicolas1992
nicolas1992
Niveau 6
15 octobre 2008 à 20:16:56

désolé pour les nombres au début, c'est pas fais exprés.

Supernova_XT
Supernova_XT
Niveau 10
15 octobre 2008 à 20:23:08

J'irai sur le forum programmation à ta place mais il me semble que tu mets pas les variables à chaque fois que tu demandes d'entrer les 2 chiffres et que tu n'initialises pas tes variables.
De plus j'aurai mis l'entrée des 2 nombres dans le programme au début, et fais une structure de choix uniquement pour le calcul des résultats.
A confirmer.

tinana007
tinana007
Niveau 8
15 octobre 2008 à 20:32:40

nicolas va sur ce site pour poster, t'aura plus de réponse

http://www.abcelectronique.com/

bonne chance

Sous forums
  • Aide à l'achat Mac
  • Création de Jeux
  • Linux
  • Programmation
  • Création de sites web
  • Internet
  • Steam Deck
  • Macintosh
  • Hardware
La vidéo du moment