Реализация кода на Delphi

[greenleonardo]

Здравствуйте! Не знаю как написать процедуры procedure GiveDrink(dr:TDrink); и procedure ServeAllCustomers; //обслужить всех клиентов. Не могли бы Вы подсказать как эти процедуры реализовать?

interface
type
TDrinkType = (dtLong, dtShot) //тип напитка - лонг или шот
 
TDrink = class // напиток
private
FName:string;
FGrades:integer; // проценты содержания алкоголя
FDrinkType:TDrinkType; // тип напитка
public
property Grades:integer read FGrades; // проценты содержания алкоголя
property Name:string read FName; // название напитка
property DrinkType:string read FType; // тип напитка
function IsNonAlcoholic : boolean; // является ли безалкогольным
end;
 
TCustomer = class // посетитель
private
FName:string;
FAge:byte; // возраст посетителя
FDesiredDrink: TDrink; // напиток, который хочет посетитель
public
property Name:string read FName;
property Age:byte read FAge; // возраст
property DesiredDrink: TDrink read FDesiredDrink; // напиток, который хочет посетитель
procedure GiveDrink(dr:TDrink); // предоставить напиток
end;
 
TBarmen = class // бармен
private
FCustomers: TList; // все посетители бара
FDrinks: TList; // все напитки, которые есть в наличии
public
procedure ServeAllCustomers; //обслужить всех клиентов
function AnounceToughestDrink: string // возвращает название самого крепкого напитка
end;

[evg_m]

начнем с общего

procedure ServeAllCustomers; //обслужить всех клиентов

и что БАРМЕН по вашему мнению должен сделать чтобы "обслужить всех клиентов"
и кто это такие "все клиенты"
Можно не писать код, а рассказать своими словами опираясь на данные имеющиеся в классе. TBarmen = class // бармен

[greenleonardo]

он должен проверить, если клиенту нет 18 лет и он просит безалкогольный напиток, то выдать ему безалкогольный и, соответственно, наоборот

[Stilet]

GiveDrink это процедура заказа напитка у бармена, или процедура предложения барменом подходящего напитка?

[evg_m]

он должен проверить, если клиенту нет 18 лет и он просит безалкогольный напиток, то выдать ему безалкогольный и, соответственно, наоборот

У кого он должен проверить? {Телепапия Вкл.}У клиента.{Телепатия ВЫКЛ.}
У какого такого клиента ?
ведь нам нужно "обслужить всех клиентов".
Где он (TBarmen) может посмотреть всех своих клиентов ?
Как он их(клиентов) может перебрать ?
подсказка. Ведь для чего вы вводи в класс какие внутренние объекты (данные). Ну так дайте ответы на вопросы в терминах(именах) этих объектов.

to Stilet

FDesiredDrink: TDrink; // напиток, который хочет посетитель
procedure GiveDrink(dr:TDrink); // предоставить напиток

[greenleonardo]

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

посмотреть он может в списке FCustomers: TList, а перебрать их с помощью цикла

[Utkin]

он должен проверить, если клиенту нет 18 лет и он просит безалкогольный напиток, то выдать ему безалкогольный и, соответственно, наоборот

А если клиенту есть 18 лет и он просит безалкогольный коктейль? Не давать?
А как он будет проверять клиентов? То есть по каким признакам?

[Stilet]

Вообще задание мутно, но из того что понял могу предложить такое:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
      TForm1 = class(TForm)
      private
            { private declarations }
      public
            { public declarations }
      end;

      TDrinkType = (dtLong, dtShot); //тип напитка - лонг или шот

			{ TDrink }

      TDrink = class // напиток
      private
      FName:string;
      FGrades:integer; // проценты содержания алкоголя
      FDrinkType:TDrinkType; // тип напитка
			FType: string;
      public
      property Grades:integer read FGrades; // проценты содержания алкоголя
      property Name:string read FName; // название напитка
      property DrinkType:string read FType; // тип напитка
      function IsNonAlcoholic : boolean; // является ли безалкогольным
      end;

			{ TCustomer }
      TBarmen = class;
      TCustomer = class // посетитель
      private
      FName:string;
      FAge:byte; // возраст посетителя
      FDesiredDrink: TDrink; // напиток, который хочет посетитель
      public
      property Name:string read FName;
      property Age:byte read FAge; // возраст
      property DesiredDrink: TDrink read FDesiredDrink; // напиток, который хочет посетитель
      Function GiveDrink(Barmen:TBarmen):TDrink; // предоставить напиток
      end;

			{ TBarmen }

      TBarmen = class // бармен
      private
      FCustomers: TList; // все посетители бара
      FDrinks: TList; // все напитки, которые есть в наличии
      public
      procedure ServeAllCustomers; //обслужить всех клиентов
      function AnounceToughestDrink: string; // возвращает название самого крепкого напитка
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TBarmen }

procedure TBarmen.ServeAllCustomers;
var i,j:integer; dr:TDrink; s:string;
begin
 with FCustomers do for i:=0 to Count-1 do begin
   dr:=TCustomer(Items[i]).GiveDrink(self);
   if (dr=nil) then ShowMessage('Иди отседова, олкаш одеколонистый!') else
     if (dr.FDrinkType=dtLong) and (TCustomer(Items[i]).Age in [18..90]) then ShowMessage('Окей, бухай') else
       begin
         s:='Я тее налить могу только ';
         with FDrinks do  for j:=0 to FDrinks.Count-1 do
          if TDrink(Items[j]).FDrinkType=dtShot then s:=s+' '+TDrink(Items[j]).Name;
         ShowMessage(s);
			 end;
 end;
end;

function TBarmen.AnounceToughestDrink: string;
begin

end;

{ TCustomer }

function TCustomer.GiveDrink(Barmen: TBarmen): TDrink;
Var i:Integer;   DrinkName:String;
begin
 DrinkName:=InputBox('Че пить будем?');
 with Barmen.FDrinks do  for i:=0 to Count-1 do
  if TDrink(Items[i]).Name=DrinkName then begin
    Result:=TDrink(Items[i]); exit;
	end;
end;

{ TDrink }

function TDrink.IsNonAlcoholic: boolean;
begin

end;

end.

[greenleonardo]

Спасибо большое)