Pascal/Turbo Pascal - errorcode = 201

 
Vista:

errorcode = 201

Publicado por ro (1 intervención) el 13/10/2017 04:20:16
necesito ayuda, cuando ejecuto el programa lo hace bien pero en va a ejecutar "procedure imprimir" se sale y me aparece "errorcode = 201"
aqui esta el programa:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program vector_clase;
uses crt;
type
Tnombres = array [1..4] of string;
Testaturas = array [1..4] of real;
var
nombres:Tnombres;
estaturas:Testaturas;
f:integer;
mayor:double;
menor:double;
pocision:integer;
pocision_2:integer;
a:char;
 
procedure ingresar(var nombres: Tnombres; var estaturas: Testaturas);
var
f:integer;
begin
        for f:=1 to 4 do
        begin
                writeln('ingrese nombre del ni¤o', f);
                readln(nombres[f]);
                writeln('ingrese estatura del ni¤o', f);
                readln(estaturas[f]);
        end;
end;
 
procedure sacar_mayor(estaturas: Testaturas; var mayor:double; pocision:integer);
var
f:integer;
begin
        mayor:=estaturas[1];
        pocision:=1;
        for f:=2 to 4 do
        begin
                if estaturas[f] > mayor
                then
                begin
                        mayor:=estaturas[f];
                        pocision:=f;
                end;
        end;
end;
 
procedure sacar_menor(estaturas: Testaturas; var menor:double; posicion_2:integer);
var
f:integer;
begin
        menor:=estaturas[4];
        pocision_2:= 4;
        for f:=1 to 3 do
        begin
                if estaturas[f] < menor
                then
                begin
                        menor:=estaturas[f];
                        pocision_2:= f;
                end;
        end;
end;
 
procedure imprimir(var nombres: Tnombres; estaturas: Testaturas; mayor, menor:double; pocision,pocision_2:integer);
begin
        clrscr;
        gotoxy(10,6);
        textcolor(3);
        writeln('el alumno mas alto de los cuatro es ', nombres[pocision],' que mide:', mayor,'m');
        gotoxy(10,7);
        textcolor(5);
        writeln('el alumno mas bajo de los cuatro es ', nombres[pocision_2],' que mide:', menor,'m');
        gotoxy(20,20);
        textcolor(10);
        writeln('preciona cualquier tecla para salir');
end;
 
begin
        clrscr;
        ingresar(nombres, estaturas);
        sacar_mayor(estaturas, mayor, pocision);
        sacar_menor(estaturas, menor, pocision_2);
        imprimir(nombres, estaturas, mayor, menor, pocision, pocision_2);
        a:=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
sin imagen de perfil
Val: 259
Oro
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

errorcode = 201

Publicado por dario (38 intervenciones) el 15/10/2017 06:05:16
Tu mismo programa un poco arreglado solo con variables globales.
Saludos.

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program vector_clase;
uses crt;
type
	Tnombres = array [1..4] of string;
	Testaturas = array [1..4] of real;
var
	nombres:Tnombres;
	estaturas:Testaturas;
	mayor:double;
	menor:double;
	pocision:integer;
	pocision_2:integer;
 
procedure ingresar;
var
	f:integer;
begin
        for f:=1 to 4 do
        begin
                writeln('ingrese nombre del nino ', f);
                readln(nombres[f]);
                writeln('ingrese estatura del nino ', f);
                readln(estaturas[f]);
        end;
end;
{-----------------------------------------------}
procedure sacar_mayor;
var
	f:integer;
begin
        mayor:=estaturas[1];
        pocision:=1;
        for f:=2 to 4 do
        begin
                if estaturas[f] > mayor
                then
                begin
                        mayor:=estaturas[f];
                        pocision:=f;
                end;
        end;
        writeln('El alumno mas alto es ',nombres[pocision],' y mide ',mayor:4:2);
end;
{-----------------------------------------------}
procedure sacar_menor;
var
	f:integer;
begin
        menor:=estaturas[4];
        pocision_2:= 4;
        for f:=1 to 3 do
        begin
                if estaturas[f] < menor
                then
                begin
                        menor:=estaturas[f];
                        pocision_2:= f;
                end;
        end;
		writeln('El alumno mas bajo es ',nombres[pocision_2],' y mide ',menor:4:2);
end;
 
{------------Principal--------------------------}
begin
	clrscr;
	ingresar;
	sacar_mayor;
	sacar_menor;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

errorcode = 201

Publicado por ro (1 intervención) el 11/01/2018 06:32:24
gracias
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