Umístnení souboru www.TrSek.com/cover/benkovic/rlc-graf.pas

{ RLC-GRAF.PAS                           Copyright (c) Jan Benkovic }
{ Program na vypocet RLC obvodov s grafickym zobrazenim.            }
{                                                                   }
{ Datum:17.03.2000                             http://www.trsek.com }

uses crt,graph;

var
gd,gm : integer;
f,x,R : longint;
c,l   : real;

function Xl(f:integer):longint;
begin
  xl:=round(2*PI*f*L);
end;

function Xc(f:integer):longint;
begin
  Xc:=round(1/(2*PI*f*C));
end;

function Z:longint;
begin
  Z:=round(sqrt(sqr(R)+sqr(Xl(f)+Xc(f))));
end;

procedure getgraph;
begin
  detectgraph(gd,gm);
  initgraph(gd,gm,'');
  setcolor(green);
  outtextxy(1,1,'R');
  setcolor(red);
  outtextxy(1,11,'Xl');
  setcolor(blue);
  outtextxy(1,21,'Xc');
  setcolor(yellow);
  outtextxy(1,31,'Z');
end;

begin
Write('Napis R : ');
read(R);
Write('Napis C : ');
read(C);
Write('Napis L : ');
read(L);
getgraph;

x:=0;
f:=1;
repeat
  putpixel(f+10,getmaxy-Xl(f)-20,red);
  putpixel(f+10,getmaxy-R-20,green);
  putpixel(f+10,getmaxy-Xc(f)-20,blue);
  putpixel(f+10,getmaxy-Z-20,yellow);
  f:=f+1;
until f=400;
readkey;
end.

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