 Pascal программа, HELP |
Здравствуйте, гость ( Вход | Регистрация )
  |
| GuR |
 11.10.2008, 16:15
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 2 Регистрация: 11.10.2008 Город: Калиниград  |
Помогите пожалуйста написать программу на turbo pascal следующего вида:
По заданным декартовым координатам вершин четырехугольника P1(x1,y1), P2(x2,y2), P3(x3,y3), P4(x4,y4) должен вычисляться его периметр. Понимаю, что задача легкая, просто вызвало затруднение с составлением формулы...откликнитесь пожалуйста, кто знает (IMG:style_emoticons/default/blush.gif) |
   |
 
|
| tig81 |
11.10.2008, 16:22
Сообщение
#2
|
|
Академик Группа: Преподаватели Сообщений: 15 617 Регистрация: 15.12.2007 Город: Украина, Запорожье Учебное заведение: ЗНУ Вы: преподаватель |
правила форума
Про какую формулу идет речь? |
|
|
|
| Inspektor |
11.10.2008, 17:17
Сообщение
#3
|
|
Аспирант Группа: Активисты Сообщений: 384 Регистрация: 11.6.2008 Город: Крыжополь Учебное заведение: БГТУ Вы: студент |
Расстояние между точками вычисляется как корень квадратный из суммы квадратов координат.
Если данные передаются не в массиве, а каждая точка- это запись, то алгоритм такой: Код function L(P1,P2:dot):real; begin L:=sqrt(sqr(P1.x-P2.x)+sqr(P1.y-P2.y)); end; {бла-бла-бла} begin {бла-бла-бла} WriteLn('Периметр равен ',L(P1,P2)+L(P2,P3)+L(P3,P4)+L(P1,P4)); end. Правда данные точно должны быть в массиве, поэтому корректируйте (IMG:style_emoticons/default/yes.gif) . |
|
|
|
| GuR |
11.10.2008, 17:21
Сообщение
#4
|
|
Новичок Группа: Пользователи Сообщений: 2 Регистрация: 11.10.2008 Город: Калиниград |
благодарю, но мы еще массивы не проходили
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 29.4.2024, 8:25 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2024 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru