Pascal/Turbo Pascal - Como hago esto en turbo pascal

   
Vista:
Imágen de perfil de Misael

Como hago esto en turbo pascal

Publicado por Misael (34 intervenciones) el 01/04/2015 17:34:09
me pidieron realizar un Programa que realice el producto de dos números enteros positivos, utilizando únicamente la operación Suma (+)

Que hay que hacer se que el producto de dos números es multiplicación pero dice utilizando únicamente la operación suma.... espero me puedan ayudar...
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
Imágen de perfil de Misael

Como hago esto en turbo pascal

Publicado por Misael (34 intervenciones) el 01/04/2015 18:11:58
Ya entendí

el producto de un numero es 5*4 = 20 utilizando únicamente la suma es 5+5+5+5 = 20 es lo mismo que 5*4 = 20
ahora como hago el programa
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
Imágen de perfil de Misael

Como hago esto en turbo pascal

Publicado por Misael (34 intervenciones) el 01/04/2015 19:09:43
Estuve analizando; creo que el programa quedaría algo así


5*4 = 20
4 es el multiplicador ------ es las beses que multiplico el multiplicando
5 es el multiplicando
en el programa pido que ingrese el multiplicador y el multiplicando

como dice el problema utilizando solamente la operación suma
el multiplicador me indica cuantas veces debo sumar un numero para obtener su producto
es decir 5*4 = 20 al 5 lo tengo que sumar 4 veces utilizando la suma 5+5+5+5 = 20
claro que ingresarían cualquier numero....

en código pascal como hago esto...
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

Como hago esto en turbo pascal

Publicado por ramon (2072 intervenciones) el 01/04/2015 22:27:40
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
{Mira esto}
 
program sumas;
 uses
    crt;
 var
    t, resul, mpl, mtp : integer;
  begin
     clrscr;
     write('  Entre multiplicando : ');
     readln(mpl);
     write('  Entre multiplicador : ');
     readln(mtp);
     resul := 0;
     write('  ');
     for t := 1 to mtp do
     begin
     write(mpl);
     resul := resul + mpl;
     if t < mtp then
     write(' + ')
   else
     write(' = ');
   end;
     write(resul);
     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

Como hago esto en turbo pascal

Publicado por Dario (20 intervenciones) el 06/04/2015 15:33:08
Otra solucion un poco mas corta.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
	x,y,s,i:word;
begin
	clrscr;
	write('Ingrese multiplicando: ');
	readln(x);
	write('Ingrese multiplicador: ');
	readln(y);
	s:=0;
 
	for i:=1 to y do
		s:=x+s;
 
	writeln(s);
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
Imágen de perfil de Misael

Como hago esto en turbo pascal

Publicado por Misael (34 intervenciones) el 06/04/2015 18:04:07
muy agradecido me funciono, los dos
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