Program Schwingkreis;
uses
 crt;

const
 R=10;
 L=0.1e-2;
 C=0.1e-6;
 w=2*pi;
 sempels=10;

var
 z,f,f0,step:real;
 y,i:integer;
 x:text;

begin
 clrscr;
 Writeln ('Berechnung von Reinenschwingkreis mit R L C');
 f0:=1/w*sqrt(1/(C*L));
 assign (x,'A:\frequenz.txt');
 rewrite (x);
 Writeln (x,'Blindwiderstand um die Resonanzfrequemz ',f:6:3,'Hz und eine Schrittweite von ',step:4:3,'Hz');
 Writeln (x,'ohmscher Widerstand:, ',r:3,',Ohm');
 writeln (x,'Induktivit"t:,        ',L,',Vs/A');
 writeln (x,'Kapazit"t:,           ',C,',F');
 Writeln (x,'Frequenz [Hz],Blindwiderstand [Ohm]');
 step:=f0/sempels*2;
 f:=step;
 while f<(2*f0) do begin
  z:=sqrt(sqr(R)+sqr(w*f*l-1/(w*f*c)));
  Writeln ('Frequent: ',f:15:3,' Hz  Blindwiderstand: ',z:10:3,' Ohm');
  writeln (x,f:15:3,',',z:10:3);
  f:=f+step;
 end;
 close (x);
 readln;
end.