Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 12.02.2021
Сообщений: 16

Для каждой тройки этих отрезков, из которых можно построить треугольник, найти площадь данного треугольника

31.03.2021, 16:21. Показов 719. Ответов 4

Студворк — интернет-сервис помощи студентам
Даны отрезки a, b, c и d. Для каждой тройки этих отрезков, из которых можно построить треугольник, найти площадь данного треугольника. Определить процедуру нахождения площади треугольника, если такой треугольник существует и известны длины его сторон. Распишите пожалуйста каждую строчку этого кода, ничего не понял процедуре особенно и что обозначают переменные x,y,z и как понять формулу в процедуре:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c,d: real;
 
procedure Plo (s: string; x,y,z: real);
var sq: real;
begin
if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then
   begin
   sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));
   writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);
   end else writeln('Треугольник со сторонами ',s,' не существует');
end;
 
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
Plo ('a,b,c',a,b,c);
Plo ('a,b,d',a,b,d);
Plo ('a,c,d',a,c,d);
Plo ('b,c,d',b,c,d);
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.03.2021, 16:21
Ответы с готовыми решениями:

Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника....

Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника....

Даны отрезки. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить площадь
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить площадь. Напечатать площадь...

4
31.03.2021, 16:28

Не по теме:

Цитата Сообщение от Cyberbanc Посмотреть сообщение
ничего не понял
Совсем голова плохой...

0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
31.03.2021, 17:13
Вот все описал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt; { это первая строка кода - абсолютно лишняя }
var a,b,c,d: real; { это вторая строка }
 { это третья строка - пустая }
procedure Plo (s: string; x,y,z: real); { это четвёртая строка }
var sq: real; { это пятая }
begin { это шестая строка }
if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then { это седьмая строка }
   begin { это восьмая строка }
   sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z))); { это девятая строка }
   writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3); { это десятая строка }
   end else writeln('Треугольник со сторонами ',s,' не существует'); { это одиннадцатая строка }
end; { это двенадцатая строка }
 { это тринадцатая строка - пустая }
begin { это четырнадцатая строка }
write('a='); readln(a); { это пятнадцатая строка }
write('b='); readln(b); { это шестнадцатая строка }
write('c='); readln(c); { это семнадцатая строка }
write('d='); readln(d); { это восемнадцатая строка }
Plo ('a,b,c',a,b,c); { это девятнадцатая строка }
Plo ('a,b,d',a,b,d); { это двадцатая строка }
Plo ('a,c,d',a,c,d); { это двадцать первая строка }
Plo ('b,c,d',b,c,d); { это двадцать вторая строка }
end. { это двадцать третья строка - последняя }
0
0 / 0 / 0
Регистрация: 12.02.2021
Сообщений: 16
31.03.2021, 19:23  [ТС]
Вам бы в комики податься
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
01.04.2021, 04:10
Это вы, Cyberbanc, тут людей смешите!
А я на полном серьёзе выполнил то, что просили: расписал каждую строчку кода. Каждую!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.04.2021, 04:10
Помогаю со студенческими работами здесь

Для каждой тройки отрезков, из которых можно построить треугольник, вычислить периметр и площадь треугольника
4. Даны длины отрезков a, b, c, d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить периметр и площадь...

Для каждой тройки отрезков, из которых можно построить треугольник, найти площадь данного треугольника
даны отрезки a,b,c,d для каждой тройки этих отрезков, их которых можно построить треугольник, найти площадь данного треугольника....

Для каждой тройки отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника
Вот сама программа. Суть программы "Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник,...

Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника
Даны отрезки а, b, c, d. Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника....

Для каждой тройки этих отрезков, из которых можно построить треугольники, вычислить площадь данного треугольника"
Привет всем! Ребята помогите)) вот задача: "Даны отрезки A, B, C, D. Для каждой тройки этих отрезков, из которых можно построить...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
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