Type identifier expected

Version imprimable

Bonjour

J'ai un programme qui donne le max / min moyen dans un tableau.
J'ai fait ça mais où est le problème (3 heures déjà sur ce problème) :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program max_min ;
 
uses wincrt ;
 
function maximum (n:integer; t: array [0..100] of real) :real;
var
  max:real;
  i:integer;
begin
  max:=t[1] ;
  for i:=2 to n do
    begin ;
      if t[i] > max then
        max:= t[i] ;
      maximum:= max;
    end;
end;
 
function minimum (n:integer ; t: array [0..100] of real) :real;
var
  min:real;
  i:integer;
begin
  min:=t[1];
  for i:=2 to n do
    begin
      if t[i] < min then
        min := t[i] ;
      minimum:= min;
    end;
end;
 
begin
  repeat
    write('donner les nombres des eleves : '); readln(n);
  until n in [5..30] ;
  for i:=1 to n do
    begin
      write('donner le moyen de eleve : '); readln(t[i]);
    end;
  maximum(n,t);
  minimum(n,t);
  writeln(max:2:2);
  writeln(min:2:2);
end.

thanks :lol:

09/04/2007, 21h50
Alcatîz
Bonjour !

Le problème vient de l'utilisation du type array dans la définition des paramètres des fonctions.

Tu devrais faire comme ceci (par exemple) :
Code:

1 2 3 4 type tabl = array [0..100] of real; function maximum (n:integer; t: tabl) :real;
Et ça passera à la compilation.

Citation:

Envoyé par Alcatîz

Bonjour !

Le problème vient de l'utilisation du type array dans la définition des paramètres des fonctions.

Tu devrais faire comme ceci (par exemple) :

Code:

1
2
3
4
type
  tabl = array [0..100] of real;

function maximum (n:integer; t: tabl) :real;

Et ça passera à la compilation.

merci

mais je trouve un nouveau problem

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program max_min ;
uses wincrt ;
var
i,n:integer ;
t : array [0..100] of real;
type
  tab = array [0..100] of real;
function maximum (n,i:integer; t:tab) :real;
var
max:real;
begin
max:=t[1] ;
for i:=2 to n do
begin ;
if t[i] > max then
max:= t[i] ;
maximum:= max;
end;
end;
function minimum (n:integer ; t:tab) :real;
var
min:real;
begin
min:=t[1];
for i:=2 to n do
begin
if t[i] < min then
min := t[i] ;
minimum:= min;
end;
end;
begin
repeat
write('donner les nombres des eleves : '); readln(n);
until n in [5..30] ;
for i:=1 to n do
begin
write('donner le moyen de eleve : '); readln(t[i]);
end;
maximum(n,t);
minimum(n,t);
writeln(max:2:2);
writeln(min:2:2);
end.

10/04/2007, 01h02
droggo

Hol,

Citation:

Envoyé par vip4e

merci

mais je trouve un nouveau problem

Qui est ?

Revois quand même la manière dont tu appelles tes fonctions, et comment, dans le programme principal, veux-tu afficher des variables qui sont locales aux fonctions ?

Leitmotiv : pourquoi avoir enlevé l'indentation du code ?
Quelques lignes vides pour aérer seraient également les bienvenues.