Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике

@vladvolvo · Регистрация: 25.10.2014

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

Друзья,помогите пожалуйста с этими 4 задачками.в школе был паскаль,а в универе бэйсик и нефига его не понимаю.
вот условия:
Задача 1. Вводится последовательность из п треугольников, заданных длинами сторон. Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике. В другое окно списка вывес информацию о тройках отрезков, из которых нельзя построить треугольник, или сообщение, если таких отрезков нет.

SoftIce · 26.10.2014, 07:49

Не по теме:

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

Хотя бы 1 задачу помогите

Что значит "помогите"? "Сделайте за меня" будет точнее.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
     Dim n As Integer, L() As Double, i As Integer, j As Integer
     Dim s As String, s1 As String
     Randomize
     n = InputBox("Введите количество треугольников,(n)", "Ввод данных", Int(Rnd * 10 + 1))
     ReDim L(1 To n, 1 To 3)
     For i = 1 To n
         For j = 1 To 3
              L(i, j) = InputBox("Введите длину стороны " & Chr(64 + j) & " треугольника №" & i, "Ввод данных", Int(Rnd * 100 + 1))
         Next j
         s = s & "A = " & L(i, 1) & vbTab & "B = " & L(i, 2) & vbTab & "C = " & L(i, 3) & vbCrLf
         If L(i, 1) + L(i, 2) <= L(i, 3) Or L(i, 1) + L(i, 3) <= L(i, 2) Or L(i, 2) + L(i, 3) <= L(i, 1) Then
               s1 = s1 & "A = " & L(i, 1) & vbTab & "B = " & L(i, 2) & vbTab & "C = " & L(i, 3) & vbCrLf
         End If
     Next i
     s = s & "Из которых нельзя построить треугольник"
     s = IIf(s1 = "", s & " нет.", s & ":" & vbCrLf & s1)
     MsgBox s
End Sub

@vladvolvo · 26.10.2014, 10:46 **[ТС]**

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 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. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@vladvolvo 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 3

	Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике 26.10.2014, 00:07. Показов 1667. Ответов 2 Метки нет (Все метки) Друзья,помогите пожалуйста с этими 4 задачками.в школе был паскаль,а в универе бэйсик и нефига его не понимаю. вот условия: Задача 1. Вводится последовательность из п треугольников, заданных длинами сторон. Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике. В другое окно списка вывес информацию о тройках отрезков, из которых нельзя построить треугольник, или сообщение, если таких отрезков нет. 0

@vladvolvo 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 3
	26.10.2014, 10:46 [ТС]
	Спасибо! 0

Вывести все элемен последовательности, располагая на каждой строке информацию об одном треугольнике

Решение