Pascal/Turbo Pascal - Ayuda con programa de fracciones en pascal

   
Vista:

Ayuda con programa de fracciones en pascal

Publicado por Ernesto (2 intervenciones) el 11/11/2014 13:46:52
Hola buenas,

abro este tema porque necesito hacer el código para el siguiente programa:
Deberás introducir dos fracciones por pantalla, y luego
mostrarlas en pantalla en forma de fracción, realizando las
siguientes operaciones con estas dos fracciones:
- Suma.
- Resta.
- Multiplicación.
- División.

Podrían facilitarme el código?


Gracias
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

Ayuda con programa de fracciones en pascal

Publicado por David (144 intervenciones) el 11/11/2014 16:34:29
Creo que la "dificultad" de este programa radica en encontrar el mínimo común múltiplo cuando el denominador de las fracciones a sumar o restar es diferente. Así que en vez de resolverte todo el código completo te dejo sólo la función que calcula el M.C.M de dos números. El resto es sólo matemáticas básicas, así que lo dejo para ti ;-)

Function MCM( N1: Integer; N2:Integer):Integer;

var c:integer;


begin
c:=0;

repeat
c:=c+1;
until c*N1 mod N2=0;
MCM:=C*N1;

end;
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

Ayuda con programa de fracciones en pascal

Publicado por ramon (2072 intervenciones) el 12/11/2014 19:26:21
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
{Esto te puede servir}
 
 program sumarestayotras;
 uses
    crt;
 
  var
    camb, a, b : integer;
    resul : longint;
    resul1 : real;
    tel : char;
    salir : boolean;
  begin
     clrscr;
     write('  Entre primer digito  : ');
     readln(a);
     write('  Entre segundo digito : ');
     readln(b);
     if a < b then
     camb := a;
     a := b;
     b := camb;
     salir := false;
  repeat
     clrscr;
   writeln;
   writeln('   Elija Opcion ');
   writeln;
   writeln('   1 = Suma');
   writeln('   2 = Resta');
   writeln('   3 = Multiplicacion');
   writeln('   4 = Division');
   writeln('   5 = Nueva Entrada');
   writeln('   6 = salir');
   repeat
       tel := readkey;
   until tel in['1','2','3','4','5','6'];
   clrscr;
     case tel of
 '1' : begin
         resul := a + b;
         writeln('    ',a);
         writeln('    ',b);
         writeln('    ',resul);
         readkey;
         end;
 '2' : begin
         resul := a - b;
         writeln('    ',a);
         writeln('    ',b);
         writeln('    ',resul);
         readkey;
         end;
 '3' : begin
         resul := a * b;
         writeln('    ',a);
         writeln('    ',b);
         writeln('    ',resul);
         readkey;
         end;
 '4' : begin
         resul1 := a / b;
         writeln('    ',a);
         writeln('    ',b);
         writeln('    ',resul1:0:2);
         readkey;
         end;
 '5' : begin
         clrscr;
         write('  Entre primer digito  : ');
         readln(a);
         write('  Entre segundo digito : ');
        readln(b);
        if a < b then
        camb := a;
         a := b;
         b := camb;
       end;
 '6' : salir := true;
  end;
    until salir = true;
  end.
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

Ayuda con programa de fracciones en pascal

Publicado por David (144 intervenciones) el 12/11/2014 21:52:44
Si te fijas en el enunciado pide operaciones con fracciones, mientras que la solución que tú das es sólo para números enteros.
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

Ayuda con programa de fracciones en pascal

Publicado por ramon (2072 intervenciones) el 13/11/2014 21:07:34
{Disculpar teneis razon lo siento a sido un fallo por mi parte disculpar}
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

Ayuda con programa de fracciones en pascal

Publicado por Ernesto (2 intervenciones) el 20/11/2014 13:41:38
hola buenas,

ninguno de los códigos que me dan es lo que piede, necesito operar fracciones
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