Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [VB] Светлое будущее


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

Помогите узнать будущее smile 

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

Автор: Hates 29.10.2008, 23:43
Получаеться что это задание безнадёжно? smile 

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

Автор: Rodman 30.10.2008, 12:56

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

Автор: Hates 30.10.2008, 13:22
Я думал, над этим, но в голову ничего конкретного не пришло smile 

Автор: kapbepucm 31.10.2008, 09:42
Rodman, разве название не означает "сделайте на VB светлое будущее"?
Hates, я тут методом тыка определил, что значения углов даются в радианах. По краиней мере из 1986 получается 3589. Метод подойдёт?

Автор: kapbepucm 31.10.2008, 13:43
Если да, то код может выглядеть так:
Код
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 Найти цитируемый пост)
Осталось определить его название по восточному календарю

Автор: Hates 31.10.2008, 15:34
kapbepucm, метод конечно интересный но вряд ли подойдёт smile 

Автор: kapbepucm 31.10.2008, 17:39
Почему? Результат ведь правильно высчитывает. smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)