Страница 2 из 2
Re: Помогите написать прогу (цикл repeat-until, while-do)
Добавлено: 03 мар 2008, 20:42
Medved
" писал(а):Цитата:
Сообщение от Хыиуду Посмотреть сообщение
2 MotoCoder:
Функция pow с двумя аргументами тут немного лишняя. Все равно в программе используется только возведение в куб. Так что проще
function cube(x:integer):integer; begin cube:=x*x*x; end;
Пытался сделать так, но программа вырубается из-за runtime-ошибки.
К тому же, функцию я брал из другой своей программы.
Возможно потому, что x*x*x > maxint ?
Re: Помогите написать прогу (цикл repeat-until, while-do)
Добавлено: 03 мар 2008, 20:44
Medved
Попробуй сделать function cube(x:integer):longint ; { а лучше int64 в фри паскале} cube:=x*x*x; end;
Re: Помогите написать прогу (цикл repeat-until, while-do)
Добавлено: 03 мар 2008, 20:59
MOTOCoder
Скорее всего так оно и есть, хотя если отрубить проверку переполнения, то просто получится отрицательное значение(хотя возможно я не прав).
Re: Помогите написать прогу (цикл repeat-until, while-do)
Добавлено: 03 мар 2008, 21:09
Medved
Ты прав! В интегер можно добавлять до опупения без range check - он по кругу закручен (в паскале, а в делфе не пробовал) А весело - в делфе:
integer --> -2000000000..2000000000 (точно не помню)
longint --> integer
Re: Помогите написать прогу (цикл repeat-until, while-do)
Добавлено: 04 мар 2008, 10:30
Хыиуду
Если число N - integer, а цикл идет до его кубического корня, то х*х*х переполнения не даст