Исходное сообщение
"Опубликован стандарт параллельного программирования OpenMP 5..." Отправлено anonimous, 14-Ноя-20 20:52
>Паскаль внезаптно современный язык, и ступенька к Аде. Да ладно, и без Ады все неплохо Краткое введение в современный Object Pascal для программистов https://castle-engine.io/modern_pascal_introduction_russian.... а вот один из вариантов параллельности https://wiki.freepascal.org/Parallel_procedures/ru program Test; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}  cthreads, cmem,  {$ENDIF}  MTProcs; // простая параллельная процедура procedure DoSomethingParallel(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem); var   i: Integer; begin   writeln(Index);   for i:=1 to Index*1000000 do ; // делаем некую работу end; begin   ProcThreadPool.DoParallel(@DoSomethingParallel,1,5,nil); // адрес, стартовый индекс, конечный индекс, дополнительные данные end.

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Паскаль внезаптно современный язык, и ступенька к Аде. > Да ладно, и без Ады все неплохо > Краткое введение в современный Object Pascal для программистов > https://castle-engine.io/modern_pascal_introduction_russian.html > а вот один из вариантов параллельности > https://wiki.freepascal.org/Parallel_procedures/ru > program Test; > {$mode objfpc}{$H+} > uses {$IFDEF UNIX} cthreads, cmem, {$ENDIF} MTProcs; > // простая параллельная процедура > procedure DoSomethingParallel(Index: PtrInt; Data: Pointer; Item: TMultiThreadProcItem); > var > i: Integer; > begin > writeln(Index); > for i:=1 to Index*1000000 do ; // делаем некую работу > end; > begin > ProcThreadPool.DoParallel(@DoSomethingParallel,1,5,nil); // адрес, стартовый индекс, > конечный индекс, дополнительные данные > end.
	Введите код, изображенный на картинке: