div.pas

   1 program dividir;\r
   2 \r
   3 \r
   4 { En este procedimiento es imprecindible que el valor pasado\r
   5     como argumento de resultado este inicializado a 0 (cero).\r
   6 }\r
   7 \r
   8 procedure divi( numerador, divisor: integer; var resultado, resto: integer );\r
   9 \r
  10 begin\r
  11      resto := numerador - divisor;\r
  12      if resto >= 0 then\r
  13         begin\r
  14              resultado := resultado + 1;\r
  15              divi( resto, divisor, resultado, resto );\r
  16         end\r
  17      else\r
  18         resto := divisor + resto;\r
  19 end;\r
  20 \r
  21 var\r
  22    resto, result, divis, num: integer;\r
  23 \r
  24 begin\r
  25      resto := 0;\r
  26      result := 0;\r
  27      writeln(" Este programa realiza la divisi¢n entre dos n£meros naturales.");\r
  28      write("Ingrese el numerador: ");\r
  29      readln(num);\r
  30      write("Ingrese el divisor: ");\r
  31      readln(divis);\r
  32      divi(num, divis, result, resto);\r
  33      writeln(" El cociente es: ", result : 1);\r
  34      writeln(" El resto es: ", resto : 1);\r
  35 end.\r