Составить функцию, записывающую прописью целое число (0-99)

@Fаith · Регистрация: 17.05.2011

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

Для обработки числа большего 19-ти следует выделить старший разряд (с помощью оператора деления нацело на 10) и младший разряд (с помощью оператора вычисления остатка от деления нацело на 10). Для каждого разряда отдельно сформировать текстовое представление (с помощью команд Select Case) и затем соединить их в одно строковое выражение (с помощью оператора конкатенации).
Начало функции я составила:

Function Число(N)
If N<0 Or N>99 Then Число = "Неверное число": Exit Function
If N-Int(N)<>0 Then Число = "Неверное число": Exit Function
Select Case N
Case 0: Число = "ноль"
Case 1: Число = "один"
...ну и так до 19, а что дальше делать не знаю...

Помогите пожалуйста!!! Мы уже месяц сидим над этой лабой всей группой, если не сдадим - к экзамену не допустят

( Я уже пол дня курю ваш поиск - находилось подобное, но для других языков...

@l2ded · 17.05.2011, 16:46

Сообщение от Fаith

Select Case N
Case 0: Число = "ноль"
Case 1: Число = "один"
...ну и так до 19, а что дальше делать не знаю...

Помогите пожалуйста!!! Мы уже месяц сидим над этой лабой всей группой, если не сдадим - к экзамену не допустят

( Я уже пол дня курю ваш поиск - находилось подобное, но для других языков...

Я думаю надо if n>0 and n<=19 then и твоя борода else и:
Дальше Сase только до 10!
И с помощью простого символа & собрать это.
Оператора конкатенации - ахха, давно я такого не слышал)))

@Fаith · 17.05.2011, 17:00 **[ТС]**

Да прост у нас методичка за 99 год)) А как разряды выделить не подскажешь?

@l2ded · 17.05.2011, 17:03

Сообщение от Fаith

Да прост у нас методичка за 99 год)) А как разряды выделить не подскажешь?

ну написано ведь:
a=n\10 - старший разряд (с помощью оператора деления нацело на 10)
b=n mod 10 - младший разряд (с помощью оператора вычисления остатка от деления нацело на 10)
Почему у меня таких лаб никогда не было?!

@Fаith · 17.05.2011, 17:47 **[ТС]**

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

a=n\10 - старший разряд (с помощью оператора деления нацело на 10)
b=n mod 10 - младший разряд (с помощью оператора вычисления остатка от деления нацело на 10)

