Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник?

@Juli2106 · Регистрация: 11.01.2012

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

Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник?
Входные данные
Сначала вводится количество отрезков,затем длины этих отрезков(ещё N чисел).
Выходные данные
Программа должна вывести одно число-искомое количество способов.
Примеры
Входные данные Выходные данные
4 1
1 2 3 4

3 0
10 100 1000
Ограничения
Количество отрезков -не менее 3 и не более 20. Длина каждого отрезка-натуральное число,не превосходящее 1000.Все отрезки имеют разную длину.

Программу надо решить в QBasic.
Заранее спасибо.

@кот Бегемот · 18.01.2012, 20:28

А в курсе, что олимпиадные задачи здесь не решают? Нехорошо чужими мозгами преимущества завоёвывать

Добавлено через 55 секунд
PS

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

Программу надо решить в QBasic.

Решить программу? Это круто.

@Juli2106 · 18.01.2012, 20:41 **[ТС]**

Я не знала,что это олимпиадная задача.Нам задали её решить в классе

Добавлено через 1 минуту
Quick Basic

Добавлено через 11 минут
описалась,решить задачу

@кот Бегемот · 18.01.2012, 20:53

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n
DIM a(n)
FOR i = 1 TO n
INPUT #1,a(i)
NEXT
CLOSE
FOR i = 1 TO n
FOR j = i + 1 TO n
FOR k = j + 1 TO n
IF a(i) + a(j) > a(k) AND a(i) + a(k) > a(j) AND a(j) + a(k) > a(i) THEN m = m + 1
NEXT
NEXT
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, m
CLOSE

@Juli2106 · 18.01.2012, 21:05 **[ТС]**

спасибо,но я ещё такого не проходила
и поэтому не могу понять,что Вы написали

@кот Бегемот · 18.01.2012, 21:08

Хорошо. Тогда так. Или массивы тоже не проходили?

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT n
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT
FOR i = 1 TO n
FOR j = i + 1 TO n
FOR k = j + 1 TO n
IF a(i) + a(j) > a(k) AND a(i) + a(k) > a(j) AND a(j) + a(k) > a(i) THEN m = m + 1
NEXT
NEXT
NEXT
PRINT  m

@Juli2106 · 18.01.2012, 21:12 **[ТС]**

массивы сейчас проходим
а что такое DIM?

@кот Бегемот · 18.01.2012, 21:18

Хороший вопрос, особенно от того, кто проходит массивы. С этого начинается изучение массивов.
DIM - от английского Dimension (размер)
Оператор, выделяющий место в памяти под массив. Применяется вместе с именем и размером массива.

@Juli2106 · 18.01.2012, 21:22 **[ТС]**

первый раз слышу
то есть его обязательно использовать?

@кот Бегемот · 18.01.2012, 21:31

Если массив более 10 элементов, то обязательно, потому что самостоятельно Бейсик выделяет место только под массив из 10 элементов

@Juli2106 · 18.01.2012, 21:45 **[ТС]**

а что значит a(i)?

@кот Бегемот · 18.01.2012, 21:48

а это значит элемент массива с именем а и номером i

Ужас какой-то. Чему вас там вообще учат, если ты примитивных вещей не знаешь?

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15

	Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник? 18.01.2012, 20:17. Показов 8006. Ответов 11 Метки нет (Все метки) Дан набор из N отрезков различной длины.Сколькими способами можно выбрать из этих отрезков три,из которых можно составить треугольник? Входные данные Сначала вводится количество отрезков,затем длины этих отрезков(ещё N чисел). Выходные данные Программа должна вывести одно число-искомое количество способов. Примеры Входные данные Выходные данные 4 1 1 2 3 4 3 0 10 100 1000 Ограничения Количество отрезков -не менее 3 и не более 20. Длина каждого отрезка-натуральное число,не превосходящее 1000.Все отрезки имеют разную длину. Программу надо решить в QBasic. Заранее спасибо. 0

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15
	18.01.2012, 20:41 [ТС]
	Я не знала,что это олимпиадная задача.Нам задали её решить в классе Добавлено через 1 минуту Quick Basic Добавлено через 11 минут описалась,решить задачу 0

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15
	18.01.2012, 21:05 [ТС]
	спасибо,но я ещё такого не проходила и поэтому не могу понять,что Вы написали 0

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15
	18.01.2012, 21:12 [ТС]
	массивы сейчас проходим а что такое DIM? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.01.2012, 21:18
	Хороший вопрос, особенно от того, кто проходит массивы. С этого начинается изучение массивов. DIM - от английского Dimension (размер) Оператор, выделяющий место в памяти под массив. Применяется вместе с именем и размером массива. 0

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15
	18.01.2012, 21:22 [ТС]
	первый раз слышу то есть его обязательно использовать? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.01.2012, 21:31
	Если массив более 10 элементов, то обязательно, потому что самостоятельно Бейсик выделяет место только под массив из 10 элементов 0

@Juli2106 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 15
	18.01.2012, 21:45 [ТС]
	а что значит a(i)? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.01.2012, 21:48
	а это значит элемент массива с именем а и номером i Ужас какой-то. Чему вас там вообще учат, если ты примитивных вещей не знаешь? 0