![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 09.06.2010
Сообщений: 32
|
![]()
Найти наибольшую и наименьшую цифры в записи данного натурального числа.
У меня есть код на Паскале. Помогите переделать на С++.И решение нужно оформить с указателями и динамической памятью. Листинг: Program MaxDigit; Type NaturLong = 1..(High(LongInt)); Digit = 0..9; Var A:^ LongInt; Function Minimum(M : LongInt) : Digit; Begin If M < 10 Then MINIMUM := M Else If M Mod 10 < Minimum(M Div 10) Then Minimum:= M mod 10 Else Minimum:= Minimum(M Div 10) End; Function Maximum(N : LongInt) : Digit; Begin If N < 10 Then Maximum := N Else If N Mod 10 > Maximum(N Div 10) Then Maximum := N mod 10 Else Maximum := Maximum(N Div 10) End; Begin new(a); Write('Введите натуральное число: '); ReadLn(A^); WriteLn('Максимальное число= ', Maximum(A^)); Writeln('Минимальное число=',Minimum(A^)); Dispose(A); Readln; End. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Указатели. Динамическая память. | Kazik | Помощь студентам | 2 | 18.01.2014 00:17 |
Динамическая память | Astat | Помощь студентам | 1 | 30.06.2010 20:40 |
Указатели.Динамическая память | Solnze2 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 12.06.2010 10:08 |
Динамическая память!!! | Doholyan | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 30.06.2009 17:11 |