Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 11.04.2015
Сообщений: 19
1

Как заставить работать 2 части программы одновременно?

11.04.2015, 20:02. Просмотров 1828. Ответов 2
Метки нет (Все метки)


Так, как программа линейная то все получается по порядку, а меня это не устраивает. Мне нужно чтобы 1 часть и 2 часть стартанули одновременно
Для примера:
Код
uses crt;
begin{первая часть}
write('1');
delay(500);
write('1');
delay(500);
write('1');
delay(500);
write('1');
delay(500);
writeln('hi');
begin{2 часть}
write('2');
delay(700);
write('2');
delay(700);
write('2');
delay(700);
write('2');
delay(700);
writeln('2');
end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2015, 20:02
Ответы с готовыми решениями:

Лабиринт. Заставить 2 части приложения работать одновременно.
Привет. от нечего делать начал писать что-то типа лабиринта (игру, или типа того). есть две части:...

Как "заставить" работать две команды одновременно?
???

Как заставить потоки работать одновременно?
Для ядра Linux 2.6.18 или новее написать модуль, который будет делать следующее: 1. Сформировать...

Как заставить работать потоки одновременно
Привет,Я запускаю два потока пуля и самолет но они работают в таком порядке сначала пуля летит до...

2
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
11.04.2015, 21:03 2
Лучший ответ Сообщение было отмечено dsfsaegf как решение

Решение

При одинаковой задержке это возможно, при разных никак.

Добавлено через 6 минут
Например так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i:byte;
begin
for i:=1 to 5 do
 begin
  gotoXY(i,1);
  if i<5 then write(1)
  else write('hi');
  gotoXY(i,2);
  write(2);
  delay(500);
 end;
end.
0
Модератор
Эксперт по электронике
7487 / 3687 / 1445
Регистрация: 01.02.2015
Сообщений: 11,470
Записей в блоге: 2
12.04.2015, 07:21 3
Или выбрать квант времени такой, чтобы он устраивал оба процесса. И тогда 1-му процессу передаётся управление через, например, 17 тактов, а 2-му - через, например, 67 тактов. Условный код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Count1:=0;
  Count2:=0;
  while условие do
  begin
    delay(100);
    inc(Count1);
    inc(Count2);
    if Count1=5 then
    begin
      Count1:=0;
      действия
    end;
    if Count2=7 then
    begin
      Count2:=0;
      действия
    end;
  end;
Но надо понимать, что delay имеет конечную точность с некоторой дискретностью - кажется, 55мс (могу ошибаться).
При программировании микроконтроллеров (которые не на Linux) подобный самописный код называют "планировщиком задач".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2015, 07:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как заставить работать одновременно два сетевых подключения
Добрый день! направьте пожалуйста по правильному пути, в ПК два сетевых адаптера: 1. В первую...

Как заставить работать на ноутбуке asus k42j микрофон и наушники одновременно?
Здравствуйте, вопрос в заключается в следующем на данном ноутбуке всего один разьём под наушники и...

Не могу заставить два монитора работать одновременно
Всем привет! Такая проблема друзья: имеется монитор LG W2242, подключенный через HDMI, и второй...

Можно ли заставить Tomcat работать одновременно на 2-х портах
Мне нужно настроить Tomcat так , чтобы например на aaa.ru:80 - был один сайт, а на aaa.ru:8081 -...

Не получается заставить работать одновременно два jQuery решения
Установил галерею PhotoSwipe и есть меню с всплывающей картинкой при наведении на пункт - не хотят...

Мультипоточность, заставить работать большое кол-во потоков одновременно
Всем привет! Продолжаю свою прошлую тему - https://www.cyberforum.ru/csharp-net/thread826867.html....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.