|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2010, 07:33 | #1 |
Пользователь
Регистрация: 20.12.2010
Сообщений: 10
|
Объединить программы
Задача:
Задается 9 точек. Необходимо найти сумму расстояний каждой точки до центра координат. Построить графически. Вообщем сперва написал программу для нахождения суммы. Хотя знаю что так нельзя без циклов. Ну что мог. Затем помогли с программой для построения точек в графике. Сколько не мучился, вот уже 3 ночь даже во сне ее решаю((( помогите пожалуйста объединить две программыих!!! 1. uses crt,graph; const n=3; {kolichestvo tochek} var i,j,gd,gm,cx,cy,k:integer; massX:array[1..n] of real; {xranit X-koordinaty tochek} massY:array[1..n] of real; {xranit Y-koordinaty tochek} s:string; begin clrscr; k:=10; for i:=1 to n do begin writeln('vvedite x',i,' i y',i); readln(massX[i],MassY[i]); end; initgraph(gd,gm,''); cx:=GetMaxX div 2; cy:=GetMaxY div 2; line(cx,0,cx,GetMaxY); line(0,cy,getMaxX,cy); for i:=1 to n do begin str(i,s); outtextXY(cx+round(k*MassX[i]),cy-round(k*MassY[i]),s); putpixel(cx+round(k*MassX[i]),cy-round(k*MassY[i]),10); end; readln; closegraph; end. 2. Это наверное ужасная программа. 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. |
22.12.2010, 08:13 | #2 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
сначало рисуеш график по 9 точкам, потом шитаеш растояниа?
код изумителныи)
VirusN13
|
22.12.2010, 08:19 | #3 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
Код:
1. если что нибуд из черного не понятно, я допишу пояснение. 2. на шет красного - ето просто твои код, не знаю как он работает, но ты думаю сам с ним разберешся
VirusN13
Последний раз редактировалось ArtGrek; 22.12.2010 в 09:16. |
22.12.2010, 08:37 | #4 | |
Пользователь
Регистрация: 20.12.2010
Сообщений: 10
|
Цитата:
|
|
22.12.2010, 08:43 | #5 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
смотри прошлое сообшение, с графом лет 5 не работал, не помню многово
VirusN13
Последний раз редактировалось ArtGrek; 22.12.2010 в 08:58. |
22.12.2010, 09:00 | #6 |
Пользователь
Регистрация: 20.12.2010
Сообщений: 10
|
|
22.12.2010, 09:02 | #7 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
ты проверил хот на практике, работает как надо?
ну как? мне же интересно)
VirusN13
Последний раз редактировалось ArtGrek; 22.12.2010 в 09:13. |
22.12.2010, 09:40 | #8 |
Пользователь
Регистрация: 20.12.2010
Сообщений: 10
|
|
22.12.2010, 09:51 | #9 | |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
Цитата:
VirusN13
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объединить усилия | Lemo | Свободное общение | 6 | 11.11.2009 06:41 |
как объединить две программы? | kuzmich | Общие вопросы Delphi | 3 | 28.10.2009 19:45 |
Объединить макросы | Romuald | Microsoft Office Excel | 2 | 29.03.2009 20:09 |
Помогите объединить две программы!!!!!!! | leest | Помощь студентам | 3 | 23.05.2008 17:20 |