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:
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
0
