Datuve :: Forums :: Arhīvs :: Kā lai panākt to, lai pascal grafa skaitīšana būtu no centra?

Datuve

Mana Datuve

Reģistrācija | Noteikumi | Paroles atjaunošana



Forums

Ieskaties


Raksti

Lietotāji online

Lietotāji online: 107

Reģistrētie lietotāji online: 0

Viesi online: 107

Datuve.lv video
Top.LV

Kā lai panākt to, lai pascal grafa skaitīšana būtu no centra?

Ievietoja: normis_161 @ 2008.04.16 21:19  

Man ir jāuzzīmē koordināšu plakne no x un y asīm. Kā lai varētu panākt to, lai piemēram monitoru centrā būtu 0,0). Respektīvi kad es ievadīšu 0,0, tad man punkts parādīsies centrā.

Komentāri:

#1 normis_161 @ 2008.04.16 21:19

Būtu labi ja kāds parādītu kādu piemēru.

#2 Lasko @ 2008.04.16 21:24

Uzkonstruēt funkcijas y=x2 grafiku (parabola)
program fgraf1;
uses Graph;
var Device, Mode: integer;
x, y: real;
begin
Device:=0;
initgraph(Device,Mode, 'C:\TP\BGI');
SetColor(5);
Line(0, 240, 640, 240);
Line(320, 0, 320, 480);
x:= -20;
While x<=20 do
begin
y:= -Sqr(x);
PutPixel(Round(x*5+320),Round(y*5+240),15);
x:=x + 0.01;
end;
readln;
CloseGraph;
end.