Gloria
29 de Julio del 2008

Necesito asesoramiento para la resolucion de este programa en Pascal.
Lo transcribo tal y como lo tengo para mayor claridad.

"Escribir un programa que multiplique dos numeros enteros positivos mediante el algoritmo de la multiplicacion Rusa.El algoritmo de la multiplicacion rusa multiplica por 2 el multiplicando y divide por 2 el multiplicador pasa a tomar el valor 1. Suma todos los multipliandos correspondientes a multiplicadores impares. Dicha suma resulta ser el producto de los dos numeros."

gopster
29 de Julio del 2008

No lo probe porque no tengo compilador a la mano pero ahi esta:

En pascal, me extraña si es un foro de C++ pero bueeeeeno

Saludos.




-------------------------------------------------
Program rusa;
var
multiplicador, multiplicando : integer;
suma : integer;
i : integer;
begin
writeln(\'Dame el multiplicando : \');
readln(multiplicando);
writeln(\'Dame el multiplicador : \');
readln(multiplicador);

suma:= 0;

while multiplicador > 1 do
begin
if multiplicador mod 2 = 1 then
suma:= suma + multiplicando;

multiplicador:= multiplicador div 2;
multiplicando:= multiplicando * 2;
end;

suma:= suma + multiplicando;

Writeln(\'La multiplicacion es : \', suma);

end.

anonimo
29 de Julio del 2008

hey yo necesito ese mismo programa de el multiplicar en ruso pero no lo puedo pasar a c++ me podrian ayudar

anonimo
29 de Julio del 2008

hey yo necesito ese mismo programa de el multiplicar en ruso pero no lo puedo pasar a c++ me podrian ayudar