Programme en Pascal

Posté par NostalGeek NostalGeek

Bonjour je sollicite votre aide pour la création d'un programme en Pascalqui calcule la somme

1/|i-j|'
1ijn,
pour un entier n supérieur ou égal à deux, choisi par l'utilisateur.

Posté par infophile infophile

Bonjour

Tu fais 2 boucles for imbriquées, une qui somme sur i et l'autre sur j.

Posté par NostalGeek NostalGeek

PROGRAM Nostal;
VAR n:INTEGER;
    i,j,S:REAL;
BEGIN;
WRITELN('Donner un nombre entier supérieur à 2');
READLN(n);
i=1
FOR 1 to i DO
BEGIN
  i=i+1
  S:=1/|i-j|'
  1/|i-j|'
  FOR j TO n DO 1/|i-j|'
END;
WRITELN('La solution est' S)
READLN;
END.

Je suis pas du tout sur de moi là ... Je pense que le programme va planter car il connait pas la valeur de j . De plus je ne sais pas écrire ni la dérivé, ni la valeur absolue en pascal :x

  

Posté par NostalGeek NostalGeek

Edit : Il n'y a pas de dérivé dans la somme j'ai mal lu l'énoncé, la virgule anonçait le "
pour un entier n supérieur ou égal à deux, choisi par l'utilisateur."

Posté par infophile infophile

Beaucoup d'erreurs, de logique comme de syntaxe.

si tu affectes 1 à i puis que tu fais une boucle de 1 à i ça va pas aller bien loin

Posté par NostalGeek NostalGeek

Effectivement j'ai voulu répondre trop vite ... ^^

Posté par infophile infophile

Ensuite comme tu dis "il ne connait pas la valeur de j", c'est normal vu que ton j est en dehors (plus exactement au dessus) de ta boucle portant sur j.

La valeur absolue est abs() en pascal.

Et puis tu as déclaré i,j de type réel, je veux bien, mais dans ce cas une boucle for comme tu l'as fait ne fonctionne pas.

Enfin ton S n'est pas incrémenté.

Bon corrige déjà tout ça

Posté par infophile infophile

Attention également à ne pas confondre l'affectation := avec le test d'égalité = !

Pense aussi aux points virgules et tout ce qui concerne la syntaxe Pascal.

Le mieux serait que tu testes ton code sous Turbo-Pascal, il y a des logiciels gratuits sur le net qui permettent de le compiler (je possède dev-Pascal).

J'ai pas mal de boulot je reviens demain !

Posté par infophile infophile

Bon finalement j'ai trouvé 2 minutes pour te programmer ça, imprègne toi du code et surtout comprends sa structuration.



Si tu as des questions n'hésite pas

Posté par NostalGeek NostalGeek

Re,
Voilà après avoir repris le programme à plusieurs, nous sommes arrivés à ça :
PROGRAM Nostal;

VAR n:INTEGER;
    i,j,S:REAL;
    
BEGIN;
WRITELN('Donner un nombre entier supérieur à 2');
READLN(n);
i=1
FOR i:=1 to n-1 DO
BEGIN
   FOR j:=i+1 to n DO
   BEGIN
      S:= S + 1/abs(i - j)
   END;
END;
WRITELN('La solution est' S)
READLN;
END.

J'aurais voulu savoir ce que tu en pensais.

En revanche dans ton programme, tu poses au départ i:=1 et j:=1 alors que i et j sont différents.

Posté par infophile infophile

Bonsoir,

Votre programme ne répond pas au problème, il suffit de tester à la main, vous oubliez plein de termes.

Le mien fonctionne, je l'ai compilé sous dev-Pascal



Oui mais peu importe j'ai pris soin d'imposer la condition j <> i dans ma boucle intérieure avant d'évaluer 1/abs(i-j).

Posté par NostalGeek NostalGeek

Pourtant je viens de tester ton programme sous FreePascal ( le logiciel que l'on utilise en cours ) et il ne fonctionne pas :x

Posté par infophile infophile

Je t'assure, il fonctionne

Maintenant je ne sais pas si la syntaxe de FreePascal est la même que celle de dev-Pascal.

Télécharge dev-Pascal et teste mon code si tu as un doute.

Posté par NostalGeek NostalGeek

Ce que l'on doit faire c'est bien :
1°) Pour i de 1 à n-1 # Condition 1 <= i et i < n (car i != j <= n)
2°) Pour j de i+1 à n # Condition i != j et j <= n
3°) s = s + 1/|i-j| # On fait la somme ?

Posté par infophile infophile

Non là tu oublies tous les termes où j < i !

Par exemple si n = 5 et i = 3 ton programme ajoute 1/|3-4| + 1/|3-5|, alors qu'il devrait ajouter 1/|3-1| + 1/|3-2| + 1/|3-4| + 1/|3-5|.

Posté par infophile infophile

Pourquoi tu ne testes pas ton code informatiquement ?

Tu te rendrais compte que certaines choses ne collent pas.

Sous dev-Pascal il y a un debugger très pratique qui t'indique où sont les erreurs de compilations en t'indiquant leur nature.