Repet_10_y_11-Producto+y+cociente+de+numeros+enteros

=__**Cáculo del produto y cociente de numeros enteros**__=

No se utilizarán los operadores de enteros: *, DIV y MOD

> El producto se calculará mediante sumas sucesivas
 * NOTA:**

> El cociente y resto se calcularán mediante restas sucesivas

El programa se ejecutará mediante un menú

>> 1.- Producto de dos numeros utilizando sumas sucesivas >> 2.- Cociente y resto de dos números utilizando restas sucesivas >> 0.- Terminar

code format="pascal" PROGRAM ProgramaConMenu ; VAR cOpcion : Char ; i, iFactor_1, iFactor_2, iProducto, iDividendo, iDivisor, iCociente, iResto: Integer ; BEGIN REPEAT Writeln ; Writeln ('======================== Menu de opciones =================') ; Writeln (' 1 Producto de dos numeros utilizando sumas sucesivas') ; Writeln (' 2 Cociente y resto de dos números utilizando restas sucesivas') ; Writeln (' 0 Terminar') ; Writeln ;

Write  ('Pulsa el numero de la opcion: ') ; REPEAT cOpcion := ReadKey ; UNTIL ('0' <= cOpcion) AND (cOpcion <= '2') ; Writeln (cOpcion) ; Writeln ;

CASE cOpcion OF       '1' : BEGIN Write ('Escribe un factor: '); ReadLn (iFactor_1) ; Write ('Escribe el   otro: '); ReadLn (iFactor_2) ;

iProducto := 0 ; FOR i := 1 TO iFactor_2 DO                  BEGIN iProducto := iProducto + iFactor_1 ; END ;

Writeln ; Write ('El producto de ', iFactor_1, ' por ',                  iFactor_2, ' = ',   iProducto) ;

Readln ; END ; '2' : BEGIN Write ('Escribe el dividendo: '); ReadLn (iDividendo) ; Write ('Escribe el   divisor: '); ReadLn (iDivisor) ;

iCociente := 0 ; iResto   := iDividendo ;

WHILE iResto >= iDivisor DO                  BEGIN iCociente := iCociente + 1 ; iResto   := iResto - iDivisor ; END ;

Writeln ; Writeln ('El cociente de ', iDividendo, ' entre ',                   iDivisor, ' = ',   iCociente) ; Writeln ('El resto   de ', iDividendo, ' entre ',                    iDivisor, ' = ',   iResto) ;

ReadLn ; END ; END ; UNTIL cOpcion = '0' ; ReadLn ; END. code