параллельные потоки

[Алма]

Здравствуйте!Помогите пожалуйста в решении задачи.

"На любом языке программирования написать программу, которая параллельно выводит в одну консоль (в один терминал) символы '+' и '-'.
Более точно: создать с помощью инструментов программирования ситуацию, когда в операционной системе одновременно (в разных потоках/нитях/тредах/процессах) выполняются 2 программных кода, один из которых выводит в окно терминала символы + (плюс), а другой -(минус).
При этом в окне терминала будет отображаться что-то похожее на это:
----++++----++++---++-+++----++-------++++----+++-
Задача заключается не в выводе плюсов и минусов. Задача состоит в создании двух параллельно работающих потоков (или процессов) с общим ресурсом (файлом) для вывода результата. То, в каком порядке операционная система будет давать этим потокам "право вывести на экран свой знак" - это уже проблема операционной системы."

[veniside]

program
  conPM;

{$APPTYPE CONSOLE}

uses
  Windows, Classes;

type
  myThread = class(TThread)
  private
    f_char: char;
    f_shouldStop: boolean;
  protected
    procedure execute(); override;
  public
    constructor create(c: char);
    procedure BeforeDestruction(); override;
  end;

{ myThread }

// --  --
constructor myThread.create(c: char);
begin
  f_char := c;
  //
  inherited create(false);
end;

// --  --
procedure myThread.execute();
begin
  while (not f_shouldStop) do begin
    //
    write(f_char);
    Sleep(100);
  end;
end;

// --  --
procedure myThread.BeforeDestruction();
begin
  f_shouldStop := true;
  //
  inherited;
end;


// -- main --

begin
  writeln('Press Enter to stop');
  //
  with (myThread.create('+')) do begin
    with (myThread.create('-')) do begin
      //
      ReadLn;
      //
      Free();
    end;
    Free();
  end;
end.

[Алма]

спасибо огромное!а это на каком языке?=)

[Алма]

почему то подумала что паскаль но не находит модуль windows

[veniside]

Это Дельфи.

[*PB*]

Сообщение от Алма

При этом в окне терминала будет отображаться что-то похожее на это:
----++++----++++---++-+++----++-------++++----+++-

Код на PureBasic

Procedure Thread(*s)
  String.s=PeekS(*s,1)
  Repeat
    Print(String)
    Delay(Random(100))
  ForEver
EndProcedure

If OpenConsole()
  CreateThread(@Thread(), @"+")
  CreateThread(@Thread(), @"-")
  Input()
EndIf

Скомпилированный исполняемый файл в архиве

[Алма]

Спасибо,это решение выглядит намного проще,но такое к сожалению в нашей группе уже было=(Поэтому его я сдать не смогу=(