Просклонять слово "Рублей" в зависимости от суммы

@the evil Fox_1 · Регистрация: 19.12.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите, пожалуйста, решить задачку.
Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например, 12 рублей, 21 рубль и т. д.

@The trick · 19.12.2013, 18:46

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub Form_Load()
    Dim Z As String, V As Long, Q As Long
    Z = InputBox("Ââåäèòå öåíó")
    If IsNumeric(Z) Then
        V = Val(Z)
        Q = V Mod 100: If Q > 20 Then Q = Q Mod 10
        Z = CStr(V) & " ðóáë" & Switch(Q = 0 Or Q > 4, "åé", Q < 5 And Q > 1, "ÿ", True, "ü")
        MsgBox Z
    End If
End Sub

@the evil Fox_1 · 19.12.2013, 19:02 **[ТС]**

Большущее спасибо

@Gregory007 · 15.10.2014, 13:53

Ребят, несколько ошибок в этой задачи, одну только не могу убрать:

Ошибка 1 "Switch" является типом и не может использоваться как выражение.

Как можно сие исправить?

@The trick · 15.10.2014, 13:54

Сообщение от Gregory007

Как можно сие исправить?

Правильно выбрать ЯП.

@Gregory007 · 15.10.2014, 13:58

Сообщение от The trick

Правильно выбрать ЯП.

А если серьезно? Switch вроде в VB нет, но и на что заменить его, я уже и не знаю...

@The trick · 15.10.2014, 13:59

Сообщение от Gregory007

А если серьезно?

Я серьезно. Тема для VB6.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@the evil Fox_1 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 6

	Просклонять слово "Рублей" в зависимости от суммы 19.12.2013, 15:35. Показов 1906. Ответов 6 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста, решить задачку. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например, 12 рублей, 21 рубль и т. д. 0

@the evil Fox_1 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 6
	19.12.2013, 19:02 [ТС]
	Большущее спасибо 0

Просклонять слово "Рублей" в зависимости от суммы

Решение