нужна помощь - Форум
Пятница, 09.12.2016, 06:50
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Другие задания » нужна помощь
нужна помощь
sachokДата: Пятница, 25.03.2011, 18:01 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
Помогите пожалуйста с задачами на VBA для Excel, Word
1) Земля имеет форму шара с радиусом 6400 км составить программу вычисления площади поверхности земли и длины экватора.
2)можно ли считать человека совершенно летним в апреле M-го года если он родился в августе N-го года.
3)написать программу определения значения первого отриццательного числа последовательности A=sin(i/100),i=1,2,3....
4)наити сумму всех нечётных элементов одномерного массива.
5)дан числовой массив А(4,4). заполнить числовой массив S элементами которого являются суммы элементов записаных в строках массива А.
6)составить программу подсчёта количества букв "м" и "н" в тексте.
7)написать программу которая в выделенном тексте меняет все буквы"а" на букву заданную с помощью пользовательской формы


Сообщение отредактировал sachok - Пятница, 25.03.2011, 18:04
 
boboДата: Пятница, 01.04.2011, 08:19 | Сообщение # 2
Генерал-майор
Группа: Заблокированные
Сообщений: 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

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

 
sachokДата: Понедельник, 11.04.2011, 22:59 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
нужно
 
boboДата: Вторник, 12.04.2011, 09:46 | Сообщение # 4
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
если просто помочь (исправить ошибки) тогда ладно, а если с нуля писать тебе придется платить. babamurad2010@yandex.ru

Добавлено (12.04.2011, 09:46)
---------------------------------------------
или ждать!

 
Форум » Решение задач по информатике » Другие задания » нужна помощь
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016