Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » 3.1 tema 7

Pascal/Turbo Pascal - 3.1 tema 7

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

3.1 tema 7

Publicado por Erik (73 intervenciones) el 20/03/2014 16:04:38
hola tengo que hacer lo siguiente:

Escriba un programa que pida al usuario 10 números y los meta en una tabla (esto se hará en un procedimiento). A continuación, pida al usuario un número multiplicador y multiplique cada número de la tabla por ese número (esto se realizará en otro procedimiento). Finalmente mostrará el resultado por pantalla (en un tercer procedimiento).

gracias de antemano.
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

3.1 tema 7

Publicado por ramon (2158 intervenciones) el 24/03/2014 13:09:46
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
{A ver si sirve}
 
program numeros;
 uses
    crt;
 var
   tablanum : array[1..10] of integer;
 
 
   procedure entradas(var a : array of integer);
   var
     i : integer;
    begin
     i := 1;
     while i < 11 do
     begin
       write('  Entre Valor Num. ',i,' :');
       readln(tablanum[i]);
       i := i + 1;
     end;
   end;
 
   procedure multiplicatabla(var a : array of integer);
   var
     i : integer;
     multi : integer;
    begin
       write('  Entre Multiplicador : ');
       readln(multi);
       i := 1;
       while i < 11 do
       begin
         tablanum[i] := (tablanum[i] * multi);
         i := i + 1;
       end;
    end;
 
    procedure muestraresult;
    var
      i : integer;
      begin
        write('  Los Resultados Son ');
        writeln;
        for i := 1 to 10 do
        write('  ',tablanum[i]);
      end;
 
 
   begin
      clrscr;
      entradas(tablanum);
      writeln;
      multiplicatabla(tablanum);
      muestraresult;
      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