Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 13.12.2012
Сообщений: 5

Процедуры и функции: Вводятся с клавиатуры координаты 3-х точек. Нужно определить длины медиан получившегося треугольника

14.06.2013, 10:16. Показов 1578. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вводятся с клавиатуры координаты 3-х точек. Нужно определить длины медиан получившегося треугольника
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.06.2013, 10:16
Ответы с готовыми решениями:

Определить по координатам трёх точек точку пересечения медиан треугольника
Написать программу, определяющую по координатам трёх точек точку пересечения медиан треугольника, если таковой существует. И выводит на...

С клавиатуры вводятся длины катетов прямоугольного треугольника. Вывести на экран величины всех его углов
С клавиатуры вводятся длины катетов прямоугольного треугольника. Вывести на экран величины всех его углов (каждое значение в отдельной...

Заданы длины сторон треугольника. Найти длины высот и медиан
Заданы длины сторон треугольника. Найти длины высот и медиан.

6
1 / 1 / 2
Регистрация: 13.06.2013
Сообщений: 8
14.06.2013, 10:39
с помощью определения медианы:
ma=1/2*sqrt(2*b*b+2*c*c−a*a);
0
0 / 0 / 0
Регистрация: 13.12.2012
Сообщений: 5
14.06.2013, 11:17  [ТС]
мне бы полностью задачу
0
1617 / 1182 / 553
Регистрация: 08.01.2012
Сообщений: 4,560
14.06.2013, 11:57
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
type pnt=record
   x,y:real;
   end;
var
   i:integer;
   x,y,m:real;
   a:array[1..5]of pnt;
begin
   for i:=1 to 3 do
   begin
      write(i,')Введите X Y через пробел:');
      readln(a[i].x,a[i].y);
   end;
   a[4]:=a[1];
   a[5]:=a[2];
   for i:=1 to 3 do
   begin
      x:=(a[i+1].x+a[i+2].x)/2;
      y:=(a[i+1].y+a[i+2].y)/2;
      m:=sqrt((a[i].x-x)*(a[i].x-x)+(a[i].y-y)*(a[i].y-y));
      writeln(i,') m=',m);
   end;
   readln;
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33376 / 21500 / 8236
Регистрация: 22.10.2011
Сообщений: 36,896
Записей в блоге: 11
14.06.2013, 12:18
Зачем этот изврат с двумя лишними значениями? Больше делать нечего, как всякий бред советовать? Делаешь сам - делай, зачем других-то учить???

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type pnt=record
   x,y:real;
   end;
var
   i:integer;
   x,y,m:real;
   a:array[0..2]of pnt;
begin
   for i:=0 to 2 do
   begin
      write(i+1,')Введите X Y через пробел:');
      readln(a[i].x,a[i].y);
   end;
 
   for i:=0 to 2 do
   begin
      x:=(a[(i+1) mod 3].x+a[(i+2) mod 3].x)/2;
      y:=(a[(i+1) mod 3].y+a[(i+2) mod 3].y)/2;
      m:=sqrt((a[i].x-x)*(a[i].x-x)+(a[i].y-y)*(a[i].y-y));
      writeln(i+1,') m=',m);
   end;
   readln;
end.
0
1617 / 1182 / 553
Регистрация: 08.01.2012
Сообщений: 4,560
14.06.2013, 12:31
судя по посту для ТС так несомненно понятнее
0
0 / 0 / 0
Регистрация: 13.12.2012
Сообщений: 5
17.06.2013, 20:45  [ТС]
спасибо всем
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.06.2013, 20:45
Помогаю со студенческими работами здесь

В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг
Здравствуйте, программисты! Возникла проблема в решение задачи. Кому не трудно, помогите! В ЭВМ вводятся по очереди координаты N точек....

Вводятся координаты центра и радиусы двух окружностей. Определить количество точек пересечения
Вводятся координаты центра и радиусы двух окружностей. Определить количество точек пересечения. dzuin, правила форума не для вас...

Вычислить длины медиан треугольника
Даны a, b, c - длины сторон треугольника. Вычислить длины медиан треугольника(с помощью процедуры) С помощью function решил program...

Определить принадлежность точки, координаты которой вводятся с клавиатуры, заштрихованной области
Написать программу. Определить принадлежность точки, координаты которой вводятся с клавиатуры, заштрихованной области

В ЭВМ вводятся координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (a,b)
Помогите плиз решить задачу 3 способами) 1)счетчик (for to do) 2)предпроверка условия (while do) 3)постпроверка условия (repeat...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru