Модель логически упорядоченных процессов

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

>, А.Вудхалл - СПб.: 2006.

.Першиков В. И., Савинков В. М. Толковый словарь по информатике / Рецензенты: канд. физ.-мат. наук А. С. Марков и д-р физ.-мат. наук И. В. Поттосин. - М.: Финансы и статистика, 1991. - 543 с.

.=StructuredComputerOrganization.-.:,1979.-547">Таненбаум Э. С. Многоуровневая организация ЭВМ = Structured Computer Organization. - М.: Мир, 1979. - 547 с

.Иртегов Д. В. Введение в операционные системы. - 2-е изд. - СПб.: БХВ -СПб, 2007.

 

 

Приложение

 

. Основная структура программы.

unit Unit1;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, ComCtrls, XPMan, SYNCOBJS, Unit2, Unit3;= class(TForm): TPanel;: TButton;: TEdit;: TEdit;: TLabel;: TLabel;: TRichEdit;: TXPManifest;: TOpenDialog;Button2Click(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }: Thread1;: Thread2;;: TForm1;: TEvent;

{$R *.dfm}TForm1.Button2Click(Sender: TObject);OpenDialog1.Execute then.Lines.LoadFromFile(OpenDialog1.FileName);;;TForm1.Button1Click(Sender: TObject);:= TEvent.Create(nil, false, true, );:= Thread1.Create(False);:= Thread2.Create(False);;.

. Поток № 1:Unit2;, SYNCOBJS, windows;= class(TThread)

{ Private declarations }Execute; override;;MaskUtils,Unit1, SysUtils;Thread1.Execute;.WaitFor(infinite);(1000);.RichEdit1.Lines.Add(Welcome to Hell!!!);.Edit1.text :=Done;.SetEvent;;.

. Поток № 2:Unit3;, SYNCOBJS, windows;= class(TThread)

{ Private declarations }Execute; override;;unit1, sysUtils;Thread2.Execute;.WaitFor(infinite);(1000);.RichEdit1.Lines.Add(And goodbye!!!);.Edit2.text :=Done;.SetEvent;

end;.