BigInteger в For

@ProMix0 · Регистрация: 14.06.2019

Студворк — интернет-сервис помощи студентам

Столкнулся с проблемой того, что в цикле for нельзя использовать BigInteger, не смотря на то, что это целочисленный тип. Кто-нибудь знает решение?
Пример:

Pascal
1
2
3
4
begin
  for i: BigInteger := 1 to 2 do //Ошибка: ожидался порядковый тип
    i.print;
end.

@ProMix0 · 31.07.2019, 16:46 **[ТС]**

Клиент отправляет, а сервер принимает, а потом наоборот.

Добавлено через 51 секунду
По очереди.

Добавлено через 44 минуты
Всё, нашёл проблему, клиент отсылал char, а сервер ждал string.

@ProMix0 · 05.08.2019, 11:38 **[ТС]**

Ошибка на 15 строке SimpleAddition.pas:
Ошибка времени выполнения: One or more errors occurred.
Поможете?

@Sun Serega · 05.08.2019, 12:22

Сообщение от ProMix0

One or more errors occurred.

https://github.com/pascalabcne... ssues/2048
Та ещё гадость... Но если вы положите OpenCL.pas и OpenCLABC.pas отсюда:
https://github.com/SunSerega/POCGL
В папку к программе которая их использует - ошибка должна стать плавающей, то есть падать будет в ~50% случаев.

Примеры на просто OpenCL.pas (без OpenCLABC) - работают исправно. Чтоб научиться работать с OpenCL - должно быть достаточно... Ну а для исправления того бага надо некоторое время.

@ProMix0 · 05.08.2019, 12:37 **[ТС]**

Спасибо, сейчас скачаю.

Добавлено через 10 минут
У вас в OpenCLABC.pas в 129 строке написано:
// Одна и так же очередь не может выполнятся в 2 местах одновременно
По-моему "к" лишняя.

@Sun Serega · 05.08.2019, 12:44

Сообщение от ProMix0

По-моему "к" лишняя.

Ага исправил... Ну, справка ещё не закончена, у меня на компе ещё больше есть, залью как будет ещё что то существенное.
Ну а перед тем как отправлять в установщик паскаля - я ещё пройдусь по всему модулю, проверю всё...

@ProMix0 · 05.08.2019, 12:47 **[ТС]**

Там же в 1025 и 1037 строках было указано

Pascal
1
params files_texts: array string

На что выдало ошибку:
Встречено 'string', а ожидалось '['
Что я исправил на:

Pascal
1
params files_texts: array [] of string

И в 1168 строке тоже самое с

Pascal
1
sequence  Task

Ещё на 1699 строчке выдало:
Встречено 'Finalize', а ожидалось end
Что делать - не знаю.

@Sun Serega · 05.08.2019, 12:55

Сообщение от ProMix0

array string

Сообщение от ProMix0

sequence Task

ммм не помню таких ошибок, и сейчас в коде их нет...

Ну, [] лишнее, там надо просто of

Короче, обновил OpenCLABC в репозитории, теперь у меня точно компилируется (а пропущенных of там таки не было, хз где вы их нашли).

Скачивать модули надо через кнопку RAW (и там Ctrl+S на открывшемся файле, если он открылся вместо того чтоб скачаться)
Или можно так же скачать всё архивом:
https://github.com/SunSerega/P... master.zip
И из этого архива достать нужные файлы целиком.

@ProMix0 · 05.08.2019, 13:24 **[ТС]**

Запустил со скачанным OpenCLABC - "Неизвестное имя "KernalArg""

@Sun Serega · 05.08.2019, 13:46

Я переименовал в Buffer, так название больше соответствует тому - что оно делает...

@ProMix0 · 05.08.2019, 14:43 **[ТС]**

Что переименовали? KernelArg?

@Sun Serega · 05.08.2019, 14:53

Да, про него ведь речь...
Вообще вы бы подождали ещё пару дней, я тут заканчиваю справку и примеры обновлённого OpenCLABC, с ними должно быть на много проще разобраться...
А сейчас в репозитории полный беспорядок, то что в примерах KernelArg, в то время как в модуле Buffer - это не единственная проблема. К примеру, ещё в справке написано что вызов методов на BufferCommandQueue добавляет команды к существующей очереди. Но пока что это немного не так работает, вот прямо сейчас исправляю...

@ProMix0 · 05.08.2019, 14:55 **[ТС]**

Ладно, через пару дней возобновлю деятельность.

@Sun Serega · 07.08.2019, 16:42

Ну, всё что я хотел переделать из серьёзного - вроде переделал. И проверил чтоб примеры для OpenCLABC все работали (кроме 1, которому нужен .Clone, который я не могу сделать из за бага компилятора).

Могу порекомендовать ещё вставить такую строчку в любом месте в OpenCLABC:

Pascal
1
{$savepcu false}

Эта строчка, похоже, немного глушит ту ошибку компилятора, с отменой таска.
Ну и, надо удалить старый OpenCLABC.pcu, иначе $savepcu бесполезна.

Так же, прочитайте всю справку (текст в начале исходника OpenCLABC), я там подробно расписал всё что надо знать.
В том числе то, как получать настоящую ошибку вместо One or more errors occurred.

@ProMix0 · 08.08.2019, 14:56 **[ТС]**

Спасибо.

Добавлено через 5 минут
На строчке "A.NewQueue.WriteData(" пишет ошибку "Неизвестное имя "WriteData""

@Sun Serega · 08.08.2019, 18:56

Примеры тоже обновлены вместе с модулем, берите их отсюда:
https://github.com/SunSerega/P... /OpenCLABC

@ProMix0 · 09.08.2019, 08:36 **[ТС]**

