Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 04.12.2013
Сообщений: 36

Описать процедуру вычисляющую степени чисел

08.12.2013, 20:20. Показов 1459. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Описать процедуру PowerA234(A,B,C,D),вычисляющую вторую,третью и четвертую степень числа А и возвращающую эти степени соответственно в переменных B,C и D. (А-входной, B,C,D - выходные параметры;все параметры вещественные). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.12.2013, 20:20
Ответы с готовыми решениями:

Описать процедуру Power234 (A, B, C, D), вычисляющую вторую, третью и четвертая степени числа A
Тема: Процедуры и функции. Процедуры с числовыми параметрами. Помогите пожалуйста. Proc2. Описать процедуру Power234 (A, B, C,...

Описать процедуру Power234 (A, B, C, D), вычисляющую вторую, третью и четвертая степени числа A
Описать процедуру Power234 (A, B, C, D), вычисляющую вторую, третью и четвертая степени числа A и возвращает эти степени соответственно в...

Описать процедуру, вычисляющую вторую, третью и четвертую степень числа А и возвращающую эти степени
Описать процедуру Power A234 (A,B,C,D) вычисляющую вторую,третью и четвертую степень числа А и возвращающую эти степени соответственно в...

1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
08.12.2013, 21:16
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
    Dim A As Double, B As Double, C As Double, D As Double, i As Integer
    Randomize
    For i = 1 To 5
       A = InputBox("A = ", , Round(Rnd * 20 + 10, 1))
       Call PowerA234(A, B, C, D)
       MsgBox "A = " & A & vbCrLf & _
              "B = " & B & vbCrLf & _
              "C = " & C & vbCrLf & _
              "D = " & D
    Next i
End Sub
 
Sub PowerA234(ByVal A As Double, ByRef B As Double, ByRef C As Double, ByRef D As Double)
    B = A * A
    C = B * A
    D = C * A
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.12.2013, 21:16
Помогаю со студенческими работами здесь

Описать процедуру, вычисляющую среднее арифметическое двух положительных чисел
Ребят нужна помощь, нужно описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое AMean = (X + Y)/2 двух положительных...

Описать функцию, вычисляющую 2,3,4 степени числа A и возвращающую эти степени соответственно в переменных B,C,D
Описать функцию, вычисляющую 2,3,4 степени числа A и возвращающую эти степени соответственно в переменных B,C,D. С помощью этой функции...

Описать функцию, вычисляющую 2,3,4 степени числа A и возвращающую эти степени соответственно в переменных B,C,D
Описать функцию, вычисляющую 2,3,4 степени числа A и возвращающую эти степени соответственно в переменных B,C,D. C помощью этой функции...

Описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое двух положительных чисел
Описать процедуру Mean(X, Y, AMean), вычисляющую среднее арифметическое AMean = (X + Y)/2 двух положительных чисел X и Y (X и Y — входные,...

Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных
Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru