|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.10.2011, 12:18 | #1 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
Написать программу деления 2-х чисел с заданной точностью в Pascal
Сама своим умом понимаю, что задача решается просто, но до меня не доходит. Помогите написать программу, которая делит дроби, заданные пользователем в виде числитель/знаменатель, а результат выдаёт в виде округлённого вещественного числа, с порядком точности, заданным пользователем.
Например: Входные данные: 5/6, t=0.0001 Выходные данные:. 0,8333 Входные данные:. 1/37, t=0,00001 Выходные данные:. 0,02702 |
07.10.2011, 13:31 | #2 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
ну я бы сделал как-то так...
Код:
Последний раз редактировалось unbanned; 07.10.2011 в 19:03. |
07.10.2011, 20:47 | #3 |
Пользователь
Регистрация: 07.10.2011
Сообщений: 21
|
ОГРОМНОЕ-ОГРОМНОЕ СПАСИБО!
Принцип решения очень понятен. Спасибо! |
08.10.2011, 07:48 | #4 | ||
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Цитата:
Принцип БОЛЕЕ, чем понятен. Цикл: Код:
unbanned, ты всегда так единицу делишь на число? )) Не надо подменять операцию деления загрублением точности. Ты ИСПОЛЬЗОВАЛ деление: writeln((round((ch / zn) * k) / k)); - а тебя просили его имплементировать. Если делать, как ты, то тогда уж как-то так: var ch,zn: integer; e: double; begin ch:= 55; zn:= 7; e:= 0.0001; Writeln(ch/zn:0:-round(ln(e)/ln(10))); end. 2 lulia: Цитата:
Предпочитаю на "ты".
Последний раз редактировалось TinMan; 08.10.2011 в 08:02. |
||
08.10.2011, 17:42 | #5 | |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
мда)) с делением единицы дал маху
Код:
если при делении получиться 0.00067 с точностью 0.0001 в ответе должно получиться 0.0007 а получиться 0.0006 Цитата:
|
|
08.10.2011, 23:37 | #6 | |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Бывает ))
+1 Цитата:
Форматированный вывод был бы почти бесполезен, не имей он округления. Приходилось бы делать его самому, а если так - то и вывести уже нетрудно.
Предпочитаю на "ты".
Последний раз редактировалось TinMan; 08.10.2011 в 23:44. |
|
09.10.2011, 19:34 | #7 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ошибка при вычислении суммы ряда с заданной точностью | RavenGuitarist | Помощь студентам | 4 | 23.08.2011 16:11 |
Pascal ABC. Вычислить сумму ряда с заданной точностью. | 0kcanka | Помощь студентам | 0 | 16.05.2011 13:22 |
Составить графический алгоритм и программу для нахождения суммы ряда с заданной точностью | ginfix | Помощь студентам | 1 | 30.03.2011 23:39 |
Pascal. Вычислить сумму S с заданной точностью E | Саша Сказка | Помощь студентам | 8 | 19.10.2010 14:34 |