• Lenguaje

    Pascal

  • Descripción

    Dado el valor de tres resistencias en paralelo, obtén el valor de la resistencia total.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ResistenciaTotalDeTresEnParalelo;
uses crt;

var resistencia_1, resistencia_2, resistencia_3, resistencia_total : real;
begin
    write ('Ingresa el valor de resistencia 1: ');
    readln (resistencia_1);
    write ('Ingresa el valor de resistencia 2: ');
    readln (resistencia_2);
    write ('Ingresa el valor de resistencia 3: ');
    readln (resistencia_3);
    resistencia_total := 1.0/(1.0/resistencia_1+1.0/resistencia_2+1.0/resistencia_3);
    writeln ('Valor de resistencia total: ', resistencia_total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.