aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Programm ist in der Programmiersprache Turbo Pascal geschrieben und dient zur grafischen Veranschaulichung des Graphs der Sinusfunkrion.

Mit Koordinatensystem, ziemlich maßstabsgetreu!

Programm

program sinuskurve;
uses crt,graph;
var x,y:real;i:longint; a,b:integer;
begin
a:=detect;
initgraph(a,b,'');


 SetTextStyle(defaultfont, HorizDir, 2);
outtextxy(100,20,'Graph der Sinusfunktion');
outtextxy(100,35,'ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ');

SetTextStyle(15, HorizDir, 1);
outtextxy(120,60,'Koordinatensystem in 0.5 cm Abstaenden');

moveto(0,200);
setcolor(15);

for b:=1 to 450 do
begin
for i:=1 to 650 do
begin
putpixel(i*16,b*16,white);
end;
end;

for i:=0 to 100 do
begin
x:=sqrt(1-(y*y)); y:=sin(100*i);
lineto((trunc(x)+i*22+2),(trunc(y*38)+200));
write('.');;
end;
setcolor(7);
line(0,200,650,200);

readln;
closegraph;
end.

---

Gastarbeiter 21:28, 21. Mär 2006 (CET)

---