|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.02.2012, 22:01 | #1 |
Регистрация: 19.02.2012
Сообщений: 9
|
программа с прцедурой
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Написать в паскале программу. Задача: Найти периметр треугольника, заданного координатами своих вершин. В программе использовать процедуру. |
19.02.2012, 22:15 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Легко... Только расскажи хотя бы на словах как математически находится периметр треугольника.
I'm learning to live...
|
20.02.2012, 15:41 | #3 |
Регистрация: 19.02.2012
Сообщений: 9
|
периметр- это сложение длин всех сторон треугольника...а одна сторона треугольника заданного координатами своих вершин находится по формуле
L=sqrt(sqr(x2-x1)+sqr(y2-y1)) |
20.02.2012, 15:46 | #4 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
20.02.2012, 15:51 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Юля, ну вы же сами на свой вопрос и ответили.
вводите координаты трёх вершин. вычисляете расстояния между ними (форумулу Вы абсолютно правильно привели). суммируете полученные расстояния. Это и есть требуемая величина периметра. что вызывает сложности?! p.s. справедливости ради, надо сказать, что не для любых трёх точек можно построить треугольник. Задача имеет решение только если все три точки не лежат на одной прямой. Это легко проверить (длина самой большой стороны меньше, чем сумма двух других сторон), но, раз в задаче сказано, что данные точки представляют собой вершины треугольника, то факт существования этого треугольника можно и не проверять! ДОБАВЛЕНО ну вот, пока собирался написать, denisbrain меня уже опередил. denisbrain, вот только округлять длины сторон, имхо, совсем излишне! нормально получить длины - вещественные числа и полученный периметр - тоже вещественное число. Никто в задаче не говорил, что длины сторон и периметер имеют целочисленные значения!! ну и ещё. в TurboPascal для хранения координат удобно использовать либо тип PointType (описан в модуле Graph), или описать свой пользовательский тип данных, например: type point=record x,y: integer; end; ну а если задача решается в Delphi, то использовать встроенный тип данных TPoint Последний раз редактировалось Serge_Bliznykov; 20.02.2012 в 15:58. |
20.02.2012, 15:54 | #6 |
Регистрация: 19.02.2012
Сообщений: 9
|
denisbrain спасибо БОЛЬШОЕ!! но мне нужна программа не с функцией а с процедурой...
Если сможете напишите пожалуйста всю программу для Pascal...Serge_Bliznykov может вы сможете мне помочь? Последний раз редактировалось Юля_0990; 20.02.2012 в 16:26. |
20.02.2012, 20:04 | #7 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
раз надо с процедурой - пожалуйста:
Код:
Правильно поставленная задача - три четверти решения.
|
21.02.2012, 11:36 | #8 |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype Последний раз редактировалось denisbrain; 21.02.2012 в 11:42. |
21.02.2012, 12:27 | #9 |
Регистрация: 19.02.2012
Сообщений: 9
|
ЕЕХХХЕЕЕУУУУ =)))) ВСЕМ БОЛЬШОЕ СПАСИБО!!!! ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ )))
А можно ли эту программу немножко подкорректировать так, чтобы в процедуре считалась только одна сторона....а вычисление периметра перешла в основную часть программы? если можно напишите пожалуйста... Последний раз редактировалось Юля_0990; 21.02.2012 в 18:23. |
22.02.2012, 08:37 | #10 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа с применением записей и программа с применение множеств | smert99 | Помощь студентам | 0 | 16.06.2011 23:14 |
Программа открыается если есть другая программа. | bookkc | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 14.10.2009 20:09 |
[PASCAL]Программа создания файла, программа обработки файла | Виколяшка | Фриланс | 7 | 23.09.2009 17:38 |
Программа создания файла, программа обработки файла [PASCAL] | Виколяшка | Помощь студентам | 1 | 22.09.2009 22:56 |