FreePascal.ru

Спасибо.
GetUserDir - прекрасно сработала!
Не знал о такой функции.

Надо загрузить на форму в объект TImage изображение, расположенное в домашнем каталоге Linux. Без привязки к конкретному имени пользователя.
Я попытался использовать следующий код:
prefix := '~/';
name := 'image001';
imgOne.Picture.LoadFromFile(prefix + name + '.png ...

Спасибо всем!

iskander писал(а):А что мешает в OnMouseDown запомнить координаты курсора, а в OnClick использовать?

Ну, не хотелось бы лишний раз глобальные переменные вводить. Или можно как-то иначе?

Хорошо. Спасибо.
А в OnClick никак не получится? Мне важно чтобы был именно клик (нажал-отпустил) в пределах заданной области.

На форме имется TImage. В него загружен рисунок. На рисунке имеется область закрашенная одним цветом.
Делаем клик мышкой на этой области или проводим мышкой по этой области.
Как получить цвет под указателем мышки?

P.S.: Все это под Linux-ом.

О! *краснеет* Привык к {...}
Указание дробной части в присвоении, заголовке цикла, увеличении переменной "х" сделано с целью правильного преобразования типов?

Спасибо. Приведенный вами вариант программы работает. Наверное он единственно возможный вариант решения данной проблемы.

Прошу прощения за, возможно, глупый вопрос, но что означает эта конструкция "//=" в строке "if IsZero(x)//=0.0"?

Используйте тип Double.
Не помогает.
Вот что выдаст на экран программа. Обратите внимание на значение близкое к нулю и на последнее значение. По логике, там должно быть 2.
x=-2.0000000000000000E+0000 y=-5.0000000000000000E-0001
x=-1.8000000000000000E+0000 y=-5.5555555555555556E ...

Информатика, 9 класс. Классическая задача на табулирование функции.
Курим учебник: вещественные числа проверять на равенство не стОит, чревато. Можно лишь считать их близость с необходимой точностью: Abs(a-b)<epsilon
В Вашем случае я бы советовал обернуть внутренности цикла в try-except с выносом ...

Такая вот программа:

var
x,y&#58; Real;
begin
x&#58;=-2;
while x<=2 do
begin
if x=0
then writeln('При x=0 значение функции не существует')
else
begin
y&#58;=1/x;
writeln('x=',x,' y=',y)
end;
x&#58;=x+0&#46;2;
end;
end&#46;

Ветка "writeln('При x=0 значение функции не существует ...

bw писал(а):Учи их работать в X и/или Gtk+/Qt .

..bw

А по подробнее можно? Мне собственно надо бы и самому хотя бы разобраться, прежде чем что-то ученикам показывать.

Наверное переключение в полноэкранный режим требует привелегии root.
Тогда может быть кто-нибудь подскажет другой способ работать с выводом графики? Пусть не в полноэкранном режиме, а в оконном, т.е. перенаправление вывода на новое окно и в нем отображать график функции или какой-нибудь другой ...

Alexander писал(а):Попробуй. Если запустится будем думать о правах.

С правами root - заработала, Однако это не выход.
Что же мне, учеников под root в систему пускать?

При запуске выходит ошибка:
svgalib&#58; Cannot get I/O permission&#46;
Это что, под root ее надо запускать что ли?
Программа (взято из примера):
Program inigraph1;

&#123; Program to demonstrate static graphics mode selection &#125;

uses graph;


const
TheLine = 'We are now in 640 x 480 x 256 ...