Iteración – Ejemplo 8

Enunciado

Dados dos números enteros a y b, calcular e informar
a) el producto a*b, por sumas sucesivas
b) la división entera a div b, por restas sucesivas.

Código

Python

def main():
    print( "Valores enteros de a y b/", end="" )
    print( "Integer values of a y b " )
    a, b = int( input("a: ") ), int( input("b: ") )
    
    p = 0
    r = a
    d = 0

    for i in range ( 1, b+1 ):
        p = p + a
    while r >= b:
        r = r - b  
        d = d + 1

    print( "\nProducto/Product:", a, "*", b, "=", p )
    print( "División entera", end="" )
    print("/Integer division:", a, "//", b, "=", d )
    print( "Resto/Rest:", a, "%", b, "=", r )

    input( "Presionar/Press Enter to exist " ) 
main()

C++

#include <iostream>
using namespace std ;
#include <conio.h>

int main()
{
   int a, b, i, p, r, d ;

   cout << "Valores enteros de/" ;
   cout << "Integer values of a y b: " ;
   cin >> a >> b ;
   	
   p = 0 ;
   r = a ;
   d = 0 ;

   for ( i=1 ; i<=b ; i++ , p+=a ) ;
   while ( r>=b )
   {
   	r -= b ; d++ ;
   }
   	
   cout << endl ;
   cout << "Producto/Product: " << a ;
   cout << " * " << b << " = " << p << endl ;
   cout << "Divisi¢n entera/" ;
   cout << "Integer division: " << a << " / " ; 
   cout << b << " = " << d << endl ;
   cout << "Resto/Rest: " << a << " % " << b ; 
   cout << " = " << r << endl ;
	
   cout << endl << "Presionar/Press enter to exit " ;
   getch() ;
   return 0 ;
}

Pascal

Program Problema8_6 ;
var 
   a, b, i, p, r, d: integer ;
	
begin
   write( 'Valores enteros de/' ) ; 
   write( 'Integer values of a y b : ' ) ;
   readln( a, b ) ;
    
   p := 0 ;
   r := a ;
   d := 0 ;
    
   for i := 1 to b do
	p := p + a ;	
   while r >= b do
   begin
        r := r - b ; 
        d := d + 1 ;
   end ;
    
   writeln ;
   write( 'Producto/Product: ', a, ' * ', b ) ;
   writeln( ' = ', p ) ;
   write( 'Divisi¢n entera/Integer division: ' ) ;
   writeln( a, ' div ', b, ' = ', d ) ;
   writeln( 'Resto/Rest: ', a,' mod ', b, ' = ', r ) ;
    
   writeln( 'Presionar/Press Enter to exit' ) ;
   readln ;
end.

Diagramas