Programalama > PASCAL

Etiketler: rlc, devreler

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.