|
|
Регистрация | << Правила форума >> | 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; ну а дальше - реализуй объявленные методы и доработай в соотв. со своей фантазией... |