Найдено 57 результатов

Mavlyudov
19.09.2024 10:57:52
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

delphius
Возможно, я где-то не так написал, но производная должна браться от каждой новой функции.
Изображение
Mavlyudov
11.09.2024 00:38:59
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

Alex2013
Помоги тогда поправить
Mavlyudov
07.09.2024 23:50:52
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

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

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


Ругается на параметр x, что не ...
Mavlyudov
06.09.2024 07:04:47
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

Alex2013
У меня вроде тоже самое сделано.
Ну а без процедурного типа не понимаю как сделать. Если знаешь, напиши как
Mavlyudov
06.09.2024 01:13:59
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

Вот код


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 ...
Mavlyudov
03.09.2024 20:24:55
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Re: Действия над функциями

Не получается так
Mavlyudov
01.09.2024 10:27:06
Форум: Общее
Тема: Действия над функциями
Ответы: 15
Просмотры: 37806

Действия над функциями

Столкнулся с такой проблемой: надо запрограммировать действия над несколькими функциями.
Пробовал делать через передачу параметрова переменнй типа функции, но не получилось.
Сам алгоритм такой: есть некоторая функция y1(x). Далее записываем уравнение касательной y1(x) к ней в точке x0=x[n],
далее ...
Mavlyudov
05.09.2022 17:55:05
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

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

Ниже эта картинка открыта в hex.
Также ...
Mavlyudov
02.08.2022 11:48:12
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

Vadim
Мой код читает правильно. Им я выводил картинку на форму и он же используется в нерабочем коде
Mavlyudov
24.07.2022 19:24:52
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

Alex2013
Пишет залитый черными пикселами файл
Mavlyudov
24.07.2022 10:02:19
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

Alex2013
Спасибо.
Меня пока что устроит медленный вариант. Хотелось бы все же понять, какие ошибки во второй программе
Mavlyudov
14.07.2022 01:31:50
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

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

Сквозняк
Alex2013

Спасибо.
Вот два кода. Первый рабочий. Читает картинку через TBitmap, раскарашивает ее заданной палитрой цветов.
Второй нерабочий. Сделал чтение bmp файла как текстового файла.
Что-то не так с цветом или массивом, не могу понять. Буду рад, если ...
Mavlyudov
22.06.2022 20:24:42
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

Сквозняк
Можно пример того, как править байты?
Mavlyudov
22.06.2022 17:20:38
Форум: Free Pascal Compiler
Тема: Загрузка bmp
Ответы: 24
Просмотры: 38200

Re: Загрузка bmp

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

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

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


Var
Color:Byte;
S:TMemoryStream;
type
RGB=Record
b,g,r: Byte;
End;
type
TPixels=Array[0..0 ...
Mavlyudov
16.06.2022 01:17:27
Форум: Обучение Free Pascal
Тема: PutImage
Ответы: 29
Просмотры: 91404

Re: PutImage

Alex2013

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