Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB] Светлое будущее 
:(
    Опции темы
Hates
Дата 25.10.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Требуется определить не только название введенного с клавиатуры года, но и год наступления "светлого будущего", до которого вы, безусловно, доживете! Делаем это поэтапно. Приведу примерный словесный алгоритм. После введения исходного четырехзначного года с клавиатуры вам необходимо выделить составляющие его цифры и записать их в переменные А1, А2, АЗ и А4. (Если в номере года есть нули, то в соответствующие переменные записать 4.) Затем необходимо взять от них синусы по модулю. Из полученных значений вылепить по две цифры после запятой и сложить их. Если сумма больше либо равна 10, то сложить еще раз. Должно получиться 4 цифры, из которых надо составить четырехзначное число. Это и будет номер года наступления светлого будущего. Осталось определить его название по восточному календарю и вывести результаты на экран. Для проверки: при исходном годе 1986 годом светлого будущего станет 3589.

Помогите узнать будущее smile 
PM MAIL   Вверх
kapbepucm
Дата 27.10.2008, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Думаю, смог бы помочь, только не знаю, как выполнить эту операцию
Цитата(Hates @  25.10.2008,  17:00 Найти цитируемый пост)
взять от них синусы по модулю




--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Hates
Дата 29.10.2008, 23:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Получаеться что это задание безнадёжно? smile 
PM MAIL   Вверх
kapbepucm
Дата 30.10.2008, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Hates,
Цитата(Hates @  25.10.2008,  17:00 Найти цитируемый пост)
взять от них синусы по модулю
А как эта операция происходит на "бумаге"?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Rodman
Дата 30.10.2008, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman		Модератор: Название темы должно отражать ее суть!



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Hates
Дата 30.10.2008, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Я думал, над этим, но в голову ничего конкретного не пришло smile 
PM MAIL   Вверх
kapbepucm
Дата 31.10.2008, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Rodman, разве название не означает "сделайте на VB светлое будущее"?
Hates, я тут методом тыка определил, что значения углов даются в радианах. По краиней мере из 1986 получается 3589. Метод подойдёт?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
kapbepucm
Дата 31.10.2008, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Если да, то код может выглядеть так:
Код
Sub test()
  Dim MyDate As Long
  Dim A1 As String, A2 As String, A3 As String, A4 As String
  On Error GoTo ErrorLabel
  Do
    MyDate = CLng(InputBox("Введите исходный год", , "1986"))
  Loop Until (MyDate > 0) And (MyDate < 9999)
  On Error GoTo 0
  A1 = Mid(Right("0000" & CStr(MyDate), 4), 1, 1)
  A2 = Mid(Right("0000" & CStr(MyDate), 4), 2, 1)
  A3 = Mid(Right("0000" & CStr(MyDate), 4), 3, 1)
  A4 = Mid(Right("0000" & CStr(MyDate), 4), 4, 1)
  If A1 = "0" Then A1 = "4"
  If A2 = "0" Then A1 = "4"
  If A3 = "0" Then A1 = "4"
  If A4 = "0" Then A1 = "4"
  A1 = Right(CStr(Fix(Sin(CLng(A1)) * 100)), 2)
  A2 = Right(CStr(Fix(Sin(CLng(A2)) * 100)), 2)
  A3 = Right(CStr(Fix(Sin(CLng(A3)) * 100)), 2)
  A4 = Right(CStr(Fix(Sin(CLng(A4)) * 100)), 2)
  Do Until Len(A1) = 1
    A1 = CStr(CLng(Left(A1, 1)) + CLng(Right(A1, 1)))
  Loop
  Do Until Len(A2) = 1
    A2 = CStr(CLng(Left(A2, 1)) + CLng(Right(A2, 1)))
  Loop
  Do Until Len(A3) = 1
    A3 = CStr(CLng(Left(A3, 1)) + CLng(Right(A3, 1)))
  Loop
  Do Until Len(A4) = 1
    A4 = CStr(CLng(Left(A4, 1)) + CLng(Right(A4, 1)))
  Loop
  MsgBox "Год светлого будущего: " & A1 & A2 & A3 & A4
ExitLabel:
  Exit Sub
ErrorLabel:
  If Err.Number = 13 Then Resume Else Resume ExitLabel
End Sub


Добавлено через 2 минуты и 36 секунд
Цитата(Hates @  25.10.2008,  17:00 Найти цитируемый пост)
Осталось определить его название по восточному календарю




--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Hates
Дата 31.10.2008, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
kapbepucm, метод конечно интересный но вряд ли подойдёт smile 
PM MAIL   Вверх
kapbepucm
Дата 31.10.2008, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 6
Всего: 12
Почему? Результат ведь правильно высчитывает. smile


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0770 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.