program Darkrain;
uses crt;
var
rf,r,xl,xc,v,z,cos,i:real;
begin
clrscr;
writeln('Girilecek Olan Değerler Eğer Virgüllü İse , yerine . Kullanınınız');
writeln('R Değerini Giriniz');readln(r);
writeln('Xl Değerini Giriniz');readln(xl);
writeln('Xc Değerini Giriniz');readln(xc);
writeln('Voltu Giriniz')readln(v);
z:=sqrt(sqr(r)+sqr(xl-xc));
cos:=r/z;
i:=v/z;
rf:=1/(2*pi)*sqrt(xl*xc);
Writeln('Bu Sorunun Empedansı =',z:0:2;
writeln('Bu sorunun Faz Farkı =',cos:0:1);
writeln('Bu sorunun Amperi ='i:0:1);
writeln('Bu sorunun Rezonans Frekansı =',rf:0:2);
readkey;
end.
doğan can akyıldız |darkrain|
somekindofmaster@hotmail.com