|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.01.2010, 19:48 | #1 |
Новичок
Джуниор
Регистрация: 14.12.2009
Сообщений: 2
|
Упростить код (Паскаль)
как можо упростить первую часть?
program Project1; {$APPTYPE CONSOLE} type point = record x,y,dist2:integer; end; function getDist(a:point; b:point):integer; begin getDist:=(a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y); end; var n,i,j,maxD, maxI, maxJ, tmp: integer; pts: array of point; begin writeln('N:'); readln(n); SetLength(pts, n); writeln('Vvodite koordinati tochek cheres probel, a tochki chereze enter'); for i := 0 to n-1 do Readln(pts[i].x, pts[i].y); maxI:=0; maxJ:=1; maxD:=getDist(pts[0], pts[1]); for i := 0 to n-2 do for j := i+1 to n-1 do begin tmp:=getDist(pts[i], pts[j]); if tmp>maxD then begin maxI:=i; maxJ:=j; maxD:=tmp; end; end; writeln; Writeln(pts[maxI].x, ' ', pts[maxi].y); Writeln(pts[maxJ].x, ' ', pts[maxJ].y); readln; end. Последний раз редактировалось crocodile; 26.01.2010 в 17:59. |
26.01.2010, 17:58 | #2 |
Новичок
Джуниор
Регистрация: 14.12.2009
Сообщений: 2
|
Можно ли проще сделать не объяляя тип координат, а используя одни переменные???
|
26.01.2010, 22:22 | #3 |
Заблокирован
Регистрация: 30.10.2009
Сообщений: 468
|
Можно бы было, но так ведь удобнее, и учитесь оформлять код правильно:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерный массив(Паскаль). Упростить код | AnL | Помощь студентам | 1 | 17.12.2009 01:37 |
помогите упростить код | serafim09 | Microsoft Office Excel | 9 | 14.10.2009 15:01 |
Помогите упростить код | Ralf_ru | Помощь студентам | 7 | 01.04.2009 17:17 |