Помогите написать прогу (цикл repeat-until, while-do)

[Medved]

Цитата:
Сообщение от Хыиуду Посмотреть сообщение
2 MotoCoder:
Функция pow с двумя аргументами тут немного лишняя. Все равно в программе используется только возведение в куб. Так что проще
function cube(x:integer):integer; begin cube:=x*x*x; end;
Пытался сделать так, но программа вырубается из-за runtime-ошибки.
К тому же, функцию я брал из другой своей программы.

Возможно потому, что x*x*x > maxint ?

[Medved]

Попробуй сделать function cube(x:integer):longint ; { а лучше int64 в фри паскале} cube:=x*x*x; end;

[MOTOCoder]

Скорее всего так оно и есть, хотя если отрубить проверку переполнения, то просто получится отрицательное значение(хотя возможно я не прав).

[Medved]

Ты прав! В интегер можно добавлять до опупения без range check - он по кругу закручен (в паскале, а в делфе не пробовал) А весело - в делфе:
integer --> -2000000000..2000000000 (точно не помню)
longint --> integer

[Хыиуду]

Если число N - integer, а цикл идет до его кубического корня, то х*х*х переполнения не даст