FreePascal.ru

delphius
Возможно, я где-то не так написал, но производная должна браться от каждой новой функции.

Alex2013
Помоги тогда поправить

Сделано так y1:=fdif; а нужно y1:=tfunc4 (@fdif); то есть нет "привидения типа".

Тут смысл в том, чтобы присвоить функции функцию и передать ей параметры.
Компилирует только так
y1:=tfunc4(@fdif);
А по идее надо вот так:
y1:=tfunc4(@fdif(x,x0,eps1,fp1,fp2));


Ругается на параметр x, что не ...

Alex2013
У меня вроде тоже самое сделано.
Ну а без процедурного типа не понимаю как сделать. Если знаешь, напиши как

Вот код


type
tfunc=function(x:single):single;
tfunc2=function(x,x0,eps:single):single;
tfunc3=function(x,x0,eps:single;fp:tfunc2):single;
tfunc4=function(x,x0,eps:single;fp1:tfunc2;fp2:tfunc3):single;

function dfdx(x0,eps:single;f:tfunc4):single;
var
dx,dy,dy2:single;
fz2:tfunc2;
fz3:tfunc3 ...

Не получается так

Столкнулся с такой проблемой: надо запрограммировать действия над несколькими функциями.
Пробовал делать через передачу параметрова переменнй типа функции, но не получилось.
Сам алгоритм такой: есть некоторая функция y1(x). Далее записываем уравнение касательной y1(x) к ней в точке x0=x[n],
далее ...

Vadim
Создал картинку, состоящую только из одного красного пикселя (255,0,0). Сохранил через Paint как 16 цветную картинку.
Прочитал твоим кодом.
Пишет, что смещение 118.
А разве оно не должно быть всегда 54? (14 байт на первый заголовок и 40 на второй?)

Ниже эта картинка открыта в hex.
Также ...

Vadim
Мой код читает правильно. Им я выводил картинку на форму и он же используется в нерабочем коде

Alex2013
Пишет залитый черными пикселами файл

Alex2013
Спасибо.
Меня пока что устроит медленный вариант. Хотелось бы все же понять, какие ошибки во второй программе

Vlad04
В Делфи такого нету.

Сквозняк
Alex2013

Спасибо.
Вот два кода. Первый рабочий. Читает картинку через TBitmap, раскарашивает ее заданной палитрой цветов.
Второй нерабочий. Сделал чтение bmp файла как текстового файла.
Что-то не так с цветом или массивом, не могу понять. Буду рад, если ...

Сквозняк
Можно пример того, как править байты?

Vadim
Да, именно заморочиться.

Alex2013
Подскажите пожалуйста,как поменять палитру в файле без использования Scanline?

Допустим, я загрузил bmp в двумерный массив.
До этого палитра менялась так:


Var
Color:Byte;
S:TMemoryStream;
type
RGB=Record
b,g,r: Byte;
End;
type
TPixels=Array[0..0 ...

Alex2013

Сейчас попробую. Про код выше и модуль Graphics cо структурами типа B.RawImage.DataSize - это не Делфи.
Переделал. Идея загнать bmp в массив и его потом отрисовать через Canvs.Draw, правда для этого надо создать промежуточный bitmap и переместить туда массив (функцией move), что не есть ...