1 / 1 / 1
Регистрация: 24.04.2012
Сообщений: 16
1

Реализация задачи (Имплементация методов класса)

04.06.2014, 23:44. Показов 788. Ответов 1
Метки нет (Все метки)

Всем привет! Ребятки, нужна ваша помощь.
Преподаватель поставил задачу, каждому взять тему и реализовать ее в паскале.
В общем, не смейтесь, моя тема - окраска волос хной.
Поставленные задачи:
1) Декларация классов - сделано.
2) Имплементация методов класса - кодирование - еще не выполнено.

Итак, в кратце, берем 2 ингридиента: 1)порошок хны, 2)воду, мешаем их и получаем смесь, наносим ее на волосы с помощью действий и вспомогательных инструментов и получаем в итоге окрашенные волосы
Нужна помощь со вторым пунктом, с реализацией задачи.
Код:
Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Program Okraska;
{$mode objfpc}
uses crt;
 
type TInstrument = (TImiska,TIlojka,TIras4eska,TIkisto4ka);   //вспомогательные инструменты
type  TInstruments = set of TInstrument;
////////////////////////////////////////////////////////////////////////
{класс ingredient}
type TIngredient = class
 
Private
FName : string;
FComponent1 : TIngredient ;  
FComponent2 : TIngredient ;
FMaterial : string; 
FColor : string;
  
Public
property Name: string read FName;  //Имя
property Component1: TIngredient read FComponent1 write FComponent1;      //Состав 1 ингрeдиент
property Component2: TIngredient read FComponent2 write FComponent2;      //Состав 2 ингрeдиент
property Material: string read FMaterial;      //Материал
property Color: string read FColor;     //Цвет
 
end;
////////////////////////////////////////////////////////////////////////
{класс Action}
type TAction = class
 
Private
FName : string;
FInstrument : TInstruments;
 
Public
Ingredients: array of TIngredient;   //Массив 2ух Ингрeдиентов
property Name: string read FName;  //Имя
property Instruments : TInstruments read FInstrument;   //Инструменты
function DoAction() : TIngredient; virtual;abstract;{override}
 
end;
////////////////////////////////////////////////////////////////////////
{класс TIspolnitel}
type TIspolnitel = class
 
Private
FActions: array of TAction;  //Массив действий
FPlan : string; 
procedure setAction(i:integer; value: TAction); virtual;
function getAction(i:integer) : TAction; virtual;abstract;
 
Public
property Plan: string read FPlan;  //План
property Actions[i:integer]: TAction read getAction write setAction;  //Действия
 
end;
////////////////////////////////////////////////////////////////////////
{Наследник Action'a TMakeSmes}
type TMakeSmes  = class(TAction)
 
public
function DoAction() : TIngredient; override;   //действие - создание смеси
end;
/////////////////////////////////////////////////////////////////////////
{Наследник Action'a Nanesenie}
type TNanesenie  = class(TAction)
 
public
function DoAction() : TIngredient; override;   //действие - нанесение смеси
end;
////////////////////////////ОПИСАНИЕ ПРОЦЕДУР////////////////////////////
{procedure TAction.setIngredient(n:integer; value: TIngredient);
begin
 
end;}
////////////////////////////////////////////////////////////////////////
procedure TIspolnitel.setAction(i:integer; value: TAction);
begin
FActions[i] := Value;  
end;
////////////////////////////////////////////////////////////////////////
function TMakeSmes.DoAction() : TIngredient;   //описание действия - создание смеси
var
 M: TIngredient;
begin
M := TIngredient.create;   //описание действия - создание смеси
M.Component1 := Ingredients[1];  
M.Component2 := Ingredients[2];
DoAction := M;
end;
////////////////////////////////////////////////////////////////////////
BEGIN
 
END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2014, 23:44
Ответы с готовыми решениями:

Реализация методов шаблонного класса
Можно ли вынести реализацию конструкторов, методов за пределы шаблонного класса? Допустим вот...

Реализация методов абстрактного класса
Суть задания реализация перевода введенной суммы гривен в другие валюты(рубли,евро, доллар)...

Реализация методов вложенного класса
Здравствуйте, необходимо реализовать внешний и вложенный закрытый класс, прим.: A.h class A:{ ...

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

1
1 / 1 / 1
Регистрация: 24.04.2012
Сообщений: 16
06.06.2014, 22:13  [ТС] 2
Разобралась!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2014, 22:13
Помогаю со студенческими работами здесь

Реализация методов SetItem GetItem класса TMatrix
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Родительский объект по отношению к дочерним. Реализация методов класса
Вопрос в принципе не очень сложный, но все таки я не могу его решить. Итак, есть класс Object, в...

Определение и реализация класса "Фигура". Разработка алгоритма решения задачи с использованием данного класса
Условие задачи:Дано множество окружностей. Среди окружностей, длина которых больше D, найти ту,...

Реализация методов класса "Компьютер"
Мне надо реализовать класс "Компьютер". В нем должны быть следующие поля: название компьютера, его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru