Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Машуль
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 26
1

Определить название месяца выбранного дня

26.09.2012, 17:50. Просмотров 731. Ответов 1
Метки нет (Все метки)

Доброе время суток помогите решить задачки пожалуйста.

1. По названию введенной физической величины, характеризующей движение тела (координата, скорость, ускорение, время, сила) вывести ее единицу измерения.

2. С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n >= 1). Определить название месяца этого дня.

3. Дано натуральное число, меньшее 1000. Выделить в нем разряды и дать словесное описание, согласовав окончания. (Например, 574 - пять сотен, семь десятков, четыре единицы; 29 - две десятки, девять единиц; 180 - одна сотня, восемь десятков)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2012, 17:50
Ответы с готовыми решениями:

Определение дня недели, первого числа месяца
Я придумал как определять дни недели текущего месяца, но вот к примеру как определить день недели...

Common dialog, как вывести только название выбранного файла?
когда я вывожу имя файла 'cdlg.filename' он мне дает полный путь и название файла, а как вывести...

Перевести номер месяца в его название
Народ помогите пожалуйста нужна программа в VB переводящая номер месяца в его название

Как введя номер месяца в году получить его название
Разработать форму, при помощи которой введя номер месяца в году, получается его название?

Определить название текущего месяца
Никак не могу разобраться как в VBA осуществить данную задачу:"С 1 января 1990 года по некоторый...

1
Joeymax
968 / 347 / 76
Регистрация: 31.03.2012
Сообщений: 931
03.10.2012, 11:17 2
Цитата Сообщение от Машуль Посмотреть сообщение
3. Дано натуральное число, меньшее 1000.
Машуль, вот на рабочий скрипт для обработки чисел до 9999. Удобнее всего запускать в консоли командой: cscript имя_файла_под_которым_сохранили_этот_пример_с расширением.vbs
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Explicit
 
Dim R, d, X
Dim s, n, res, i
 
R = array( _
      array("-", " тысяча", " тысячи", " тысяч"), _
      array("-", " сотня", " сотни", " сотен"), _
      array("+", " десяток", " десятка", " десятков"), _
      array("-", " единица", " единицы", " единиц"))
 
d = array("один","два","три","четыре","пять","шесть","семь","восемь","девять", "одна","две")
 
Do
  n = InputBox("Введите положительное число от 1 до 9999" & vbNewLine & _
    "Для завершения нажмите кнопку ""Ok""" & vbNewLine & _
    "или введите нецифровой символ")
  If Not IsNumeric(n) Then Exit Do
 
  s = CStr(n)
  res= ""
 
  i = 0                   ' индекс для первого измерения массива R
  If n <= 0 Or n > 9999 Then
    WScript.Echo "Введено недопустимое число"
  Else
    If n > 999 Then       ' четырехзначное число, индекс не меняем
    ElseIf n > 99 Then
      i = i + 1           ' трехзначное, пропустим нулевой элемент массива R - начнем с сотен
    ElseIf n > 9 Then
      i = i + 2           ' с десятков
    Else
      i = i + 3
    End If
 
    X = R(i)
 
    While Len(s) > 0
      X = R(i)
      n = CInt(left(s, 1))
      Select Case n
        Case 0                ' особый случай, ноль (сотен, десятков), удалим пробел добавленный оператором в строке 68
          If Right(res, 1) = " " Then res = Left(res, Len(res)-1)
        Case 1                ' для "1" - нужный род числительного
          If X(0) = "+" Then  ' плюс - ОН, в противном случае - ОНА
            res = res & d(n-1)
          Else
            res = res & d(9)
          End If
          res = res & X(1)
        Case 2,3,4
          If n = 2 Then     ' для "2" - аналогично "1"
            If X(0) = "+" Then
              res = res & d(n-1)
            Else
              res = res & d(10)
            End If
          Else
            res = res & d(n-1)
          End If
          res = res & X(2)
        Case Else
          res = res & d(n-1) & X(3)
      End Select
      i = i + 1
      s = Mid(s, 2)         ' отсечем обработанную цифру
      If Len(s) > 0 Then res = res & " "  ' еще цифры есть, добавим пробельчик чтобы не слипались остальные разряды
    Wend
    WScript.Echo res
  End If
Loop While IsNumeric(n)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2012, 11:17

Определить дату, название месяца, квартал, неделю года, день недели
Для заданной даты и определенного значения определить дату, название месяца, квартал, неделю года,...

Написать программу, которая по номеру месяца выдает название следующего за ним месяца
Хотел сделать что-то простое, но не понимаю почему выдаёт ошибку, с m Mod 13 работает, помогите...

Определить номер дня недели для K-го дня года
дни недели пронумерованы следующим образом:1-пониделник,2-вторник,...6-суббота,7-воскресенье. Дано...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru