Pascal/Turbo Pascal - Ejercicio Mayor numero

   
Vista:

Ejercicio Mayor numero

Publicado por Rolando (2 intervenciones) el 21/05/2014 05:12:09
Hola, que tal. Acá una duda. al momento de correr el programa no me busca el mayor número, sino que me guarda la última posición con su valor. Si alguien puede ver el error favor decirme. Gracias de antemano.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROGRAM MAYOR_NUMERO;
USES CRT;
CONST
N=5;
TYPE
VECTOR=ARRAY[1..N] OF REAL;
VAR
I,POS:INTEGER;
MAYOR:REAL;
R:VECTOR;
BEGIN
CLRSCR;
MAYOR:=-1;
  FOR I:=1 TO N DO
  REPEAT
    WRITELN('INGRESE EL NUMERO');
    READLN(R[I]);
  UNTIL(R[I]>=0)AND(R[I]<=5);
  IF(R[I]>MAYOR)THEN
  MAYOR:=R[I];
  POS:=I;
WRITELN('EL NUMERO MAYOR ES ', MAYOR:0:0 ,' EN LA POSICION ', POS);
READKEY;
END.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ejercicio Mayor numero

Publicado por ramon (2072 intervenciones) el 21/05/2014 10:29:40
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
{A qui lo tienes corregido}
 
PROGRAM MAYOR_NUMERO;
 USES
   CRT;
    CONST
       N=5;
   TYPE
     VECTOR=ARRAY[1..N] OF REAL;
   VAR
     I,POS:INTEGER;
      MAYOR:REAL;
       R:VECTOR;
   BEGIN
     CLRSCR;
     MAYOR:=-1;
     for i := 1 to n do
     r[i] := -1;
     i := 1;
    REPEAT
      WRITE('INGRESE EL NUMERO = ');
      READLN(R[I]);
      i := i + 1;
    UNTIL i > n;
      for i := 1 to n do
     IF R[i] > MAYOR THEN
     begin
      MAYOR:=R[i];
       POS:=i;
     end;
     WRITELN('EL NUMERO MAYOR ES ', MAYOR:0:0 ,' EN LA POSICION ', POS);
     READKEY;
    END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar