Pascal/Turbo Pascal - [AYUDA] Consulta del ejercicio

   
Vista:
Imágen de perfil de Leo G.

[AYUDA] Consulta del ejercicio

Publicado por Leo G. tincho.280695@gmail.com (11 intervenciones) el 18/09/2014 14:29:03
Hola alguien me puede ayudar a hacer el código de este consigna porque llevo días y no logro hacer.

Realizar un algoritmo que lea dos vectores A y B de dimensión 100.
- Realizar un módulo que retorne un tercer vector C (también de dimensión 100), donde cada elemento se define como C[i] = max { A[i], B[i] }. Imprimir los 3 vectores.

- Realizar un módulo que retorne un tercer vector C, también de 100 componentes, donde cada C[i] es la componente del vector A que se encuentra en la posición que indica B[i]. Imprimir los 3 vectores.

- Efectuar la validación de índices correspondiente.

Desde ya gracias.
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

[AYUDA] Consulta del ejercicio

Publicado por ramon (2072 intervenciones) el 20/09/2014 23:54:36
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
85
86
87
88
89
90
91
92
93
{A ver si esto te sirve de ayuda}
 
 
program vectores;
   uses
      crt;
   type
     vect = array[1..100] of integer;
   var
     m, a, b, c : vect;
     at, bt, ct : integer;
     k, l : integer;
 
   procedure rellenavectores(var a1, b1 : vect);
   var
    y, j, va : integer;
    sal : boolean;
  begin
     randomize;
     j := 1;
     repeat
        repeat
           va := random(199) + 1;
           sal := true;
           for y := 1 to 100 do
           begin
              if a1[y] = va then
              sal := false;
           end;
        until sal = true;
        a1[j] := va div 2;
        b1[j] := va div 4;
        j := j + 1;
     until j > 100;
  end;
 
  procedure vectorc;
  var
    va1, s, n : integer;
   begin
     n := 1;
     for s := 1 to 100 do
     begin
        va1 := a[s] + b[s];
        c[n] := va1;
        n := n + 1;
     end;
   end;
 
   procedure vectorcompab;
   var
     g, f, x : integer;
    begin
       x := 1;
       for g := 1 to 100 do
       begin
          f := a[b[g]];
          m[x] := f;
          x := x + 1;
       end;
    end;
 
 
  begin
     clrscr;
     rellenavectores(a,b);
     writeln('     Vector [A]');
     writeln;
     for k := 1 to 100 do
     write('  ',a[k]);
     writeln;
     writeln;
     writeln('     Vector [B]');
     writeln;
     for l := 1 to 100 do
     write('  ',b[l]);
     writeln;
     writeln;
     writeln('     Vector [C] suma de [a[s] + b[s]]');
     writeln;
     vectorc;
     for l := 1 to 100 do
     write('  ',c[l]);
     writeln;
     writeln;
     writeln('    C[i] es componente de vector A[indice B[i]]');
     writeln;
     vectorcompab;
     for l := 1 to 100 do
     write('  ',m[l]);
     writeln;
     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