SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
blondenet
если есть желание, разобраться в паре функций - дело пары пустяков.
функция ABS
function Abs(X): возвращеает значение того же типа, что и переданное в неё выражение X);
Эта функция возвращает абсолютное значение выражения, или, говоря "русским математическим" языком :) - возвращается МОДУЛЬ x
если X>=0 - то функция вернёт X
иначе, если X<0 то функция вернёт X*(-1)
т.е. результат действия функции всегда будет положительным
Теперь, ДЛЯ ЧЕГО использовалась эта функция... Да это же банальная замена конструкции if A<=B then ... else ...
в решении от Pawo хоть A > B, хоть B>A - j получится ПОЛОЖИТЕЛЬНЫМ числом.
кстати, в решении Pawo j - это тоже самое, что в моём решение Cnt:
Цитата:| WriteLn('Количество циклов будет : ', Cnt); |
Как видим и процитированного кода -j и Cnt — это счётчик циклов, чтобы знать, сколько чисел помещаются между A и B, мы берём их разность и делим на шаг, с которым надо выводить значения. Тем самым получим, сколько значений надо вывести.
Но в Паскале цикл FOR - всегда работает только с целыми числами. Поэтому и вещественного числа нужно получить ЦЕЛОЕ!
Pawo решает эту проблему через оператор целочисленного деления div
я через функцию trunc():
function trunc(X: Real): Longint;
Обрезает вещественно число X до целого (ну, другими словами, просто возвращает целую часть)
p.s. BiW прав. Если хотите чему-то научиться - есть помощь встроенная в среду TurboPascal (правда, на английском, но там совсем всё просто), есть куча книжек на русском языке, есть интернет. Чтобы научиться чему либо, надо это ИЗУЧАТЬ.
удачи.
|
3,3,4)), 
