Problema con restas sucesivas

[gerupc]

Hola,

no sabeis cuanto os lo agradezco.

Seoane, muchísimas gracias por tu respuesta, te lo has trabajo muchísimo y has dado en un punto clave; tenía mal asimilado el concepto del bucle While. Y yo que pensaba que lo entendía perfectamente...

Ahora sí, todo perfecto, muchísimas gracias!!

:-) :-) :-) :-)

Un saludo,

Geru.

[[egostar]]

Y ya entrados la escuelita, porque no hacemos la prueba con el bucle REPEAT UNTIL

Código Delphi [-]
 
var
  Dividendo, Divisor, Cociente: Integer;
begin
  Dividendo:= 13;
  Divisor:= 3;
  cociente:= 0;
  REPEAT
    Dividendo:= Dividendo - Divisor;
    cociente:= cociente + 1;
  UNTIL Dividendo < Divisor 
  Writeln('El cociente es: ',cociente);
  Writeln('El resto es: ',Dividendo);
end.

Salud OS.

[[Delphius]]

No pude evitarlo... tuve que meter código.
Y ya que estamos... si se desea algo más "elaborado":

Código Delphi [-]
function DivisionEntera(Dividendo, Divisor: integer; var Resto: integer): integer;
begin
  result := 0;
  if Divisor = 0
     then begin
            ShowMessage('Error. División por cero');
            exit;
          end;
  Resto := Dividendo;
  while resto >= Divisor do
    begin
      Resto := resto - Divisor;
      inc(Result);
    end;
end;

Saludos,

[[seoane]]

Empezado por egostar

Y ya entrados la escuelita, porque no hacemos la prueba con el bucle REPEAT UNTIL

Y si el dividendo es menor que el divisor. Obtendrías un cociente de 1 y un resto negativo

[[egostar]]

Empezado por seoane

Y si el dividendo es menor que el divisor. Obtendrías un cociente de 1 y un resto negativo

, ese tema viene en el siguiente capitulo, no se nos adelante niño genio.

Salud OS

Edito: En todo caso que le parece si la corrección se la dejamos al niño gerupc, digo si es que le interesa aprender algo más.

[gerupc]

Aupa!

Pues he estado un buen rato intentando con varias cosas....pero no lo consigo (el hacer que el bucle repeat no acepte un dividendo menor que el divisor).

He intentado con IF-THEN, haciendo:

Código Delphi [-]
 
if dividendo < divisor then
write('Error')
else
write(.........)// resultado

Pero como sabreis, nada .

EDITO:: Ahora me surge el siguiente problema, tengo que presentar las soluciones así:

Introduce el dividendo: 12
Introduce el divisor: 3
El cociente de 12 entre 3 es 4 y su resto es 0

Claro, el problema está en el dividendo, cómo me si el resto es 2 me aparece en el resultado final, como resto, tanto como dividendo.
A ver si me podeis ayudar :-)

Un saludo,

Geru.