Discussion :

[PedroFx1337]

Bonjour,

Qu'ai-je fait de mal?

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
29
30
31
program calcul_somme0000;
uses wincrt;
var
s,somme:longint;
e:integer;      {la logique}
n:byte;
 
procedure saisir (var n:byte);
var i:byte;
begin
repeat
      for i:=1 to n do
       writeln('donner le nb de lignes = ');
       readln(n)
until (n>=2)
end;
 
function somme (n:byte);
var e,s,i:longint;
begin
     s:=0;
		 for i:=1 to n do
		 write('saisir l"entier = ',i);
		 read(e);
		 s:=s+e;
		 somme:=s
end;
begin
     saisir(n);
		 writeln('la somme des entiers =',somme(n));
end.

[Alcatîz]

Bonjour et bienvenue !

Rapido, pour pouvoir au moins compiler et déboguer ton programme :

• l'identificateur somme est déclaré comme variable et comme fonction : enlève la variable ;
• la fonction somme n'a pas son type (longint).

Ensuite, la fonction saisir ne peut pas fonctionner - indice : le for ou le repeat est de trop, à toi de trouver lequel.
La fonction somme ne fait pas non plus ce que tu attends - indice : dans une boucle for, le bloc d'instructions à exécuter doit être encadré par begin/end.
Les variables globales s et e ne sont pas utilisées.
Dernière astuce : utilise readln plutôt que read.

Aide-toi d'un crayon et d'un papier pour simuler l'exécution du programme : cela t'aidera à corriger tes erreurs.