Задачи в бейсике VBA - Форум
Понедельник, 05.12.2016, 07:28
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Другие задания » Задачи в бейсике VBA
Задачи в бейсике VBA
СКАЗКАДата: Суббота, 26.02.2011, 14:49 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Нужно решить 2 и 3 задачи и по бейсику.во вложении
Первую решила, но не знаю, верно ли, проверьте пожалуйста!

Sub Задача_1()
z = (0.3 * Sin(x) ^ 2) / (10 + Sin((y) ^ 2) ^ 2)
x = 25.4
y = 1.3 * 10 ^ 5
Debug.Print z, x, y
For x = 0.1 To 1 Step 0.1
z = z + 0.1
Debug.Print z
Next
End Sub

Ответ:
0 25.4 130000
0,1
0,2
0,3
0,4
0,5
0,6
0,7
0,8
0,9
1

 
flash_kpiДата: Суббота, 26.02.2011, 16:11 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 118
[ 0 ]
Статус: Offline
Пишите, выполню
icq: 588002847
email: flash_1989@ukr.net
 
boboДата: Понедельник, 28.02.2011, 06:28 | Сообщение # 3
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
значение z нужно присваивать после x,y. сначала x,y писать,а потом уже z
а вообще, как можно проверить не зная условие задачи?
 
sachokДата: Пятница, 25.03.2011, 18:00 | Сообщение # 4
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Помогите пожалуйста с задачами...
1) Земля имеет форму шара с радиусом 6400 км составить программу вычисления площади поверхности земли и длины экватора.
2)можно ли считать человека совершенно летним в апреле M-го года если он родился в августе N-го года.
3)написать программу определения значения первого отриццательного числа последовательности A=sin(i/100),i=1,2,3....
4)наити сумму всех нечётных элементов одномерного массива.
5)дан числовой массив А(4,4). заполнить числовой массив S элементами которого являются суммы элементов записаных в строках массива А.
6)составить программу подсчёта количества букв "м" и "н" в тексте.
7)написать программу которая в выделенном тексте меняет все буквы"а" на букву заданную с помощью пользовательской формы
 
boboДата: Пятница, 01.04.2011, 08:17 | Сообщение # 5
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
Sub zemlya()
Let R = 6400
Let pi = 3.14
S = 4 * pi * R ^ 3
L = 2 * pi * R
MsgBox S 'площадь поверхности земли
MsgBox L 'длина экватора
End Sub

Sub moi_goda()
Dim dr As Date
dr = InputBox("Введите дату своего рождения", "Информатика")
seg = Date
wozrast = seg - dr
'6570 количество прожитых дней совершеннолетнего чел.
If wozrast >= 6570 Then MsgBox "Вы совершеннолетний!" Else MsgBox "Вы пока не совершеннолетний!"
End Sub

дальше нужно?

 
NemisoffДата: Четверг, 15.09.2011, 16:18 | Сообщение # 6
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите пожалуйста решить задачу в VBA.. Надежда на вас..
Оплата услуг Internet осуществляется по трём тарифам: дневному, вечернему и ночному. Ночной тариф определяется временем суток от 0 до 5 часов; дневной от 8 до 18 часов. Тарифы разные, их значения известны. Услугами Internet за сутки воспользовались N клиентов. Время использования, а следовательно вид тарифа и продолжительность пользования каждого клиента известны. Определите среднюю стоимость единицы времени пользования Internet.
 
anton46Дата: Среда, 09.11.2011, 21:22 | Сообщение # 7
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Умоляю решите пожалуйста задачу, вопрос жизни и смерти из группы ни кто решить ни может!!

14. Заданы стороны квадрата, правильного треугольника и ра-диус круга. Вывести названия тел в порядке возрастания площадей, периметров и их отношения
 
Форум » Решение задач по информатике » Другие задания » Задачи в бейсике VBA
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016