|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.04.2009, 19:13 | #1 |
Регистрация: 01.04.2009
Сообщений: 3
|
решить с использованием функции! помогите сделать.
Составить программу,определяющую,в какомиз данных чисел больше цифр.
|
02.04.2009, 20:34 | #2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
uses crt;
var x,y:integer; function max(a,b:integer):integer; var n1,n2,b1,b2:integer; begin b1:=a; b2:=b; n1:=0; n2:=0; while b1>0 do begin inc(n1); b1:=b1 div 10; end; while b2>0 do begin inc(n2); b2:=b2 div 10; end; if n1>n2 then max:=a else max:=b; end; begin clrscr; readln(x,y); writeln(max(x,y)); readln; end.
@(o_0)@
|
03.04.2009, 16:46 | #3 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
еще можно введенные числа преобразовывать в строки и сравнивать их длины... попроще будет...
предыдущий алгоритм не нравится из-за наличия двух циклов.. =(
Uguu~
Последний раз редактировалось __STDC__; 03.04.2009 в 16:50. |
03.04.2009, 18:58 | #4 |
Форумчанин
Регистрация: 12.09.2008
Сообщений: 239
|
если нужно без строк, а чисто на алгебре, то вот:
Код:
Надо бы избавиться от привычки ставить многоточие.....
|
03.04.2009, 20:11 | #5 |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
А не проще, как сказал уважаемый __STDC__?
Код:
Кто бы ты ни был - не думай о себе слишком (с)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
решить с использованием рекурсивной подпрограммы. помогите пожалуйста ваще ни че не понял | st1m | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 02.04.2009 15:31 |
Программа с использованием функции | Cartman18 | Помощь студентам | 1 | 10.12.2007 16:29 |
Помогите пожалуйста!!! С использованием функции Random сформировать одномерный массив | Vanya_www_333 | Помощь студентам | 1 | 17.08.2007 13:38 |