|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.04.2010, 04:25 | #1 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Конвертер денежных единиц
Старинными русскими денежными единицами являются: 1 рубль — 100 коп., 1 гривна — 10 коп., 1 алтын — 3 коп., 1 полушка — 0,25 коп. Имеется А копеек. Написать программу в Паскале для представления имеющейся суммы в рублях, гривнах, алтынах и полушках.
Помогите решить данное задание. |
16.04.2010, 05:44 | #2 |
Заблокирован
Регистрация: 30.10.2009
Сообщений: 468
|
Ну это ж элементарно..Школьная математика...К примеру 1567/100/10/3/0,25 ну и получается 15 рублей 6 гривен 2 алтыня и 4 полушки..Код покажите...
|
16.04.2010, 10:15 | #3 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Вот код:
program den_ed; uses crt; var k : integer; var r, g, a, p : real; BEGIN clrscr; writeln ('Введите сумму в копейках:'); read (k); r := k div 100; g := k div 10; a := k div 3; p := k div 0.25; writeln ('Ваша сумма равна: ',r:6:2,' руб. ',g:6:2,' грив. ',a:6:2,' алт. ',p:6:2,' пол.'); readln; readln; END. Где тут ошибка? Если исключить из кода полушки, то всё работает. |
16.04.2010, 10:22 | #4 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
p := k div 0.25;
Перемешивай дело с бездельем и не сойдешь с ума...
|
16.04.2010, 10:37 | #5 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Ну а как правильно написать? Подскажи неопытному.
|
16.04.2010, 10:45 | #6 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
P:=Int(k/0.25)
Перемешивай дело с бездельем и не сойдешь с ума...
|
16.04.2010, 11:07 | #7 |
Пользователь
Регистрация: 20.02.2010
Сообщений: 66
|
Спасибо!!! Всё получилось.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Преобразование единиц измерения | Zirat | Microsoft Office Excel | 9 | 29.11.2022 21:14 |
работа с массивом нулей и единиц | Rusl92 | Помощь студентам | 12 | 15.11.2009 16:20 |
Найти сумма единиц | Bayram_662 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 22.10.2009 22:11 |
Учет движения денежных средств в паскале | SEREG@ | Помощь студентам | 4 | 22.04.2008 08:00 |
Подсчёт кол-ва единиц в столбце | Freddie_X | Microsoft Office Excel | 3 | 10.03.2007 09:38 |