-
Lenguaje
Pascal
-
Descripción
Se desea calcular la potencia eléctrica de circuito de la figura que se muestra a continuación. Considere que: P = V*I y V = R*I
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 PotenciaDeUnCircuito;
uses crt;
var corriente_en_amperios, potencia_en_watts, resistencia_en_omhs, voltaje : real;
begin
write ('Ingresa el valor de corriente en amperios: ');
readln (corriente_en_amperios);
resistencia_en_omhs := 4;
voltaje := resistencia_en_omhs*corriente_en_amperios;
potencia_en_watts := voltaje*corriente_en_amperios;
writeln ('Valor de potencia en watts: ', potencia_en_watts:0:6);
writeln ('Valor de resistencia en omhs: ', resistencia_en_omhs:0:6);
writeln ('Valor de voltaje: ', voltaje:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var corriente_en_amperios, potencia_en_watts, resistencia_en_omhs, voltaje : real;
begin
write ('Ingresa el valor de corriente en amperios: ');
readln (corriente_en_amperios);
resistencia_en_omhs := 4;
voltaje := resistencia_en_omhs*corriente_en_amperios;
potencia_en_watts := voltaje*corriente_en_amperios;
writeln ('Valor de potencia en watts: ', potencia_en_watts:0:6);
writeln ('Valor de resistencia en omhs: ', resistencia_en_omhs:0:6);
writeln ('Valor de voltaje: ', voltaje:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.