После обновления SimpleAddition.pas, .cl и OpenCLABC.pas на 1477 строке пишет: Ошибка времени выполнения: One or more errors occurred.

Добавлено через 9 минут
На 1477 строчке OpenCLABC.pas.

@Sun Serega · 09.08.2019, 10:21

1.

Сообщение от Sun Serega

Могу порекомендовать ещё вставить такую строчку в любом месте в OpenCLABC:

2.

Сообщение от Sun Serega

Так же, прочитайте всю справку (текст в начале исходника OpenCLABC), я там подробно расписал всё что надо знать.
В том числе то, как получать настоящую ошибку вместо One or more errors occurred.

@ProMix0 · 10.08.2019, 13:43 **[ТС]**

Текст ошибки: System.Threading.Tasks.TaskCanceledExcep tion: A task was canceled.

@Sun Serega · 10.08.2019, 14:56

Ну так это и есть тот баг компилятора - "плавающая Task.Run" о которой я уже несколько раз сказал.
Вот страница на которой можно следить за обновлениями касающимися него:
https://github.com/pascalabcne... ssues/2048

Сообщение от Sun Serega

Могу порекомендовать ещё вставить такую строчку в любом месте в OpenCLABC:

Pascal
1
{$savepcu false}

Эта строчка, похоже, немного глушит ту ошибку компилятора, с отменой таска.
Ну и, надо удалить старый OpenCLABC.pcu, иначе $savepcu бесполезна.

(canceled переводится как отменена [задача, аля таск на суржике])

Ну и когда запускаете - запускайте саму программу, если открыт и выбран файл модуля OpenCLABC в IDE - вы всё равно получите эту ошибку. Это как раз способ - которым её ловят.

Если используете все мои рекомендации - этот баг всё ещё может воспроизвестись. Когда баг "плавающий" - это как раз значит что он когда хочет - тогда воспроизводится. Но с $savepcu - его воспроизведения должны стать очень редкими. А точнее <1%. И если вылетело - можно ещё раз откомпилировать и, скорее всего, пропадёт. Если 1 вызов метода Context.SyncInvoke прошёл успешно - все остальные будут так же успешны, ибо ошибка состоит из неправильного кода в готовом .exe файле, всего на 1 строчке.

@ProMix0 · 10.08.2019, 15:30 **[ТС]**

Сделал всё как вы написали, запустил SimpleAddition.pas 5 раз, постоянно выдаёт ошибку: Unable to find an entry point named 'clEnqueueFillBuffer' in DLL 'opencl.dll'. И в качестве ответа десять чисел -1331.
P.S. У вас в OpenCLABC где-то было написано "удленитель", а правильно "удлинитель".

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	31.07.2019, 16:46 [ТС]
	Клиент отправляет, а сервер принимает, а потом наоборот. Добавлено через 51 секунду По очереди. Добавлено через 44 минуты Всё, нашёл проблему, клиент отсылал char, а сервер ждал string. 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	05.08.2019, 11:38 [ТС]
	Ошибка на 15 строке SimpleAddition.pas: Ошибка времени выполнения: One or more errors occurred. Поможете? 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	05.08.2019, 12:37 [ТС]
	Спасибо, сейчас скачаю. Добавлено через 10 минут У вас в OpenCLABC.pas в 129 строке написано: // Одна и так же очередь не может выполнятся в 2 местах одновременно По-моему "к" лишняя. 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	05.08.2019, 13:24 [ТС]
	Запустил со скачанным OpenCLABC - "Неизвестное имя "KernalArg"" 0

@Sun Serega 2357 / 1460 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	05.08.2019, 13:46
	Я переименовал в Buffer, так название больше соответствует тому - что оно делает... 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	05.08.2019, 14:43 [ТС]
	Что переименовали? KernelArg? 0

@Sun Serega 2357 / 1460 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	05.08.2019, 14:53
	Да, про него ведь речь... Вообще вы бы подождали ещё пару дней, я тут заканчиваю справку и примеры обновлённого OpenCLABC, с ними должно быть на много проще разобраться... А сейчас в репозитории полный беспорядок, то что в примерах KernelArg, в то время как в модуле Buffer - это не единственная проблема. К примеру, ещё в справке написано что вызов методов на `BufferCommandQueue` добавляет команды к существующей очереди. Но пока что это немного не так работает, вот прямо сейчас исправляю... 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	05.08.2019, 14:55 [ТС]
	Ладно, через пару дней возобновлю деятельность. 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	08.08.2019, 14:56 [ТС]
	Спасибо. Добавлено через 5 минут На строчке "A.NewQueue.WriteData(" пишет ошибку "Неизвестное имя "WriteData"" 0

@Sun Serega 2357 / 1460 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	08.08.2019, 18:56
	Примеры тоже обновлены вместе с модулем, берите их отсюда: https://github.com/SunSerega/P... /OpenCLABC 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	09.08.2019, 08:36 [ТС]
	После обновления SimpleAddition.pas, .cl и OpenCLABC.pas на 1477 строке пишет: Ошибка времени выполнения: One or more errors occurred. Добавлено через 9 минут На 1477 строчке OpenCLABC.pas. 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	10.08.2019, 13:43 [ТС]
	Текст ошибки: System.Threading.Tasks.TaskCanceledExcep tion: A task was canceled. 0

@ProMix0 80 / 33 / 10 Регистрация: 14.06.2019 Сообщений: 516
	10.08.2019, 15:30 [ТС]
	Сделал всё как вы написали, запустил SimpleAddition.pas 5 раз, постоянно выдаёт ошибку: Unable to find an entry point named 'clEnqueueFillBuffer' in DLL 'opencl.dll'. И в качестве ответа десять чисел -1331. P.S. У вас в OpenCLABC где-то было написано "удленитель", а правильно "удлинитель". 0