![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 22.11.2011
Сообщений: 201
|
![]()
Помогите найти ошибку.
Условие Произвольный выпуклый многоугольник задан координатами своих вершин на плоскости. Найдите самую длинную диагональ данного многоугольника. Код:
Последний раз редактировалось Начинающий програм; 23.11.2011 в 21:55. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.10.2011
Сообщений: 306
|
![]()
здесь целая кладезь ошибок...
1) begin writeln('Введите координаты ',i,'-й вершины(x,y)'); readln(x[i],y[i]); writeln; end; end; - в этом месте последний end лишний 2) Input(x,y,n); это ведь процедура, а каждую процедуру необходимо описывать в самом начале программы. вот программа твоя, в которой некоторые ошибки отлажены...дальше попробуй сам, там уже все довольно просто) const n_max = 10; procedure input; type tymple = array [1..n_max] of integer; var x, y, r: tymple; i, j, n: integer; d_max, d: real; begin write('Введите кол-во вершин многоугольника: '); readln(n); while n > n_max do begin writeln('Ошибка! Повторите ввод!'); readln(n); end; for i := 1 to n do begin writeln('Введите координаты ', i, '-й вершины(x,y)'); readln(x[i], y[i]); writeln; end; begin for i := 1 to n do r[i] := trunc(sqrt(sqr(x[i + 1] - x[i]) + sqr(y[i + 1] - y[i]))); //расстояние между точками end; begin input(x, y, n); SegLen(x, y, d, n); for i := 1 to n do write(x[i], ',', y[i], ' '); writeln; end; for i := 1 to n do write(d[i], ' '); readln; end; begin d_max := 0; for i := 1 to n - 2 do begin for j := 1 to n do begin if ((j - i) >= 2) and ((j - i) < (n - 1)) then begin d := sqrt(sqr(x[j] - x[i]) + sqr(y[j] - y[i])); if d > d_max then d_max := d; end; end; end; writeln('Самая длинная диагональ: ', d_max:2:1); readln; end.
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 22.11.2011
Сообщений: 201
|
![]()
Я Вам очень благодарен!
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 22.11.2011
Сообщений: 201
|
![]()
Чет я немогу найти ошибки в программе
Код:
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal. Задача на массив | BLackJackxxx | Помощь студентам | 7 | 16.04.2011 00:10 |
Задача Pascal(Массив) | AyMosg | Помощь студентам | 3 | 29.12.2010 00:16 |
[Pascal] Задача на массив. | Kirimba | Помощь студентам | 2 | 05.12.2010 13:47 |
Задача на массив Pascal | shozanah | Помощь студентам | 5 | 20.11.2010 23:44 |