Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.03.2010, 15:52   #1
StillersMom
Новичок
Джуниор
 
Регистрация: 14.03.2010
Сообщений: 1
Смущение программу,запрашивающая кол-во сотен, десятков и единиц вчисле и выводит его название

Program chislo;
Uses crt;
Var a,s,e,d,m: word;
Begin
Clrscr;
Writeln('Введите число: ');
Readln(a);
s:=a div 100;
Case s of
1: Write('Сто ');
2: Write('Двести ');
3: Write('Тристо ');
4: Write('Четыресто ');
5: Write('Пятьсот ');
6: Write('Шестьсот ');
7: Write('Семьсот ');
8: Write('Восемьсот ');
9: Write('Девятьсот ');
end;
d:=(a div 10) mod 10;
Case d of
2: Write('двадцать ');
3: Write('тридцать ');
4: Write('сорок ');
5: Write('пятьдесят ');
6: Write('шестьдесят ');
7: Write('семьдесят ');
8: Write('восемьдесят ');
9: Write('девяносто ');
else
begin
e:=a mod 10;
Case e of
1: Write('одинадцать');
2: Write('двенадцать');
3: Write('тринадцать');
4: Write('четырнадцать');
5: Write('пятнадцать');
6: Write('шестнадцать');
7: Write('семнадцать');
8: Write('восемнадцать');
9: Write('девятнадцать');
end;
end;
end;
m:=a mod 10;
If d<>1 then
Case m of
1: Write('один');
2: Write('два');
3: Write('три');
4: Write('четыре');
5: Write('пять');
6: Write('шесть');
7: Write('семь');
8: Write('восемь');
9: Write('девять');
end;
Writeln;
Write('Это число - ',s,d);
If d<>1 then Write(m)
else Write(e);
End.


как сделать так, чтобы при вводе числа, к примеру, 209, программа выдавала ответ "двести девять", а не "двести девятнадцать девять" ?
StillersMom вне форума
Старый 15.03.2010, 00:26   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор


Цитата:
Темы с вложениями вместо исходного кода, а также с неправильно оформленным кодом будут мгновенно закрываться, а нарушитель - получать нарушение №6 - "Нарушение правил форума" и штраф 6 очков.
На первый раз прощается.
Цитата:
При создании темы или ответа на существующий вопрос вам необходимо соблюдать следующие несложные правила:

0. Воспользоваться поиском по форуму по интересующему вас вопросу. Темы, созданные без выполнения этого пункта и имеющие кучу "близнецов" в "Похожих темах", будут просто молча закрываться, а затем уничтожаться. Так что не стоит удивляться и возмущаться - проще подумать...
http://www.programmersforum.ru/showt...F2%F0%EE%EA%F3

Последний раз редактировалось mihali4; 15.03.2010 в 00:30.
mihali4 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Приложение которое выводит список файлов текущего каталога и при клике на любом из файлов откроет его. LimanSSk Общие вопросы Delphi 2 18.05.2009 16:03
дано трехзначное число.вывести число,полученное при перестановки цифр десятков и сотен исходдного числа. Kenny_mackormik Помощь студентам 7 12.03.2009 15:18
Написать программу которая выводит таблицу значений функйии akimbaev Паскаль, Turbo Pascal, PascalABC.NET 1 01.10.2008 00:21
при введении любого номера года нашей эры, программа выводит его название за старым японским календарем mobi_vic Общие вопросы C/C++ 1 06.06.2007 12:33
Подсчёт кол-ва единиц в столбце Freddie_X Microsoft Office Excel 3 10.03.2007 09:38