|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2013, 18:37 | #1 |
Регистрация: 25.11.2013
Сообщений: 6
|
Помогите с модулем. Создать модуль целочисленная арифметика
Создать модуль, описание объектов. Написать программу для демонстрации всех подпрограмм разработанного модуля.
целочисленная арифметика TNumber = LongInt - тип чисел. 1 ) function GetMaxCD ( A , B : TNumber ) : TNumber ; Найти наибольший общий делитель двух чисел. 2 ) function GetMinCK ( A , B : TNumber ) : TNumber ; Найти наибольшее общее кратное двух чисел. 3 ) function GetCountDigit ( A : TNumber ) : Byte ; Найти количество цифр числа . 4 ) function IsSimple ( A : TNumber ) : Boolean ; Вернуть значение True , если число А простое . 5 ) function Step ( A , n : TNumber ) : TNumber ; Вычислить An . 6 ) function IsPalindrom ( A : TNumber ) : Boolean ; Вернуть значение True , если число А - палиндром (например , 12321 ) . 7 ) procedure WriteDiv ( A : TNumber ) ; Вывести на экран все делители числа. 8 ) procedure SimpleMult ( A : TNumber ) ; Разложить число на простые множители и вывести на экран в виде p1 ( n1 ) * p2 ( n2 ) ... pk ( nk ) , где pi - простой множитель , ni - показатель степени . |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
целочисленная арифметика 6.5 | Darkin | Общие вопросы C/C++ | 2 | 18.02.2013 14:32 |
Целочисленная арифметика | Shurochka | C++ Builder | 0 | 02.10.2012 22:06 |
Си++ Целочисленная арифметика | Krieger | Помощь студентам | 0 | 15.10.2011 22:40 |
Целочисленная арифметика | Lebron129 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.05.2010 19:27 |
Целочисленная арифметика | Doublefaced | Помощь студентам | 11 | 22.03.2009 19:33 |