VPF::Очередь без приоритета - Форум программистов

aleknek

Дата 2.3.2006, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Посоветуйте, пожалуйста, как написать алгоритм для программы, реализующую прохождение заявок к процессору. Должно быть двадцать заявок, одна очередь, длина заявок меняется от трёх до семи, при этом квант процессора равен пяти, это означает, если на процессор приходит заявка, длина, которой больше пяти, значит процессором, обрабатывается пять тактов, а оставшиеся идут в конец очереди.

_hunter

Дата 2.3.2006, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

так а в чем проблема?
+ разбей задачу на составляющие -- сначала напиши класс "очередь", потом реализуй "процессор"

--------------------

Tempora mutantur, et nos mutamur in illis...

Демо

Дата 2.3.2006, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Задачу можно разбить на более мелкие субъекты:

1. Заявка.
Атрибуты: Длина заявки.

2. Очередь.
Атрибуты: Максимальная длина очереди.

3. Процессор.
Атрибуты: Максимальная длина шага(кванта).

Заявку удобно реализовать как Record, хотя можно и как класс, и класс, и как TObject.
Очередь удобно реализовать в виде класса, реализующего дву(одно)связный список.
Процессор удобно реализовать в виде класса.

Собственно, это и все.

--------------------

aleknek

Дата 2.3.2006, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Мне не совсем понятно, как это все надо написать, просто я новичок в этом деле и классы я еще никогда не писал, на Delphi я писал программки, но они были очень примитивные и простые, а тут задали курсовую я и задумался, если можно помогите пожалуйста в написании.

Заранее благодарен.

Демо

Дата 2.3.2006, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Вот простейший класс - "Заявка"

Код


  TClaim=class
  private
    FCount: Integer;
  public
    constructor Create;
    function DecCount: Integer;

    property Count: Integer read FCount;
  end;

{ TClaim }

constructor TClaim.Create;
begin
    FCount := Random(7)+1;
end;

function TClaim.DecCount: Integer;
begin
    if FCount>0 then Dec(FCount);
    Result := FCount;
end;

Это сообщение отредактировал(а) Демо - 2.3.2006, 23:55

--------------------

aleknek

Дата 3.3.2006, 00:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Спасибо огромное, буду пробовать.

Демо

Дата 3.3.2006, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Следующий класс - "Очередь".

Очередь можно сделать как наследник стандартного класса Delphi - TList:

Код


  TTurn=class(TList)
  private
    function GetItems(Index: Integer): TClaim;
    procedure SetItems(Index: Integer; const Value: TClaim);
  public
    destructor Destroy; override;
    function Add(Item: TClaim): Integer;
    procedure Delete(Index: Integer);
    procedure MoveToLast;

    property Items[Index: Integer]: TClaim read GetItems write SetItems;
  end;

{ TTurn }

function TTurn.Add(Item: TClaim): Integer;
begin
    Result := Add(Item);
end;

procedure TTurn.Delete(Index: Integer);
begin
    TClaim(Items[Index]).Free;
    inherited Delete(Index);
end;

destructor TTurn.Destroy;
begin
  while Count>0 do Delete(0);
  inherited;
end;

function TTurn.GetItems(Index: Integer): TClaim;
begin
    Result := Items[Index];
end;

procedure TTurn.MoveToLast;
begin
    Add(Items[0]);
    inherited Delete(0);
end;

procedure TTurn.SetItems(Index: Integer; const Value: TClaim);
begin
    Items[Index] := Value;
end;

Это сообщение отредактировал(а) Демо - 3.3.2006, 00:36

--------------------

Демо

Дата 3.3.2006, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Ну и, наконец, класс 'Процессор':

Код


  TProcessor=class
  private
    FMaxClaims: Integer;
    FTurn: TTurn;
    procedure SetMaxClaims(const Value: Integer);
    procedure ExecStep(Claim: TClaim);
  public
    constructor Create(MaxClaims: Integer=20);
    destructor Destroy; override;
    procedure AddClaim(Claim: TClaim);
    procedure Execute;

    property MaxClaims: Integer read FMaxClaims write SetMaxClaims;
  end;

{ TProcessor }

procedure TProcessor.AddClaim(Claim: TClaim);
begin
    if FTurn.Count=FMaxClaims
        then raise Exception.Create('Нельзя добавить новую заявку, превышено максимальное число заявок - '+IntToStr(FMaxClaims));
    FTurn.Add(Claim);
end;

constructor TProcessor.Create(MaxClaims: Integer);
begin
    FMaxClaims := MaxClaims;
    FTurn := TTurn.Create;
end;

destructor TProcessor.Destroy;
begin
    FTurn.Free;
    inherited;
end;

procedure TProcessor.ExecStep(Claim: TClaim);
begin
    Claim.DecCount;
end;

procedure TProcessor.Execute;
var
    i: Integer;
begin
    while FTurn.Count>0 do
    begin
      for i := 0 to MaxSteps-1 do
      begin
          ExecStep(FTurn[0]);
          if FTurn[0].Count=0 then break;
      end;
      if FTurn[0].Count=0
        then FTurn.Delete(0)
        else FTurn.MoveToLast;
    end;
end;

procedure TProcessor.SetMaxClaims(const Value: Integer);
begin
    if Value=FMaxClaims then Exit;
    if (FTurn.Count=FMaxClaims) and (Value<FMaxClaims)
        then raise Exception.Create('Нельзя установить максимальное число заявок в '+IntToStr(Value)+
                                    ', число текущих заявок в обработке - '+IntToStr(FTurn.Count));
    FMaxClaims := Value;
end;

