Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Новички в программировании > Паскаль
Регистрация

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



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

Паскаль ABC использую я. Консольное приложение.
Суть: нужно параллельно выполнить два куска кода. А именно:
Крутить "в фоновом режиме" бесконечный цикл с условием выхода, который зависит от переменных Х У, и в то же время иметь возможность изменять эти переменные в любой момент и останавливать фоновый цикл.
Грубо говоря, нужно, что бы это выполнялось в фоне:
Код:

repeat 
x:=x+y;
clrscr;
write(x,' ',y)
until t='q'
А это это было основной программой: 
readln(y);
read(t);

Возможно ли это вообще?
Можно конечно сделать, что бы запускались две программы, а Х и У были общими из текстового файла, но тогда как сделать так, что одна из программ запускалась в фоновом режиме?

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

Смысл в этой программе? Вы же не сможете мгновенно остановить программу. Пока нажмете кнопку, пока подумаете, потом нажмете 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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




07:40.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru