Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2016, 09:11   #1
Kujivunia
Новичок
Джуниор
 
Регистрация: 30.12.2016
Сообщений: 1
По умолчанию Параллельное выполнение двух кусков кода pas abc

Паскаль ABC использую я. Консольное приложение.
Суть: нужно параллельно выполнить два куска кода. А именно:
Крутить "в фоновом режиме" бесконечный цикл с условием выхода, который зависит от переменных Х У, и в то же время иметь возможность изменять эти переменные в любой момент и останавливать фоновый цикл.
Грубо говоря, нужно, что бы это выполнялось в фоне:
Код:
repeat 
x:=x+y;
clrscr;
write(x,' ',y)
until t='q'
А это это было основной программой: 
readln(y);
read(t);
Возможно ли это вообще?
Можно конечно сделать, что бы запускались две программы, а Х и У были общими из текстового файла, но тогда как сделать так, что одна из программ запускалась в фоновом режиме?

Последний раз редактировалось Вадим Мошев; 30.12.2016 в 22:39.
Kujivunia вне форума Ответить с цитированием
Старый 31.12.2016, 02:07   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Смысл в этой программе? Вы же не сможете мгновенно остановить программу. Пока нажмете кнопку, пока подумаете, потом нажмете Enter. x изменится 1000 раз.
Ну вот что то подобное написал на вашем Pascal ABC.Net.
Код:
uses crt;
var x,y,t:integer;
begin
{$omp parallel sections}
  begin
    repeat
      x:=x+y;
      clrscr();
      writeln(x,' ',y);
    until t=-1;
    begin
      repeat
        readln(y,t);
      until t=-1;
    end;
 end;
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто поможет собрать программу из кусков кода Kvinto Общие вопросы Delphi 25 12.07.2016 19:15
Параллельное добавление данных в двух таблицах Avetis62 Microsoft Office Access 6 30.06.2016 15:19
Sleep останавливает выполнение всего в программе а не задерживает выполнение конкретного куска кода? Illusiony Общие вопросы Delphi 19 22.02.2015 18:37
Посоветуйте удобную программу для сохранения кусков кода tumanovalex Софт 5 20.06.2013 14:38
Параллельное скачивание или как добиться скачивания сразу двух файлов fezilk25 Работа с сетью в Delphi 5 07.02.2011 22:22