Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
chelios200489

функции и процедуры

03.10.2010, 15:55. Показов 663. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с задачкой... Даны три точки (x1,y1), (x2,y2), (x3,y3) - вершины треугольника. Определить подпрограмму, определяющую тип треугольника: прямоугольный, остроугольный, тупоугольный.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.10.2010, 15:55
Ответы с готовыми решениями:

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям...

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному варианту... у самой никак не получается( очень рассчитываю...

4
5 / 5 / 2
Регистрация: 26.09.2010
Сообщений: 25
03.10.2010, 16:23
Находишь длины сторон треугольника по формуле pow(pow(x1-x2,2)+pow(x2-x1,2),0.5), соотношение сторон треугольника дает углы..
тут почитай http://e-science.ru/math/theory/?t=210
0
chelios200489
03.10.2010, 18:29
я знаю как найти стороны треугольников, а как вот в программе определить что треугольник: Остроугольный, тупоугольный или прямоугольный????
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
03.10.2010, 19:04
определить что треугольник: Остроугольный, тупоугольный или прямоугольный????
1. Найти длины сторон и определить косинус угла против большей стороны с заданной точностью, типа 0,0001. Если он по абсолютной величине меньше точности, угол прямой, если больше о положительный, угол острый, треугольник остроугольный, если отрицательный, тупоугольный.
2. Также найти длины сторон, выбрать большую, среднюю и меньшую. Проврить с заданной точностью по Пифагору.
abs(a^2+b^2-c^2)<t прямоугольный, больше точности и a^2+b^2>c^ острый, иначе тупой.
0
481 / 119 / 17
Регистрация: 30.09.2010
Сообщений: 473
03.10.2010, 19:28
Цитата Сообщение от Puporev Посмотреть сообщение
1. Найти длины сторон и определить косинус угла против большей стороны с заданной точностью, типа 0,0001. Если он по абсолютной величине меньше точности, угол прямой, если больше о положительный, угол острый, треугольник остроугольный, если отрицательный, тупоугольный.
2. Также найти длины сторон, выбрать большую, среднюю и меньшую. Проврить с заданной точностью по Пифагору.
abs(a^2+b^2-c^2)<t прямоугольный, больше точности и a^2+b^2>c^ острый, иначе тупой.
Детский сад, правильно - как то так:
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
26
27
function ScalarProduct(v1x, v1y, v2x, v2y: real): real;
  {Возвращает скалярное произведение векторов v1(v1x,v1y) и v2(v2x,v2y)}
begin
  ScalarProduct:=v1x*v2x+v1y*v2y;
end;
 
function CheckTriangle(x1, y1, x2, y2, x3, y3: real): integer;
  {Возвращает -1 если треугольник тупоугольный,}
  {0 если прямоугольный и 1 если остроугольный }
var
  sp: real;
begin
  while TRUE do begin
    sp:=ScalarProduct(x2-x1, y2-y1, x3-x1, y3-y1);
    if sp<=0 then break;
    sp:=ScalarProduct(x3-x2, y3-y2, x1-x2, y1-y2);
    if sp<=0 then break;
    sp:=ScalarProduct(x1-x3, y1-y3, x2-x3, y2-y3);
    if sp<=0 then break;
    CheckTriangle:=+1;
    exit;
    end;
  if sp<0 then
    CheckTriangle:=-1
  else
    CheckTriangle:=0;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.10.2010, 19:28
Помогаю со студенческими работами здесь

Нахождение значения функции с использованием процедуры или функции
Найти значение функции у, использовать не менее 1й подпрограммы функции или подпрограммы процедуры. Дано массив А, B,C-заданы,...

Найти значение функции, используя процедуры и функции
Помогите плз написать программу с помощью процедур и функций. Найти значение функции a*{a}^{-x}-b*cos(x)+c . Интервал вычисления ,...

Процедуры\функции
Пожалуйста помогите!! задано натуральное n, целые числа a1,a2,...,an. Рассмотреть отрезки последовательности a1,a2,...,an...

процедуры и функции
1. Описать процедуру PowerA234(А, B, С, D), которая вычисляет вторую, третью и четвертью степень числа А и возвращает эти степени...

функции и процедуры
Пусть задана квадратная матрица порядка m и натуральное число n. Нужно найти Аn. Использовать алгоритм: если n=2k, то А^n= (А^2)^к. Если...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru