Pascal/Turbo Pascal - como puedo realizar esto en pascal

   
Vista:
Imágen de perfil de Misael

como puedo realizar esto en pascal

Publicado por Misael (34 intervenciones) el 07/04/2015 21:49:55
tengo que realizar este programa...
Me pidieron un un programa que realice la división de dos números enteros positivos divisibles entre sí, utilizando únicamente la operación resta...

seria así de esta manera:

En este caso, deberás restar varias veces hasta llegar a cero, y contar cuántas veces has restado. Por ejemplo, para dividir 21 entre 7 sería:

21 - 7 = 14 (1 resta)
14 - 7 = 7 (2 restas)
7 - 7 = 0 (3 restas)

Resultado: 3

Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

como puedo realizar esto en pascal

Publicado por David (139 intervenciones) el 07/04/2015 22:34:08
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
 
var
  Cont, divisor, dividendo:integer;
 
begin
  Writeln('Introduzca el dividendo: ');
  readln(dividendo);
  writeln('Introduzca el divisor: ');
  readln(divisor);
  while dividendo>=divisor do
    begin
      dividendo:=dividendo-divisor;
      cont:=cont+1;
    end;
  if dividendo=0 then
    writeln('Divisible. Resultado: ',cont)
  else
    writeln('Indivisible');
  readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Misael

como puedo realizar esto en pascal

Publicado por Misael (34 intervenciones) el 07/04/2015 23:49:56
Gracias David, me salvaste, es parte de mi examen...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

como puedo realizar esto en pascal

Publicado por ramon (2072 intervenciones) el 07/04/2015 23:46:32
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{Mira esto puede servirte}
 
program division_de_restas;
 uses
    crt;
  var
     nop, dividendo, divisor : integer;
 
 
   begin
      clrscr;
      writeln('   Division Por Restas');
      writeln;
      write('    Entre Dividendo : ');
      readln(dividendo);
      write('    Entre Divisor   : ');
      readln(divisor);
      nop := 1;
    repeat
       writeln('  ',dividendo,' - ',divisor,' = ',dividendo - divisor);
       dividendo := dividendo - divisor;
       if dividendo > 0 then
       nop := nop + 1;
    until dividendo <= 0;
    writeln;
    writeln('    Las Restas An Sido = ',nop);
    readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Misael

como puedo realizar esto en pascal

Publicado por Misael (34 intervenciones) el 08/04/2015 00:00:15
muchas gracias por su ayuda los dos funcionan perfectamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar