Pascal/Turbo Pascal - ayuda operación con un vector

   
Vista:

ayuda operación con un vector

Publicado por btxt (1 intervención) el 01/12/2013 03:22:08
me han propuesto en la universidad un problema: calcule el producto de los elementos contenidos en un vector (max 10 elementos)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CONST
  maxelements = 10;
TYPE
    tvector = ARRAY [1..maxelements] of REAL;
VAR
 v:tvector;
 i: integer;
 multi: real;
BEGIN
 for i:= 1 TO maxelements do
    begin
      writeln('introduzca un numero',i':');
      readln(v[i]);
    end;

no se como hacer que se multiplique cada elemento del vector. Ayudadme
Muchas 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 operación con un vector

Publicado por ramon (2072 intervenciones) el 01/12/2013 13:52:10
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
{Es esto lo que quieres}
 
uses
   crt;
CONST
  maxelements = 10;
  TYPE
    tvector = ARRAY [1..maxelements] of REAL;
  VAR
    v : tvector;
    i : integer;
  multi : real;
 
  BEGIN
   clrscr;
   multi := 1;
   for i:= 1 TO maxelements do
   begin
     write('introduzca un numero [',i,'] :');
     readln(v[i]);
     multi := multi * v[i];
   end;
    writeln('  El Producto Es : ',multi:0:2);
    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
0
Comentar