Построение осей координат

[lordseko]

Задается 9 точек. Необходимо найти сумму расстояний каждой точки до центра координат. Построить точки и оси координат графически.
Вроде прогу для вычисления составил, а вот с графикой туго((((
Помогите пожалуйста или если есть скинте что нибудь похожее! Спасибо за помощь!!!!!!!!!!

program Tochki;
uses crt,graphABC;
var
x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8,x9,y9:integer;
l1,l2,l3,l4,l5,l6,l7,l8,l9,Sum:real;
begin
clrscr;
writeln('vv 1 to4ku');
writeln('x=');
readln(x1);
writeln('y=');
readln(y1);
writeln('vv 2 to4ku');
writeln('x=');
readln(x2);
writeln('y=');
readln(y2);
writeln('vv 3 to4ku');
writeln('x=');
readln(x3);
writeln('y=');
readln(y3);
writeln('vv 4 to4ku');
writeln('x=');
readln(x4);
writeln('y=');
readln(y4);
writeln('vv 5 to4ku');
writeln('x=');
readln(x5);
writeln('y=');
readln(y5);
writeln('vv 6 to4ku');
writeln('x=');
readln(x6);
writeln('y=');
readln(y6);
writeln('vv 7 to4ku');
writeln('x=');
readln(x7);
writeln('y=');
readln(y7);
writeln('vv 8 to4ku');
writeln('x=');
readln(x8);
writeln('y=');
readln(y8);
writeln('vv 9 to4ku');
writeln('x=');
readln(x9);
writeln('y=');
readln(y9);
 
l1:=sqrt(sqr(x1)+sqr(y1));
writeln('l1=',l1:2:2);
l2:=sqrt(sqr(x2)+sqr(y2));
writeln('l2=',l2:2:2);
l3:=sqrt(sqr(x3)+sqr(y3));
writeln('l3=',l3:2:2);
l4:=sqrt(sqr(x4)+sqr(y4));
writeln('l4=',l4:2:2);
l5:=sqrt(sqr(x5)+sqr(y5));
writeln('l5=',l5:2:2 );
l6:=sqrt(sqr(x6)+sqr(y6));
writeln('l6=',l6:2:2);
l7:=sqrt(sqr(x7)+sqr(y7));
writeln('l7=',l7:2:2 );
l8:=sqrt(sqr(x8)+sqr(y8));
writeln('l8=',l8:2:2 );
l9:=sqrt(sqr(x9)+sqr(y9));
writeln('l9=',l9:2:2);
Sum:=L1+l2+l3+l4+l5+l6+l7+l8+l9;
writeln('Summa rasstoyanii 9 tochek ot centra koordinat');
writeln('Sum=',Sum:3:3);
 
readkey;
 
end.

[Selestis]

Примеры для Pascal ABC:
http://pascalabc.net/obuchenie-progr...ast-1-vvedenie
(гугл - великая вещь)

[lordseko]

Сообщение от Selestis

Примеры для Pascal ABC:
http://pascalabc.net/obuchenie-progr...ast-1-vvedenie
(гугл - великая вещь)

никак не получается((( помоги точки на график вывести плиз!!!!!!!!

[Selestis]

Покажите свой код отрисовки... В том примере по-моему всё предельно четко и ясно...

[lordseko]

Сообщение от Selestis

Покажите свой код отрисовки... В том примере по-моему всё предельно четко и ясно...

Как раз таки в этом у меня проблема(((( не получается программу написать, что то совсем нито выходить.
Как эти точки в график выставить?
Когда SetPixel (x,y,2) вставляю ничего не выходить... никакой реакции???

uses Crt,GraphABC;
const k=4;edx=k*5; edy=k*5;
WidthE = 800; nkx=WidthE div 2;
px=400 ; HeightE = 600 ;nky=HeightE div 2;
pyv=300; x=400; y=300;

var
m,n,i:integer;s1: string;
x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6 ,x7,y7,x8,y8,x9,y9:integer;
l1,l2,l3,l4,l5,l6,l7,l8,l9,Sum:real ;
Begin
clrscr;
writeln('vv 1 to4ku');
writeln('x=');
readln(x1);
writeln('y=');
readln(y1);
writeln('vv 2 to4ku');
writeln('x=');
readln(x2);
writeln('y=');
readln(y2);
writeln('vv 3 to4ku');
writeln('x=');
readln(x3);
writeln('y=');
readln(y3);
writeln('vv 4 to4ku');
writeln('x=');
readln(x4);
writeln('y=');
readln(y4);
writeln('vv 5 to4ku');
writeln('x=');
readln(x5);
writeln('y=');
readln(y5);
writeln('vv 6 to4ku');
writeln('x=');
readln(x6);
writeln('y=');
readln(y6);
writeln('vv 7 to4ku');
writeln('x=');
readln(x7);
writeln('y=');
readln(y7);
writeln('vv 8 to4ku');
writeln('x=');
readln(x8);
writeln('y=');
readln(y8);
writeln('vv 9 to4ku');
writeln('x=');
readln(x9);
writeln('y=');
readln(y9);
clrscr;

Setpixel (x1,y1,5);

l1:=sqrt(sqr(x1)+sqr(y1));
writeln('l1=',l1:2:2);
l2:=sqrt(sqr(x2)+sqr(y2));
writeln('l2=',l2:2:2);
l3:=sqrt(sqr(x3)+sqr(y3));
writeln('l3=',l3:2:2);
l4:=sqrt(sqr(x4)+sqr(y4));
writeln('l4=',l4:2:2);
l5:=sqrt(sqr(x5)+sqr(y5));
writeln('l5=',l5:2:2 );
l6:=sqrt(sqr(x6)+sqr(y6));
writeln('l6=',l6:2:2);
l7:=sqrt(sqr(x7)+sqr(y7));
writeln('l7=',l7:2:2 );
l8:=sqrt(sqr(x8)+sqr(y8));
writeln('l8=',l8:2:2 );
l9:=sqrt(sqr(x9)+sqr(y9));
writeln('l9=',l9:2:2);
Sum:=L1+l2+l3+l4+l5+l6+l7+l8+l9;
writeln('Summa rasstoyanii 9 tochek ot centra koordinat');
writeln('Sum=',Sum:3:3);

SetWindowWidth (WidthE);
SetWindowHeight (HeightE);
SetPenWidth (2);
SetPenColor (clLightGray); m:= 0;
CenterWindow;
repeat
line(0,edx+m*edx,WidthE,edx+m*edx);
inc(m);
until m>100;
SetPenColor (clLightGray); n:=0;
repeat
line (edx+n*edx,0,edx+n*edx,WidthE);
inc (n);
until n>100;
//Ïàëî÷êè íà îñè êîîðäèíàò Ox
for i:=21 to 37 do
begin
SetPenColor (clRed);
SetPenWidth (3);
line (edx*i,nky-6,edx*i,nky+6);
//Îñü êîîðäèíàò
SetPenWidth (5);
SetPenColor (clBlue);
line(WidthE div 2,WidthE-2*edx,WidthE div 2,0);
line(0,nky,WidthE,nky);
//Ñòðåëî÷êè ïî Îõ
line(nkx+px,nky,nkx+px-2*edx,nky-6);
line(nkx+px-2*edx,nky-6,nkx+px-edx,nky);
line(nkx+px-2*edx,nky+6,nkx+px-edx,nky);
line(nkx+px-2*edx,nky+6,nkx+px,nky);
//Ñòðåëî÷êè ïî Îó
line (nkx,nky-pyv,nkx-6,nky-pyv+2*edy);
line (nkx,nky-pyv+edy,nkx-6,nky-pyv+2*edy);
line (nkx,nky-pyv+edy,nkx+6,nky-pyv+2*edy);
line (nkx,nky-pyv,nkx+6,nky-pyv+2*edy);

readkey;
end;
end.