-
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
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.
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.