Определить периметр и площадь треугольника по формуле Герона

@Petro29 · Регистрация: 30.04.2016

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

Даны три массива с одинаковым количеством элементов 5, в которых содержатся стороны треугольников
Aj, Bj и Q. Определить периметр Pj и площадь S каждого треугольника по формуле Герона. (А для треугольника необ-
ходимо определённое соотношение его сторон, поэтому лучше элементы задавать в операторе DATA).
Что значит стороны и периметр с индексами j:
Для трёх введённых сторон условие такое:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
 IF a + b > c AND b + c > a AND c + a > b THEN
    IF 7 + 11 > 9 AND 11 + 9 > 7 AND 9 + 7 > 11 THEN
CLS
DATA 5, 7, 15, 11, 9
DIM A(5)
   FOR I = 1 TO 5
     READ A(i)
       PRINT A(i);
IF A(2) + A(4) > A(5) THEN
    END IF
   NEXT i: PRINT
PRINT “ Треугольник возможен.”

На выходе имеем:

QBasic/QuickBASIC
1
2
5  7  15  11  9
Треугольник возможен.

Попытался добавить к программе строку:

QBasic/QuickBASIC
1
 Треугольник не возможен.

Не получилось. А ведь я старался.
И второй вариант:
Ввод случайных чисел и щёлкать до тех пор, пока не
выполнится указанное условие. Но получил отказ.
Почему?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM A(5)
  RANDOMIZE TIMER
   FOR i = 1 TO 5
     A(i) = INT(RND * 10) + 1
          PRINT A(i);
   NEXT i: PRINT
   FOR i = 1 TO 5
