• Martes 18 de Junio de 2019, 06:46

Autor Tema:  procedure recursivo para obtener division y resto entero  (Leído 2052 veces)

tomas_sauron

  • Miembro activo
  • **
  • Mensajes: 56
    • Ver Perfil
procedure recursivo para obtener division y resto entero
« en: Miércoles 24 de Noviembre de 2010, 18:36 »
0
hola gente del foro soi nuevo en el tema de la programacion y necesito 1 poco de su ayuda
requiero hacer un procedure recursivo para obtener el resto y la division (enteros) por restas sucesivas
yo pense en lo sgte pero me da error de segmentacion

procedure div_resto(a:tnum;b:tnum;s:tnum)


begin
                                           if a >= b
                                                                              then
                                                                                    begin
                                                                                                                      a:=a-b;
                                                                                                                      inc(s)
                                                                                     end;
                                            div_resto(a-b,b,s+1)

 end;

el tipo tnum es de tipo integer probe con cambiarlo con smallint pero sigue tirando segmentation fault
si alguien puede ayudarme lo agradeceria mucho !!!!!!
saludos
pd:el codigo de un posible programa es el que sigue[attachment=0:1zvsqi2j]divission.txt[/attachment:1zvsqi2j]
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

¡Un error ha ocurrido!

Class 'Geshi' not found