|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2008, 21:18 | #1 |
Пользователь
Регистрация: 16.12.2007
Сообщений: 18
|
Модули
Здравствуйте, господа, программеры, прошу помочь с задачей на модули.
Пусть процедура сокр(a,b,p,q) от целых параметров (b не равно 0) приводит дробь a/b к несократимому виду p/q. Описать данную процедуру и использовать её для приведения дроби 1+1/2+1/3+...+1/20 к несократимому виду c/d. Заранее благодарен. |
02.06.2008, 08:09 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А в чем именно помочь? Выкладывай наработки.
I'm learning to live...
|
02.06.2008, 09:55 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Во первых дробь должна быть представлена записью с двумя полями: числитель и знаменатель. Тогда в процедуре будет не 4 параметра, а 2.
Сложение дробей отдельная процедура. После сложения находим НОД числителя и знаменателя(избитая функция) и делим числитель и знаменатель на НОД. Процедура будет выглядеть примерно так: Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Библиотеки и модули | Принц | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 29.05.2008 16:39 |
Модули | Михаил Юрьевич | Общие вопросы Delphi | 3 | 16.02.2008 20:59 |
Модули | Altera | Общие вопросы Delphi | 4 | 04.02.2008 19:12 |
Модули | aln123 | Помощь студентам | 3 | 21.10.2007 08:34 |
Паскаль и модули | Snake_ua | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 19.10.2007 15:15 |