Параллельный вывод

[strangegirl]

Помогите,пожалуйста,создать программу,которая бы запускала в себе 2 потока: один выводит + , другой -
В итоге либо в файл, либо в терминал, либо в какое-то другое устройство вывода должно быть выведено что-то типа +------++++----+++++----++++

[sergey.d]

Если компилятор поддерживает OpenMP, то самый простой вариант -- использовать это. Например:

#pragma omp parallel sections
{
    #pragma omp section
    { while(true) printf("+"); }
    #pragma omp section
    { while(true) printf("-"); }
}

Не забудь включить поддержку OpenMP. Как именно это сделать, зависит от среды и компилятора.

[vr83]

Вот так можно, через таймер.

procedure TForm1.timer1Timer(Sender: TObject);
var
  Stream1, Stream2: TFileStream;
  Buf1, Buf2: array[0..10] of Char;
  i: Integer;
begin
  Randomize;
  for i := 0 to 10 do
    begin
    Buf1[i] := '+';
    Buf2[i] := '-';
    end;

    try
    Stream1 := TFileStream.Create('c:\pm.dat', fmOpenReadWrite);
    Stream1.Seek(0, soFromEnd);
    Stream1.Write(Buf1, (1 + Random(10)));
    finally
    Stream1.Free;
    end;

    try
    Stream2 := TFileStream.Create('c:\pm.dat', fmOpenReadWrite);
    Stream2.Seek(0, soFromEnd);
    Stream2.Write(Buf2, (1 + Random(10)));
    finally
    Stream2.Free;
    end;

end;

Или можно совместно использовать файл.

procedure TForm1.button1Click(Sender: TObject);
var
  Stream1, Stream2: TFileStream;
  Buf1, Buf2: array[0..10] of Char;
  Buf3: array[0..100000] of Char;
  i: Integer;
begin
  Randomize;
  for i := 0 to 10 do
    begin
    Buf1[i] := '+';
    Buf2[i] := '-';
    end;

  try
  Stream1 := TFileStream.Create('c:\pm.dat', fmOpenReadWrite+fmShareDenyNone);
  Stream1.Seek(0, soFromEnd);
  Stream1.Write(Buf1, (1 + Random(10)));
    try
    Stream2 := TFileStream.Create('c:\pm.dat', fmOpenReadWrite+fmShareDenyNone);
    Stream2.Seek(0, soFromEnd);
    Stream2.Write(Buf2, (1 + Random(10)));
    finally
    Stream2.Free;
    end;
    Stream1.Seek(0, soFromBeginning);
    Stream1.Read(Buf3, Stream1.Size);
    memo1.Lines.Add(StrPas(Buf3));
  finally
  Stream1.Free;
  end;
end;

[*PB*]

Код на PureBasic.
Используются 2 параллельных потока - данные выводятся в консоль.

Procedure Thread(*x)
  Symbol.s=PeekS(*x)
  Repeat
    Print(Symbol)
    Delay(Random(20)+2)
  ForEver
EndProcedure

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

Скомпилированый файл во вложении.

[strangegirl]

спасибо)
vr83, у меня возникает ошибка при компиляции

Unclared identifier: 'memo1'

[vr83]

это потому что на форме у вас нет мемо .
И еще вам нужно создать pm.dat