Вычислить радиус круга, равновеликого квадрату с заданной длиной стороны

@Ivan) · Регистрация: 05.01.2012

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

Помогите пожалуйста решить задачки по Visual Basic!)

1. Вычислить радиус круга, равновеликого квадрату с заданной длиной стороны.
2. Вычислить массу прямого цилиндра по заданному радиусу оснований, высоте и плотности (размерности исходных параметров выбрать по своему усмотрению).
3. Вычислить длину основания равнобедренного треугольника по заданной боковой стороне и уг¬лу при вершине.
4. Вычислить время свободного падения тела, отпу¬щенного с заданной высоты от поверхности земли (сопротивлением воздуха, пренебречь).
5. Рассчитать длину стороны, квадрата, периметр ко¬торого равен длине окружности заданного радиу¬са.
6. Рассчитать радиус окружности, длина которой равна периметру квадрата с заданной длиной сто¬роны
8. Создать массив и ввести в него автоматически первые 37 членов геометрической прогрессии с заданным первым членом и знаменателем.
9. Сложить почленно два заданных массива, помес¬тив результат в третий массив.

10. Определить, является ли текущий день выходным или рабочим.
11. Создать массив и обеспечить ввод в него значений посредством окна ввода (InputBox), предотвратив сбой программы, связанный с работой этого оператора.

Помогите решить пожалуйста)

@gaw · 05.01.2012, 19:57

охотно, только уточните что помочь

@Ivan) · 05.01.2012, 20:00 **[ТС]**

Нескромно говоря, решить.

@Linoge · 05.01.2012, 20:03

А где ваши наработки? С чем затруднение?
Большая часть заданий элементарна.

Интерес вызывает лишь 10 задание:
Добавим компонент Microsoft Windows Common Control-2 6.0,
в нем есть элементы DTPicker, разместим его на форме

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Label1 = IIf(DTPicker1.DayOfWeek = 7 Or _
DTPicker1.DayOfWeek = 1, "Выходной", "Рабочий")
If DTPicker1.Month = 1 And (DTPicker1.Day < 6 Or DTPicker1.Day = 7) Or _
DTPicker1.Month = 2 And DTPicker1.Day = 23 Or _
DTPicker1.Month = 3 And DTPicker1.Day = 8 Or _
DTPicker1.Month = 5 And (DTPicker1.Day = 1 Or DTPicker1.Day = 9) Or _
DTPicker1.Month = 6 And DTPicker1.Day = 12 Or _
DTPicker1.Month = 11 And DTPicker1.Day = 4 _
Then Label1 = "Выходной"
End Sub

Без учета переноса праздников)

Если нужен любой другой день то помещаем код в Private Sub DTPicker1_Change()

@gaw · 05.01.2012, 20:04

ааа, ну и, стесняюсь спросить, наверное на завтра

@Ivan) · 05.01.2012, 20:07 **[ТС]**

Так и есть, на завтра)

@gaw · 05.01.2012, 20:12

Не по теме:

Сообщение от Ivan)

Так и есть, на завтра)

:good:

@Ivan) · 05.01.2012, 20:33 **[ТС]**

Знаю, жесть)

Добавлено через 3 минуты
последние два сделал.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Ivan) 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 4

	Вычислить радиус круга, равновеликого квадрату с заданной длиной стороны 05.01.2012, 18:50. Показов 1517. Ответов 7 Метки нет (Все метки) Помогите пожалуйста решить задачки по Visual Basic!) 1. Вычислить радиус круга, равновеликого квадрату с заданной длиной стороны. 2. Вычислить массу прямого цилиндра по заданному радиусу оснований, высоте и плотности (размерности исходных параметров выбрать по своему усмотрению). 3. Вычислить длину основания равнобедренного треугольника по заданной боковой стороне и уг¬лу при вершине. 4. Вычислить время свободного падения тела, отпу¬щенного с заданной высоты от поверхности земли (сопротивлением воздуха, пренебречь). 5. Рассчитать длину стороны, квадрата, периметр ко¬торого равен длине окружности заданного радиу¬са. 6. Рассчитать радиус окружности, длина которой равна периметру квадрата с заданной длиной сто¬роны 8. Создать массив и ввести в него автоматически первые 37 членов геометрической прогрессии с заданным первым членом и знаменателем. 9. Сложить почленно два заданных массива, помес¬тив результат в третий массив. 10. Определить, является ли текущий день выходным или рабочим. 11. Создать массив и обеспечить ввод в него значений посредством окна ввода (InputBox), предотвратив сбой программы, связанный с работой этого оператора. Помогите решить пожалуйста) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	05.01.2012, 19:57
	охотно, только уточните что помочь 1

@Ivan) 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 4
	05.01.2012, 20:00 [ТС]
	Нескромно говоря, решить. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	05.01.2012, 20:04
	ааа, ну и, стесняюсь спросить, наверное на завтра 0

@Ivan) 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 4
	05.01.2012, 20:07 [ТС]
	Так и есть, на завтра) 0

@Ivan) 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 4
	05.01.2012, 20:33 [ТС]
	Знаю, жесть) Добавлено через 3 минуты последние два сделал. 0