Pascal/Turbo Pascal - exitcode 201

   
Vista:

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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

exitcode 201

Publicado por Kubati (1 intervención) el 18/10/2012 15:39:49
Tengo que hacer exactamente este mismo programa y también me da ese error...
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

exitcode 201

Publicado por ramon (2072 intervenciones) el 20/10/2012 16:00:03
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
{A qui lo tenéis corregido}
 
PROGRAM PRAC6_2;
  USES
   crt;
 
  CONST
     n = 10;
   VAR
     A : array[1..n] of integer;
     B : array[1..n] of integer;
     C : array[1..n * 2] of integer;
     temp, i, j, k : integer;
     d : string[1];
 
  BEGIN
     CLRSCR;
     WRITE('Introduce los ',n,' elementos del primer array: ');
     FOR i := 1 to n do
     begin
         readln(a[i]);
     end;
     writeln;
     WRITE('Introduce los ',n,' elementos del segundo array: ');
     FOR j := 1 to n do
     begin
       readln(b[j]);
     end;
     WRITE('Array resultado : ( ');
     k := 1;
     i := 1;
      WHILE k < (n * 2) do
      BEGIN
         c[k] := a[i];
         k := k + 1;
         c[k] := b[i];
         k := k + 1;
         i := i + 1;
     END;
     clrscr;
     for j := 1 to (n * 2) do
     write(' ',c[j]);
     for k := 1 to (n * 2) - 1 do
       for i := (n * 2) downto k do
       if c[k] > c[i] then
       begin
          temp := c[i];
          c[i] := c[k];
          c[k] := temp;
       end;
       writeln;
      for j := 1 to (n * 2) do
      write(' ',c[j]);
     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
1
Comentar