Pascal/Turbo Pascal - sircuito electrico

   
Vista:

sircuito electrico

Publicado por david (9 intervenciones) el 10/05/2015 07:12:16
nesesto ayuda con este programa
un menu que pueda resolver un sircuito en serie
porfavor ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

sircuito electrico

Publicado por ramon (2072 intervenciones) el 10/05/2015 22:28:24
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{Espero sea esto lo que pides}
 
 program circuito;
  uses
     crt;
   var
     tension : real;
     resi1, resi2 : integer;
     corriente : real;
     resistencia : real;
     ter1, ter2 : real;
 
   begin
      clrscr;
      write('  Entre Tension : ');
      readln(tension);
      write('  Entre Resistencia 1 : ');
      readln(resi1);
      write('  Entre Resistencia 2 : ');
      readln(resi2);
      resistencia := resi1 + resi2;
      corriente := tension / resistencia;
      ter1 := corriente * resi1;
      ter2 := corriente * resi2;
      clrscr;
      writeln('   Resistencia Total        = ',resistencia:0:2,' homios');
      writeln('   Tension De Alimentacion  = ',tension:0:2,' Voltios');
      writeln('   Corriente En El Circuito = ',corriente:0:2,' Amperios');
      writeln('   Caida De Tension En R1   = ',ter1:0:2,' Voltios');
      writeln('   Caida De Tension En R2   = ',ter2:0:2,' Voltios');
      writeln;
      writeln('  Pulse Una Tecla');
      readkey;
    end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sircuito electrico

Publicado por andrea (9 intervenciones) el 19/05/2015 17:13:31
Disculpen como puedo acer que esto se repita
Por si quiero ingresar nuevos datos??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar