elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ayuda con hacer un algoritmo que multiplique con signo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con hacer un algoritmo que multiplique con signo  (Leído 1,266 veces)
Natuta

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Ayuda con hacer un algoritmo que multiplique con signo
« en: 20 Octubre 2012, 01:08 am »

Hola, soy novata en esto, y tengo que hacer un algoritmo que me lea dos números y me muestre el producto usando sumas sucesivas  (esto ya lo hice)y no así la multiplicación, pero con signo.

Ahora mi problema es que no se como hacer que me lea el signo al introducir los números y que al devolver el resultado, lo haga también (obviamente) con signo!
Esto es lo que hice, si alguien pudiera ayudarme estaría muy agradecida, está en Pascal :-[


program EJ8;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };


    function simulacion(n,m:longInt):Longint;
     var
     s,i:Longint;
     begin
     s:=0;
     i:=0;
     while (i<m) do
     begin
     s:=s+n;
     i:=i+1;
     end;
     simulacion:=s;
     
     end;
     
 
var
  n,m,pro:LongInt;
 
begin
 write('Escriba un numero');
 Readln(n);
 writeln('Escriba otro numero');
 readln(m);
 pro:=simulacion(n,m);
 Writeln(n,' x ',m,' = ',pro);

end.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines