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