![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Разработать структуру объекта "Смеситель горячей и холодной воды". Объект должен иметь не менее пяти методов
и не менее трех свойств. Разработать программу моделирования работы данного объекта. |
|
#2
|
||||
|
||||
|
Не, ну это совсем наглость. Где наработки?
|
|
#3
|
|||
|
|||
|
Идеи есть, хотелось бы узнать с чего лучше начинать
|
|
#4
|
||||
|
||||
|
Delphi запусти.
|
|
#5
|
|||
|
|||
|
Точно.. Спасибо за помощь
|
|
#6
|
|||
|
|||
|
Ну... примерно так:
Код:
type
TWaterTemp = (wtNone, wtCold, wtWarm, wtHot);
TSmesitel = class
private
FIsHotOpen : Boolean;
FIsColdOpen : Boolean;
FIsShower : Boolean;
function GetWaterTemp : TWaterTemp;
public
constructor Create;
destructor Destroy; override;
procedure OpenHot;
procedure OpenCold;
procedure CloseHot;
procedure CloseCold;
procedure TurnShower;
property IsColdOpen : Boolean read FIsColdopen;
property IsHotOpen : Boolean read FIsHotOpen;
property IsShower : Boolean read FIsShower;
property WaterTemp : TwaterTemp read GetWaterTemp;
end;
...
..
function TSmesitel.GetWaterTemp : TWaterTemp;
begin
If FIsColdOpen And FIsHotOpen
Then Result := wtWarm
Else
If FIsColdOpen And (Not FIsHotOpen)
Then Result := wtCold
Else
If (Not FIsColdOpen) And FIsHotOpen
Then Result := wtHot
Else Result := wtNone;
end;ну а дальше - реализуй объявленные методы и доработай в соотв. со своей фантазией... |