|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.04.2013, 07:44 | #11 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Виталий, спасибо Сохраню где-нить буду пользоваться Теперь по теме : Сразу химичить с числом - ужасно трудно.. и наверное даже не получится.. Поэтому читаем строку, и по 1-ой цифре загоняем в массив, запоминаем в N кол-во цифр. Теперь бежим с начала массива, и передаем в процедурку a[i], (N-i+1) и падеж. Так же у Вас будет 1 файлика. В нём : Код:
(Пишу утром, перед школой => могу ошибаться.. Если Вы дождетесь вечера, то в место слов может появиться код).. |
|
19.04.2013, 08:01 | #12 | |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Ну, Виталий, вероятнее всего, наскоро и не совсем удачно пытался перевести текст с украинского.
Вы тоже с Украины и не знакомы с тем, как по-русски пишутся числительные ("тоже" - это я не про Виталия, а про его программу) Цитата:
|
|
19.04.2013, 08:32 | #13 | |||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
Цитата:
I'm learning to live...
|
|||
19.04.2013, 13:30 | #14 |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
ТЗ, конечно, - закон, но, честно говоря, несколько удивлен: не могу понять, зачем понадобилось преобразование цифр в текст, если от результата не требуется грамматической точности.
Нет, действительно любопытно, где такое могло понадобиться. |
19.04.2013, 13:45 | #15 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
В торговых точках в качестве дополнительной информации о суммах и ценах. Бывает такое что в отчете та или иная сумма нечетко видна (причины разные), поэтому рядом пишут прописью. Соблюдать орфографию при этом - второстепенная функция.
I'm learning to live...
|
19.04.2013, 15:24 | #16 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Могу предложить еще вариант, тут правда русский и украинский, но тоже без склонений по падежам
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 19.04.2013 в 15:26. |
19.04.2013, 20:44 | #17 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
|
|
19.04.2013, 23:02 | #18 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Так-с..
Я тут по зарабатывал себе туннельный синдром.. Пока работает только для трехзначных чисел.. (мне не нравится.. но других идей нет..) См. вложение : |
20.04.2013, 18:02 | #19 | |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Цитата:
Я как-то даже не представлял себе, что пропись может понадобиться где либо кроме финансовых документов. Оказалось, жизнь намного разнообразнее - нужно просто увеличить избыточность ввиду низкого качество печатающих устройств. Аватар, прекрасная основа для переделки. Просто заменить 2 языка на 6 падежей. Последний раз редактировалось s-andriano; 20.04.2013 в 18:05. |
|
20.04.2013, 18:12 | #20 |
Пользователь
Регистрация: 18.04.2013
Сообщений: 13
|
Вот что у меня есть,но мне нужно сделать это с массивом как я понимаю и сделать во всех падежах,как мне объясняли то брать делить трехзначное число и выделять каждую часть,потом при сложении(чтобы сделать в падеже) нужно брать основания и окончания,например к 1:
один одного одному одного одним об одном здесь основание од и окончания -ин,-ному,-ному,-ного,-ним,-ном.. и я не знаю как мне правильно все это записать в программе!! сказали что мы записываем в виде массива основания и окончания!! а как сделать незнаю! program versiya1; uses crt; var x,y:integer; var sot,des,ed,n,p:integer; ipad,pad:char; s:string; begin textbackground(11); clrscr; gotoxy(35,7); textcolor(4); write('ТЕМА:'); gotoxy(18,8); textcolor(0); write('Программа записи количественного числа(до 1000)'); gotoxy(32,9); write('в заданном падеже'); gotoxy(10,24); textcolor(4); write('Для продолжения нажмите Enter'); readln; begin clrscr; repeat clrscr; gotoxy(32,9);textcolor(4);write('Вв едите число до 1000 '); repeat gotoxy(54,9); Readln(n); until (n>0)and(n<1000); gotoxy(32,10); write('Введите номер падежа(1..5) '); gotoxy(32,12); writeln('Именительный падеж......1'); gotoxy(32,13);writeln('Родительный падеж.......2'); gotoxy(32,14); writeln('Дательный падеж.........3'); gotoxy(32,15);writeln('Винительный падеж.......4'); gotoxy(32,16); writeln('Творительный падеж......5'); gotoxy(32,17); writeln('Предложный падеж........6'); gotoxy(32,28); gotoxy(32,19); readln(pad); sot:=n div 100; case sot of 0:s:=''; 1:s:='Сто '; 2:s:='Двести '; 3:s:='Триста '; 4:s:='Четыреста '; 5:s:='Пятьсот '; 6:s:='Шестьсот '; 7:s:='Семьсот '; 8:s:='Восемьсот '; 9:s:='Девятьсот '; end; sot:=n mod 100; if sot in [10..19] then case sot of 10:s:=s+'Десять '; 11:s:=s+'Одиннадцать '; 12:s:=s+'Двенадцать '; 13:s:=s+'Тринадцать '; 14:s:=s+'Четырнадцать '; 15:s:=s+'Пятнадцать '; 16:s:=s+'Шестнадцать '; 17:s:=s+'Семнадцать '; 18:s:=s+'Восемнадцать '; 19:s:=s+'Девятнадцать '; end else begin des:=sot div 10; case des of 2:s:=s+'Двадцать '; 3:s:=s+'Тридцать '; 4:s:=s+'Сорок '; 5:s:=s+'Пятьдесят '; 6:s:=s+'Шестьдесят '; 7:s:=s+'Семьдесят '; 8:s:=s+'Восемьдесят '; 9:s:=s+'Девяносто '; end; ed:=sot mod 10; case ed of 1:s:=s+'Один '; 2:s:=s+'Два '; 3:s:=s+'Три '; 4:s:=s+'Четыре '; 5:s:=s+'Пять '; 6:s:=s+'Шесть '; 7:s:=s+'Семь '; 8:s:=s+'Восемь '; 9:s:=s+'Девять '; end; end;{if закрыт} gotoxy(32,19);WriteLn (s); gotoxy(32,20); write('Продолжить ввод?Да-1 Нет-0 '); Readln(p); until p=0;end; end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа записи натурального числа прописью в заданном падеже | Hope1 | Помощь студентам | 0 | 06.04.2012 14:38 |
Вывести все совершенные числа в заданном интервале А — В | ксения777 | Помощь студентам | 5 | 31.10.2011 21:14 |
Найти все простые числа в заданном диапазоне | Nikita++ | Помощь студентам | 8 | 20.10.2010 20:05 |
в заданном массиве вывести все четные числа | leysan | Помощь студентам | 2 | 09.12.2009 22:08 |