Получается в начале функции надо 3 переменных объявлять (N,A,В)???
Всё вроде разжевали и всё равно не доходит! Обделил господь мозгами, что поделать...кто-нибудь составьте мне эту функцию, а то я чувствую до утра провожусь(((((((

@l2ded · 17.05.2011, 18:21

Сообщение от Fаith

Получается в начале функции надо 3 переменных объявлять (N,A,В)???
Всё вроде разжевали и всё равно не доходит! Обделил господь мозгами, что поделать...кто-нибудь составьте мне эту функцию, а то я чувствую до утра провожусь(((((((

Сори, но в автобусе 3G как-то люди не оценивают.
Боюсь Нэтбук разобьют.

@Fаith · 17.05.2011, 18:35 **[ТС]**

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

Сори, но в автобусе 3G как-то люди не оценивают.
Боюсь Нэтбук разобьют.

Да лан, забейте...

@Vlanib · 18.05.2011, 07:28

Visual Basic

Sub Tst()
Dim i As Integer
For i = -1 To 100
Debug.Print NumToStr(i)
Next
End Sub
 
Function NumToStr(ByVal iNumber As Integer) As String
Dim A1, A2, A3, sStr As String
A1 = Array("äåñÿòü", "äâàäöàòü", "òðèäöàòü", "ñîðîê", "ïÿòüäåñÿò", "øåñòüäåñÿò", "ñåìüäåñÿò", "âîñåìüäåñÿò", "äåâÿíîñòî")
A2 = Array("îäèííàäöàòü", "äâåíàäöàòü", "òðèíàäöàòü", "÷åòûðíàäöàòü", "ïÿòíàäöàòü", "øåñòíàäöàòü", "ñåìíàäöàòü", "âîñåìíàäöàòü", "äåâÿòíàäöàòü")
A3 = Array("íîëü", "îäèí", "äâà", "òðè", "÷åòûðå", "ïÿòü", "øåñòü", "ñåìü", "âîñåìü", "äåâÿòü")
Select Case iNumber
    Case Is < 0, Is > 99:   NumToStr = "OVF": Exit Function
    Case 0:                 NumToStr = A3(0): Exit Function
    Case 10:                NumToStr = A1(0): Exit Function
    Case 11 To 19:          NumToStr = A2(iNumber - 11): Exit Function
    Case Is >= 20
        sStr = A1(iNumber \ 10 - 1) & " "
        iNumber = iNumber Mod 10
End Select
Select Case iNumber
    Case 1, 2:    sStr = sStr & A3(iNumber)
    Case 3 To 9:  sStr = sStr & A3(iNumber)
End Select
NumToStr = sStr
End Function

@Fаith 2 / 2 / 0 Регистрация: 17.05.2011 Сообщений: 24
		1
	Составить функцию, записывающую прописью целое число (0-99) 17.05.2011, 16:29. Показов 3412. Ответов 7 Метки нет (Все метки) Для обработки числа большего 19-ти следует выделить старший разряд (с помощью оператора деления нацело на 10) и младший разряд (с помощью оператора вычисления остатка от деления нацело на 10). Для каждого разряда отдельно сформировать текстовое представление (с помощью команд Select Case) и затем соединить их в одно строковое выражение (с помощью оператора конкатенации). Начало функции я составила: Function Число(N) If N<0 Or N>99 Then Число = "Неверное число": Exit Function If N-Int(N)<>0 Then Число = "Неверное число": Exit Function Select Case N Case 0: Число = "ноль" Case 1: Число = "один" ...ну и так до 19, а что дальше делать не знаю... Помогите пожалуйста!!! Мы уже месяц сидим над этой лабой всей группой, если не сдадим - к экзамену не допустят( Я уже пол дня курю ваш поиск - находилось подобное, но для других языков... 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	17.05.2011, 16:46	2
	Сообщение от Fаith Select Case N Case 0: Число = "ноль" Case 1: Число = "один" ...ну и так до 19, а что дальше делать не знаю... Помогите пожалуйста!!! Мы уже месяц сидим над этой лабой всей группой, если не сдадим - к экзамену не допустят( Я уже пол дня курю ваш поиск - находилось подобное, но для других языков... Я думаю надо if n>0 and n<=19 then и твоя борода else и: Дальше Сase только до 10! И с помощью простого символа & собрать это. Оператора конкатенации - ахха, давно я такого не слышал))) 0

@Fаith 2 / 2 / 0 Регистрация: 17.05.2011 Сообщений: 24
	17.05.2011, 17:00 [ТС]	3
	Да прост у нас методичка за 99 год)) А как разряды выделить не подскажешь? 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	17.05.2011, 17:03	4
	Сообщение от Fаith Да прост у нас методичка за 99 год)) А как разряды выделить не подскажешь? ну написано ведь: a=n\10 - старший разряд (с помощью оператора деления нацело на 10) b=n mod 10 - младший разряд (с помощью оператора вычисления остатка от деления нацело на 10) Почему у меня таких лаб никогда не было?! 0

@Fаith 2 / 2 / 0 Регистрация: 17.05.2011 Сообщений: 24
	17.05.2011, 17:47 [ТС]	5
	Сообщение от l2ded a=n\10 - старший разряд (с помощью оператора деления нацело на 10) b=n mod 10 - младший разряд (с помощью оператора вычисления остатка от деления нацело на 10) Получается в начале функции надо 3 переменных объявлять (N,A,В)??? Всё вроде разжевали и всё равно не доходит! Обделил господь мозгами, что поделать...кто-нибудь составьте мне эту функцию, а то я чувствую до утра провожусь((((((( 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	17.05.2011, 18:21	6
	Сообщение от Fаith Получается в начале функции надо 3 переменных объявлять (N,A,В)??? Всё вроде разжевали и всё равно не доходит! Обделил господь мозгами, что поделать...кто-нибудь составьте мне эту функцию, а то я чувствую до утра провожусь((((((( Сори, но в автобусе 3G как-то люди не оценивают. Боюсь Нэтбук разобьют. 0

@Fаith 2 / 2 / 0 Регистрация: 17.05.2011 Сообщений: 24
	17.05.2011, 18:35 [ТС]	7
	Сообщение от l2ded Сори, но в автобусе 3G как-то люди не оценивают. Боюсь Нэтбук разобьют. Да лан, забейте... 0

	18.05.2011, 07:28