Вывести значения элементов данной окружности

@Temka · Регистрация: 02.10.2014

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

Помогите написать программу!
(с помощью оператора Case)
Элементы окружности пронумерованы следующим образом:1-радиус R, 2-диаметр D=2*R, 3-длина $https://www.cyberforum.ru/cgi-bin/latex.cgi?L=2*\Pi *R$ , 4-площадь круга $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\Pi*R[SUP][/SUP]$ (R-в квадрате). Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\Pi$ использовать 3,14.
заранее большое спасибо!!

SoftIce · 13.06.2012, 23:20

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
'   Элементы окружности пронумерованы следующим образом:
'   1-радиус R, 2-диаметр D=2*R, 3-длина , 4-площадь круга
'   Дан номер одного из этих элементов и его значение.
'   Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения использовать 3,14.
Dim Number As Integer, Value As Double
Dim S As Double, D As Double, R As Double, L As Double
Const Pi = 3.14
Number = InputBox("Введите номер элемента", , 4)
Value = InputBox("Введите значение элемента", , 10)
   Select Case Number
        Case 1: R = Value: D = R * 2: L = 2 * Pi * R: S = Pi * (R ^ 2)
        Case 2: D = Value: R = D / 2: L = Pi * D: S = Pi * ((D / 2) ^ 2)
        Case 3: L = Value: R = L / 2 * Pi: D = L / Pi: S = Pi * (((L / Pi) / 2) ^ 2)
        Case 4: S = Value: R = Sqr(S / Pi): D = (Sqr(S / Pi)) * 2: L = ((Sqr(S / Pi)) * 2) * Pi
   End Select
   MsgBox "R = " & R & vbCrLf & _
          "D = " & D & vbCrLf & _
          "L = " & L & vbCrLf & _
          "S = " & S
End Sub

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Temka 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 2

	Вывести значения элементов данной окружности 13.06.2012, 20:32. Показов 1724. Ответов 1 Метки нет (Все метки) Помогите написать программу! (с помощью оператора Case) Элементы окружности пронумерованы следующим образом:1-радиус R, 2-диаметр D=2R, 3-длина $https://www.cyberforum.ru/cgi-bin/latex.cgi?L=2\Pi R$ , 4-площадь круга $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\PiR[SUP][/SUP]$ (R-в квадрате). Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\Pi$ использовать 3,14. заранее большое спасибо!! 0