Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
seosage
0 / 0 / 0
Регистрация: 25.10.2011
Сообщений: 70
1

Задача по классам и объектам

28.02.2012, 08:52. Просмотров 922. Ответов 1
Метки нет (Все метки)

Описать указанный класс (методы перечислены в скобках, поля выбрать самостоятельно). Создать и инициализировать экземпляр этого класса. Вызвать каждый метод.

Целое число (проверить делимость на данное целое, умножить, прибавить)

Подскажите пожалуйста, как делать?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2012, 08:52
Ответы с готовыми решениями:

Обращения к нескольким объектам
Имеется такая ситуация: у меня на форме распологаются десятки кнопок (button1....battonn) к ним...

Обращение к объектам, расположенным на MDIChild
На главной форме расположено меню. Средствами этого меню создается дочерняя форма. Но из этого же...

Написать программу по классам Delphi
Создать класс магазин:свойства-район,название,выручка,метод-определить выручку в районе. По...

Применить процедуру ко всем объектам 1 типа
Подскажите как сделать так чтобы применить одну процедуру ко всем объектам одного типа на одной...

Загрузить изображения к динамически созданным объектам
Добрый вечер, помогите разобраться с ошибкой. При запуске программы, динамически создается только...

1
DenNik
Непрофессионал
1801 / 1406 / 307
Регистрация: 26.07.2011
Сообщений: 7,849
28.02.2012, 10:37 2
Лучший ответ Сообщение было отмечено seosage как решение

Решение

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  // описание класса
  TIntNumber = class(TObject)
    Number: integer;
  public
    constructor Create(InitNum: integer);
    function IsDividing(Value: integer): boolean;
    procedure MultiPly(Value: integer);
    procedure Add(Value: integer);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TIntNumber }
 
procedure TIntNumber.Add(Value: integer);
begin
  // прибавляем заданное число
  Number:= Number + Value;
end;
 
constructor TIntNumber.Create(InitNum: integer);
begin
  // присвоить число при создании
  Number:= InitNum;
end;
 
function TIntNumber.IsDividing(Value: integer): boolean;
begin
  // true, если делится на данное число без остатка
  Result:= (Number mod Value) = 0;
end;
 
procedure TIntNumber.MultiPly(Value: integer);
begin
  // умножаем число на данное
  Number:= Number * Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  IntNum: TIntNumber;
begin
  // создаем экземпляр класса
  // с одновременной инициализацией числом 100
  IntNum:= TIntNumber.Create(100);
  if IntNum.IsDividing(50) then
    ShowMessage('Число делится на 50 без остатка');
  // умножаем на 23
  IntNum.MultiPly(23);
  // отнимаем 532
  IntNum.Add(-532);
  ShowMessage('Число = '+IntToStr(IntNum.Number));
end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2012, 10:37

По классам: прямая линия в пространстве, её обход
unit Actions; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Применение команды, одновременно ко всем дочерним объектам
Как я могу применить определенную команду ко всем дочерным объектам? Например: у меня 20 label,...

Задача по объектам и классам
Задача из книги Праты. Дан заголовочный файл, нужно определить методы и написать программу....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru