exitcode 201
Publicado por Jube (10 intervenciones) el 18/10/2012 14:44:11
para el proximo enunciado he probado con el siguiente programa pero en la ejecución me da el error exitcode=201, e estau mirando y al parecer es ke a pasau el rando pero no se como solucionarlo.
2. Escribir un programa que dados dos vectores de enteros de n elementos cada uno y ordenados de
menor a mayor, escriba un nuevo array formado por los elementos de los dos primeros, de tal forma queen el nuevo vector se siga manteniendo el orden ascendente.
Nota: El nuevo array se debe crear de tal forma que cada uno de sus elementos será un elemento del
primer array o del segundo array, según vaya correspondiendo. No se Irata de formar un nuevo array
"uniendo" los dos primeros y luego ordenarlo.
Ejemplo de ejecución del programa para n=10:
Introduce los 10 elementos del primer array: 3 5 9 14 21 37 45 51 62 73
Introduce los 10 elementos del segundo array: 2 7 13 25 47 53 55 61 89 93
2. Escribir un programa que dados dos vectores de enteros de n elementos cada uno y ordenados de
menor a mayor, escriba un nuevo array formado por los elementos de los dos primeros, de tal forma queen el nuevo vector se siga manteniendo el orden ascendente.
Nota: El nuevo array se debe crear de tal forma que cada uno de sus elementos será un elemento del
primer array o del segundo array, según vaya correspondiendo. No se Irata de formar un nuevo array
"uniendo" los dos primeros y luego ordenarlo.
Ejemplo de ejecución del programa para n=10:
Introduce los 10 elementos del primer array: 3 5 9 14 21 37 45 51 62 73
Introduce los 10 elementos del segundo array: 2 7 13 25 47 53 55 61 89 93
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
Array resultado: (2 3 5 7 9 13 14 21 25 37 45 47 51 53 55 61 62 73 89 93)
PROGRAM PRAC6_2;
USES crt;
CONST
n=10;VAR
A:array[1..n] of integer;
B:array[1..n] of integer;
C:array[1..2*n] of integer;
i:integer; j:integer; k:integer;BEGIN
CLRSCR;
k:=1;
WRITE('Introduce los ',n,' elementos del primer array: ');
FOR i:=1 to n do read(A[i]);
WRITE('Introduce los ',n,' elementos del segundo array: ');
FOR j:=1 to n do read(B[j]);
WRITE('Array resultado:(');
WHILE (k<>2*n) do
BEGIN
IF A[i]<B[j] then
begin
C[k]:=A[i];
i:=i+1;
k:=k+1;
end
else
begin
C[k]:=B[j];
j:=j+1;
k:=k+1;
end;
END;
WRITE(')');
READLN;
READLN;
END.Valora esta pregunta
0