Program: wyświetlający wykres na którym narysowana jest sinusoida jak i cosinusoida.
Automatycznie wylicza dla pełnego cyklu.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program funkcja;
uses crt,graph;
const sciezka='C:\progra~1\tp\bgi';
var
d,m:integer;
xr,yr:real;
xe,ye,cxe,cye:integer;
i,a:integer;
begin
d:=detect;
initgraph(d,m,sciezka);
for i:=-180 to 180 do
begin
setcolor(red);
xr:=i*PI/180;
yr:=sin(xr);
xe:=round(i+getmaxx div 2);
ye:=round(-yr*200 + getmaxy div 2);
a:=getmaxx div 2; {zmiana polozenia srodka ukladu}
if i=-180 then
moveto(xe,ye)
else
lineto(xe,ye);
end;
for i:=-180 to 180 do
begin
setcolor(yellow);
xr:=i*PI/180;
yr:=cos(xr);
cxe:=round(i+getmaxx div 2);
cye:=round(-yr*200 + getmaxy div 2);
a:=getmaxx div 2;
if i=-180 then
moveto(cxe,cye)
else
lineto(cxe,cye);
end;
setcolor(white);
line(0,ye,getmaxx-0,ye);
line(a,0,a,getmaxy-0);
repeat until keypressed;
closegraph;
end.Słowniczek pojęć:
Funkcja często pojawiająca się w matematyce, muzyce, fizyce, elektrotechnice i wielu innych dziedzinach.
Fala sinusoidalna zachowuje swój kształt po dodaniu do innej sinusoidy o tej samej częstotliwości i dowolnej fazie.