Pascal/Turbo Pascal - Intercalar vectores

   
Vista:

Intercalar vectores

Publicado por Horacio (1 intervención) el 23/07/2012 17:44:44
Hola a todos, necesito ayuda con este ejercicio que no puedo hacer

.-Generar un procedimiento que devuelva un vector c de p
posiciones obtenido como intercalación de dos vectores a y b de m y n
posiciones respectivamente al ser invocado como intercal (a,n,b,m,c,p)

Desde ya muchas gracias
Horacio
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

Intercalar vectores

Publicado por ramon (2072 intervenciones) el 23/07/2012 20:04:21
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
{Mira no se que nivel de programación tienes por ello te dejo esto para encaminarte
en lo que preguntas la intercalación de dos vectores en uno.
Ten presente que en pascal no se pueden definir las matrices durante el proceso devén
  estar definidas al inicio por ello defino dos pequeñas que entren en la otra.
Espero te sirva suerte.}
 
 program vectores;
 uses
    crt;
  var
   vector1 : array[1..100] of integer;
   vector2 : array[1..50] of integer;
   vector3 : array[1..20] of integer;
   x, y : integer;
 
  procedure cargavectores;
  var
    cont : integer;
  begin
     for cont := 1 to 50 do
     vector2[cont] := cont * 2;
     for cont := 1 to 20 do
     vector3[cont] := cont * 4;
  end;
 
  procedure intercalacion;
  var
     i, d : integer;
  begin
      i := 1;
      d := 1;
      repeat
      if d < 51 then
      begin
      vector1[i] := vector2[d];
      i := i + 1;
      end;
      if d < 21 then
      begin
      vector1[i] := vector3[d];
      i := i + 1;
      end;
      d := d + 1;
     until d > 51;
     for i := 1 to 70 do
     write(' ',vector1[i]);
  end;
 
  begin
      clrscr;
      cargavectores;
      writeln('Contenido Vector 2');
      writeln;
      for x := 1 to 50 do
      write('   ',vector2[x]);
      writeln;
      writeln;
      writeln('Cantenido Vector 3');
      writeln;
      for y := 1 to 20 do
      write('   ',vector3[y]);
      writeln;
      writeln;
      writeln('Contenido de intercalado 2 y 3');
      writeln;
      intercalacion;
      readln;
  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

Intercalar vectores

Publicado por Horacio (1 intervención) el 23/07/2012 22:25:34
Muchisimas gracias Ramon me fue de gran ayuda.
Horacio
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

Intercalar vectores

Publicado por Leocadio (2 intervenciones) el 08/11/2015 10:38:59
Muchas gracias, fue de mucha ayuda para seguir aprendiendo.
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