нужны задачи в бейсик

11.06.2013, 16:33. **Показов** 1390. **Ответов** 1

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

@proft · 11.06.2013, 16:53

На форме кнопка:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim p As Double
Dim k_1 As Double
Dim k_2 As Double
Dim z As Double
Cls
p = InputBox("Ââåäèòå ïëîùàäü òåððèòîðèè")
k_1 = InputBox("Ââåäèòå ê-ò õàðàêòåðèçóþùèé êîíô-èþ çåìåë-é ïëîùàäè")
k_2 = InputBox("Ââåäèòå ê-ò ó÷èòâàþùèé ðàçíîñòü ïóòåé")
z = (22260 / p) + 1.48 * k_1 * k_2 * ((p) ^ 1.2) + 67.4
Print Round(z, 3)
End Sub

Добавлено через 7 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim a As Double
Dim r As Double
Dim b As Double
Dim rad As Double
Cls
rad = 180 / 3.1416
For i = 0 To 90 Step 5
r = Sin((i + 6) / rad) + (1 - Tan((45 - i / 2) / rad))
Print Round(r, 3)
Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

НастяКирилл

	нужны задачи в бейсик 11.06.2013, 16:33. Показов 1390. Ответов 1 Метки нет (Все метки)

нужны задачи в бейсик

Решение