Составить программу вычисления площади четырехугольника произвольной формы

@Feedo1485 · Регистрация: 22.04.2020

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program chetyrehugolnik;
var A,B,C,D,F,S1,S2,S3:integer;
function Ploshad(A,B,C,D,F,S1,S2,S3:real): real;
var p1,p2:real;
begin 
p1:=(A+B+F)/2;
p2:=(F+C+D)/2;
S1:=sqrt(p1*(p1-A)*(p1-B)*(p1-F));
S2:=sqrt(p2*(p2-F)*(p2-C)*(p2-D));
S3:=S1+S2;
writeln('Площадь фигуры:',S3);
end;
begin
  write('Введите стороны:'); read(A,B,C,D,F);
  Ploshad(A,B,C,D,F,S1,S2,S3);
end.

Программа должна находить площадь четырехугольника путем деление Диагональю F на два треугольнка, а дальше по формуле герона, Но в ответе выдает NaN

Полная задача:
Составить программу вычисления площади четырехугольника произвольной формы с длинами сторон A, B, C, D и диагональю F. Использовать в программе вспомогательный алгоритм «функция» для вычисления площади одного треугольника.

Дополнительные условия:
1. Основная программа должна содержать ввод пяти переменных (A, B, C, D, F – глобальные параметры), обращение к функции (2 раза), вычисление общей площади четырехугольника и вывод результата.
2. Имя функции любое на усмотрение разработчика программы.
3. Функция должна оперировать с тремя входными данными (это локальные параметры) и содержать основной алгоритм вычисления площади треугольника по формуле Герона.

@mr-Crocodile · 22.04.2020, 14:11

Сообщение от Feedo1485

Использовать в программе вспомогательный алгоритм «функция» для вычисления площади одного треугольника.

это не сделано.

Сообщение от Feedo1485

Pascal
1
function Ploshad

функция должно что-то возвращать, у тебя ничего не возвращает.
S1,S2,S3 не имеют модификатора VAR - через них вообще ничего не вернётся.

Сообщение от Feedo1485

Но в ответе выдает NaN

точно?

Code
1
2
Введите стороны:3 4 2 6 5
Площадь фигуры:10.6837484987988

а ты числа от балды вводишь? так не любые числа - длины сторон могут образовывать треугольник.
ты или вводи корректно, или добавь проверку на то, что треугольник существует.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .