IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Вывести по заданному трехзначному числу словесную за¬пись
maddan
сообщение 9.05.2007 10:59
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


 Вывести по заданному трехзначному числу словесную за¬пись соответствующего ему количественного числительно¬го. Например, если задано число 311, то программа должна
вывести сообщение ТРИСТА ОДИННАДЦАТЬ.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
compiler
сообщение 9.05.2007 11:08
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


В чем проблема?
отделяешь первую цифру(сотни), в case-е обрабатываешь и выводишь сотни в словах, повторяешь так с десятками и единицами...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
maddan
сообщение 9.05.2007 11:14
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Цитата(compiler @ 9.05.2007 11:08) *

В чем проблема?
отделяешь первую цифру(сотни), в case-е обрабатываешь и выводишь сотни в словах, повторяешь так с десятками и единицами...

Напиши плиз примерно как вывести в case???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 9.05.2007 11:17
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Задача решалась (я лично выкладывал решение и не только), пользуйся поиском.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
compiler
сообщение 9.05.2007 11:19
Сообщение #5


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(maddan @ 9.05.2007 11:14) *
Напиши плиз примерно как вывести в case???

Пример со справки TP7
Case Ch Of
'A'..'Z', 'a'..'z' : WriteLn('буква ');
'0'..'9' : WriteLn('цифра ');
'+', '-', '*', '/' : WriteLn('оператор');
Else WriteLn('Специальный символ')
End;



--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
maddan
сообщение 9.05.2007 11:46
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Цитата(compiler @ 9.05.2007 11:08) *

В чем проблема?
отделяешь первую цифру(сотни), в case-е обрабатываешь и выводишь сотни в словах, повторяешь так с десятками и единицами...

А как их отделить???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
maddan
сообщение 9.05.2007 12:15
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Цитата(klem4 @ 9.05.2007 11:17) *

Задача решалась (я лично выкладывал решение и не только), пользуйся поиском.

Плиз кинь ссылку я не могу ее найти
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 9.05.2007 12:59
Сообщение #8


Гость






цифры
или
Задача на строки
 К началу страницы 
+ Ответить 
maddan
сообщение 9.05.2007 13:30
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


СПАИБО БОЛЬШОЕ
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 19.05.2007 13:14
Сообщение #10


Гость







спасибо! у мня была аналогичная задача.
Только терь препод требует чтоб я сделала эту жу задачу с помощь строк PChar(а лекций по этому не было ((( говорит пользуйся методичками а там ничего не понятно)
 К началу страницы 
+ Ответить 
Гость
сообщение 19.05.2007 15:09
Сообщение #11


Гость






а можно всетаки выложить чтоб из чисел в слова а не наоборот и не в С++(ибо вообще не соображаем в нем(()
 К началу страницы 
+ Ответить 
volvo
сообщение 19.05.2007 15:29
Сообщение #12


Гость






Скачай Drkb
и зайди в "Язык программирования Дельфи" -> "Работа с числами" -> "Число русской строкой", там приведена программа на Паскале...
 К началу страницы 
+ Ответить 
Гость
сообщение 20.05.2007 9:46
Сообщение #13


Гость






Спасибо крнечно, но про PChar там ничего не написано....(ибо как я знаю вроде он только паскалевсий а в дельфи он уже сразу идет)
 К началу страницы 
+ Ответить 
Гость
сообщение 20.05.2007 10:26
Сообщение #14


Гость






.... И там ОЧЕНЬ сложно (всеже дельфи нас не учат)..(( Можете хотябы на примере первого десятка показать! Пожайлуста!!!!
 К началу страницы 
+ Ответить 
Гость
сообщение 20.05.2007 18:35
Сообщение #15


Гость






Пожайлуста помогите
 К началу страницы 
+ Ответить 
Jagguar
сообщение 20.05.2007 20:39
Сообщение #16





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Vasia

Репутация: -  0  +


Прошу Еще раз!( Просто срочно очень нада... сам так и не разобрался mega_chok.gif wacko.gif (((( В Drkb приведен пример на Дельфи и немного другого типа.... ПОмогите пожайлуста(!) хотябы с первыми числами на ПАСкал!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Jagguar
сообщение 23.05.2007 17:24
Сообщение #17





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Vasia

Репутация: -  0  +


!help.gif !help.gif !help.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Jagguar
сообщение 23.05.2007 22:27
Сообщение #18





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Vasia

Репутация: -  0  +


Ээээ ни кто не знает чтоли?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 0:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"