Добавлено @ 00:43
Вот тебе весь получившийся модуль:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
    MaxSteps=5;
type

  TClaim=class
  private
    FCount: Integer;
  public
    constructor Create;
    function DecCount: Integer;

    property Count: Integer read FCount;
  end;

  TTurn=class(TList)
  private
    function GetItems(Index: Integer): TClaim;
    procedure SetItems(Index: Integer; const Value: TClaim);
  public
    destructor Destroy; override;
    function Add(Item: TClaim): Integer;
    procedure Delete(Index: Integer);
    procedure MoveToLast;

    property Items[Index: Integer]: TClaim read GetItems write SetItems; default;
  end;

  TProcessor=class
  private
    FMaxClaims: Integer;
    FTurn: TTurn;
    procedure SetMaxClaims(const Value: Integer);
    procedure ExecStep(Claim: TClaim);
  public
    constructor Create(MaxClaims: Integer=20);
    destructor Destroy; override;
    procedure AddClaim(Claim: TClaim);
    procedure Execute;

    property MaxClaims: Integer read FMaxClaims write SetMaxClaims;
  end;

  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TClaim }

constructor TClaim.Create;
begin
    FCount := Random(7)+1;
end;

function TClaim.DecCount: Integer;
begin
    if FCount>0 then Dec(FCount);
    Result := FCount;
end;


{ TTurn }

function TTurn.Add(Item: TClaim): Integer;
begin
    Result := Add(Item);
end;

procedure TTurn.Delete(Index: Integer);
begin
    TClaim(Items[Index]).Free;
    inherited Delete(Index);
end;

destructor TTurn.Destroy;
begin
  while Count>0 do Delete(0);
  inherited;
end;

function TTurn.GetItems(Index: Integer): TClaim;
begin
    Result := Items[Index];
end;

procedure TTurn.MoveToLast;
begin
    Add(Items[0]);
    inherited Delete(0);
end;

procedure TTurn.SetItems(Index: Integer; const Value: TClaim);
begin
    Items[Index] := Value;
end;

{ TProcessor }

procedure TProcessor.AddClaim(Claim: TClaim);
begin
    if FTurn.Count=FMaxClaims
        then raise Exception.Create('Нельзя добавить новую заявку, превышено максимальное число заявок - '+IntToStr(FMaxClaims));
    FTurn.Add(Claim);
end;

constructor TProcessor.Create(MaxClaims: Integer);
begin
    FMaxClaims := MaxClaims;
    FTurn := TTurn.Create;
end;

destructor TProcessor.Destroy;
begin
    FTurn.Free;
    inherited;
end;

procedure TProcessor.ExecStep(Claim: TClaim);
begin
    Claim.DecCount;
end;

procedure TProcessor.Execute;
var
    i: Integer;
begin
    while FTurn.Count>0 do
    begin
      for i := 0 to MaxSteps-1 do
      begin
          ExecStep(FTurn[0]);
          if FTurn[0].Count=0 then break;
      end;
      if FTurn[0].Count=0
        then FTurn.Delete(0)
        else FTurn.MoveToLast;
    end;
end;

procedure TProcessor.SetMaxClaims(const Value: Integer);
begin
    if Value=FMaxClaims then Exit;
    if (FTurn.Count=FMaxClaims) and (Value<FMaxClaims)
        then raise Exception.Create('Нельзя установить максимальное число заявок в '+IntToStr(Value)+
                                    ', число текущих заявок в обработке - '+IntToStr(FTurn.Count));
    FMaxClaims := Value;
end;

initialization
    Randomize;
end.

А в качестве тренировки предлагаю самому добавить в TProcessor установку разиера кванта (вместо константы MaxSteps), а также отладить и исправить все это дело как нужно.

Это сообщение отредактировал(а) Демо - 3.3.2006, 00:50

--------------------

aleknek

Дата 3.3.2006, 00:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Спасибо, завтра попытаюсь со всем этим разобраться и довести до ума.

aleknek

Дата 15.3.2006, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Все равно я чего то недопонимаю, пытаюсь создать приложение, в котором будут видны заявки, которые обрабатываются процессором, а какие идут в конец очереди,т.е необходимо чтобы было десять таблиц, где дельта Т изменяеться от одного до десяти ( где дельта-время поступления заявки в систему ), не могу понять как? Посоветуйте, пожалуйста .

Это сообщение отредактировал(а) aleknek - 16.3.2006, 10:12

_hunter

Дата 16.3.2006, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

неможеш понять что?
как 10 таблиц на форму прилепить?
+ зачем 10 таблиц? может проще в одной таблице 11 чтолбцов сделать?

--------------------

Tempora mutantur, et nos mutamur in illis...

aleknek

Дата 17.3.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Таблица я думаю должна быть одна, в которой меняя дельта Т (которых, будет десять) , можно будет отследить значения FCount , а не понятно мне как в классе ТForm отобразить данные из классов TClaim, TTurn и TProcessor, может это очень примитивно, но я пока этого не понимаю. Заранее благодарен.

_hunter

Дата 17.3.2006, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

это все хорошо, но вопрос где?

--------------------

Tempora mutantur, et nos mutamur in illis...

Guedda

Дата 17.3.2006, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата

не понятно мне как в классе ТForm отобразить данные из классов TClaim, TTurn и TProcessor, может это очень примитивно, но я пока этого не понимаю. Заранее благодарен.

Вот это и вопрос.

Смотря, где ты хочешь отобразить...

--------------------

Ll 2

aleknek

Дата 17.3.2006, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Все это я хочу отобразить на стандартной форме класса TForm.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »