Suma dos fracciones en lenguaje Pascal

Lenguaje

Pascal
Descripción

Suma dos fracciones o números quebrados

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program SumaDosFracciones;

uses crt;

var dividendo_1, dividendo_2, divisor_1, divisor_2, resultado : real;

begin

    write ('Ingresa el valor de dividendo 1: ');

    readln (dividendo_1);

    write ('Ingresa el valor de dividendo 2: ');

    readln (dividendo_2);

    write ('Ingresa el valor de divisor 1: ');

    readln (divisor_1);

    write ('Ingresa el valor de divisor 2: ');

    readln (divisor_2);

    resultado := (divisor_1*dividendo_2+divisor_2*dividendo_1)/dividendo_2/dividendo_1;

    writeln ('Valor de resultado: ', resultado:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.