IF (A(i) + A(i + 1) > A(i + 2) THEN
    END IF
   NEXT i: PRINT
PRINT “ Треугольник возможен.’

На выходе получил отказ:

QBasic/QuickBASIC
1
2
  Индекс вне диапазона
           <  OK  >    <  Справка  >

@кот Бегемот · 22.10.2019, 10:53

Что это за бред:

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

IF 7 + 11 > 9 AND 11 + 9 > 7 AND 9 + 7 > 11 THEN

Разве 7+11 бывает меньше 9? Зачем эту глупость писать?
И вся Ваша программа бредовая, что в первом, что во втором варианте. У Вас три массива, а Вы работаете только с одним, условие пишите вообще не для массива, а для простых переменных, индекс у вас вылетает потому, что при i=5 i+2 будет равно 7, а у вас объявлено только 5 элементов.
Вам бы для начала теорию поучить, а вы лезете программы составлять, не понимая сути. у вас так никогда ничего не получится, и вы будете постоянно писать подобный бред на этом форуме.
С наилучшими пожеланиями
КБ

@Petro29 · 23.02.2020, 19:50 **[ТС]**

Даны три массива с одинаковым количеством элементов 5, в которых содержатся стороны треугольников Aj, Bj и Q. Определить периметр Pj и площадь S каждого треугольника по формуле Герона. (А для треугольника необходимо определённое соотношение его сторон, поэтому лучше элементы задавать в операторе DATA).

Вы бы к нелестному комментарию в мой адрес по поводу этой программы от 22.10.2019 года дали бы пояснения
к вопросам.

1. Что значит стороны и периметр с индексом j.
2. Зачем для треугольника задавать 5 сторон DATA’ом, если для треугольника требуется три стороны
(с определённым соотношением сторон).
3. Периметр и площадь достаточно определить для одного массива. А для 2-го и 3-го – это уже не проблема (если
мы можем в одной программе печатать несколько массивов).
4. А приведённые программы были на тему: возможен ли треугольник при вводе сторон a, b, c Input’ом.
Например, введя a = 2, b = 7, c = 9, треугольник невозможен, поэтому и определять нечего. Конец программы.

Вы бы ответили на эти вопросы? Был бы признателен Вам

@ZX Spectrum-128 · 24.02.2020, 14:18

кот Бегемот, https://www.cyberforum.ru/post14264574.html

@Petro29 · 09.03.2020, 21:00 **[ТС]**

К вашей программе никаких претензий нет. Только подредактировал немного.

А ответ такой:
1 пункт: Массив А, В и Р (видимо должно быть А, В и С) далее: … имеется в виду 10 тр-ков со сторонами А , В и Q (по видимому должно быть Аj , Вj и Сj )
Далее: … и почему 10 тр-ков (из 10 элементов)?
Из 5 эл-в можно составить 10 разных тр-ков (это я определил методом подбора, а как по формуле сочетаний – не знаю). Из 5 эл-в массива 1 2 3 4 5 можно сделать 10 разных тр-ков:
1 2 3; 1 3 4; 1 4 5; 2 3 4; 2 4 5; 2 5 1; 2 4 1; 3 4 5; 2 3 5; 5 3 1
А из 10 элементов тр-ков можно составить несколько десятков, а не 10. (не знаю как определить способом сочетаний). Если Вы помните формулу сочетаний (из школы), то напишите её.
2 пункт: что значит «для формулы Герона не нужно определять соотношение сторон. С какого перепуга? И чё за DATA
такая?»
Если тр-ник возможен, то вычисляем P и Q, а если не возможен – то и вычислять нечего. А про DATA – что ни разу в жизни не слышали?
В задании, кстати, рекомендуется задавать элемент массива оператором DATA.
3 пункт: что за вопрос – «Какая ещё площадь?» Да та, которую нужно определить по заданию.
4 пункт: этот пункт вообще ни к чему. Если тр-ник возможен, вычисляем P и Q, иначе ничего не вычисляем.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	23.02.2020, 19:50 [ТС]
	Даны три массива с одинаковым количеством элементов 5, в которых содержатся стороны треугольников Aj, Bj и Q. Определить периметр Pj и площадь S каждого треугольника по формуле Герона. (А для треугольника необходимо определённое соотношение его сторон, поэтому лучше элементы задавать в операторе DATA). Вы бы к нелестному комментарию в мой адрес по поводу этой программы от 22.10.2019 года дали бы пояснения к вопросам. 1. Что значит стороны и периметр с индексом j. 2. Зачем для треугольника задавать 5 сторон DATA’ом, если для треугольника требуется три стороны (с определённым соотношением сторон). 3. Периметр и площадь достаточно определить для одного массива. А для 2-го и 3-го – это уже не проблема (если мы можем в одной программе печатать несколько массивов). 4. А приведённые программы были на тему: возможен ли треугольник при вводе сторон a, b, c Input’ом. Например, введя a = 2, b = 7, c = 9, треугольник невозможен, поэтому и определять нечего. Конец программы. Вы бы ответили на эти вопросы? Был бы признателен Вам 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	24.02.2020, 14:18
	кот Бегемот, https://www.cyberforum.ru/post14264574.html 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	09.03.2020, 21:00 [ТС]
	К вашей программе никаких претензий нет. Только подредактировал немного. А ответ такой: 1 пункт: Массив А, В и Р (видимо должно быть А, В и С) далее: … имеется в виду 10 тр-ков со сторонами А , В и Q (по видимому должно быть Аj , Вj и Сj ) Далее: … и почему 10 тр-ков (из 10 элементов)? Из 5 эл-в можно составить 10 разных тр-ков (это я определил методом подбора, а как по формуле сочетаний – не знаю). Из 5 эл-в массива 1 2 3 4 5 можно сделать 10 разных тр-ков: 1 2 3; 1 3 4; 1 4 5; 2 3 4; 2 4 5; 2 5 1; 2 4 1; 3 4 5; 2 3 5; 5 3 1 А из 10 элементов тр-ков можно составить несколько десятков, а не 10. (не знаю как определить способом сочетаний). Если Вы помните формулу сочетаний (из школы), то напишите её. 2 пункт: что значит «для формулы Герона не нужно определять соотношение сторон. С какого перепуга? И чё за DATA такая?» Если тр-ник возможен, то вычисляем P и Q, а если не возможен – то и вычислять нечего. А про DATA – что ни разу в жизни не слышали? В задании, кстати, рекомендуется задавать элемент массива оператором DATA. 3 пункт: что за вопрос – «Какая ещё площадь?» Да та, которую нужно определить по заданию. 4 пункт: этот пункт вообще ни к чему. Если тр-ник возможен, вычисляем P и Q, иначе ничего не вычисляем. 0