Dze je subor www.TrSek.com/cover/benkovic/rlc.pas

{ RLC.PAS                                Copyright (c) Jan Benkovic }
{ Program na vypocet RLC obvodov.                                   }
{                                                                   }
{ Datum:26.01.2000                             http://www.trsek.com }

Program RLC_seriove;
uses crt;
var
     f:integer;
     fmin:integer;
     fmax:integer;
     i:integer;
     l:real;
     c:real;
     r:real;

function XL(f:integer): real;

begin
  XL:=2*PI*f*l;
end;

function XC(f:integer): real;

begin
  XC:=1/(2*PI*f*c);
end;

function Z(f:integer): real;

begin
  Z:=sqrt(sqr((r)+(XL(f)-XC(f))));
end;

Begin
clrscr;
write  ('  Zadaj hodnotu odporu rezistora: ');
readln (r);
write  ('Zadaj hodnotu indukcnosti cievky: ');
readln (l);
write  ('     Zadaj kapacitu kondenzatora: ');
readln (c);
clrscr;
writeln('   f             R             XL              XC               Z');
for i:=1 to 20 do
  begin
   f:=i*5;
   writeln (' ',f:3,'         ',R:5:2,'           ',XL(f):8:3,'       ',XC(f):8:3,'         ',Z(f):8:3);
  end;
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com