Материал из eSyr's wiki.

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

ЯП из курса: C, C++, Java, C#, Pascal, Delphi, Оберон-2, Модула-2, Ада (83 и 95 стандарты)

Полезные ссылки:

Сравнение ЯП в википедии

Энциклопедия языков программирования

Немножно рекламное сравнения большинства языков

Книжка Страуструпа

План (краткий, взят из методички Головина, подробный см. в самой методичке):

Содержание 1 Базисные типы данных в языках программирования: простые и составные типы данных, операции над ними 1.1 ADA 1.1.1 Поподробнее об Access 1.2 ОБЕРОН и ОБЕРОН-2: 1.3 Modula-2 1.4 Java 1.5 C++ 1.6 C# 2 Массивы 2.1 Длина массива - статический или динамический атрибут. 2.2 ОБЕРОН И ОБЕРОН-2 2.3 Modula-2 3 Управление памятью 3.1 Классы памяти 3.2 Указатели 4 Преобразование типов 4.1 Явное преобразование типов 4.2 Неявное преобразование типов 4.3 Понятия conversion и casting 4.4 Упаковка и распаковка 4.4.1 C# 4.4.2 Java 4.4.3 Другие языки 5 Операторный базис языков программирования. Управление последовательностью вычислений 5.1 ADA 5.2 ОБЕРОН И ОБЕРОН-2 5.3 for в C# и Java 6 Процедурные абстракции 6.1 Перегрузка операций 6.2 ADA 6.3 ОБЕРОН И ОБЕРОН-2 7 Определение новых типов данных. Логические модули. Классы 7.1 ADA 7.2 ОБЕРОН И ОБЕРОН-2 7.3 Modula-2 7.3.1 Перечислимый тип 7.3.2 Тип поддиапазон 7.3.3 Записи 7.4 Namespace в C# 7.5 Классы 7.5.1 Конструкторы 7.5.2 Деструкторы и финализаторы 7.5.3 Неявные контрукторы/деструкторы/операции в C++ 7.5.4 Свойства 7.5.5 Статические классы 7.6 Объединение типов (запись с вариантами) 7.7 Семантика копирования 8 Модульность и раздельная трансляция 8.1 Раздельная трансляция 8.2 Модульность 8.2.1 ОБЕРОН И ОБЕРОН-2 8.2.2 Modula-2 8.3 ADA 9 Исключительные ситуации и обработка ошибок 9.1 Исключения и блоки try {} catch {} finally {}. Семантика возобновления и семантика завершения. 9.2 throw (C++) и throws (Java) 9.3 Одно из заданий экзамена по ЯПам 9.4 ADA 10 Наследование типов и классов 10.1 C# и Java 10.2 ADA 11 Динамический полиморфизм 11.1 C# 11.1.1 virtual 11.1.2 override 11.1.3 new 12 Абстрактные типы данных, классы и интерфейсы 12.1 Абстрактный класс 12.2 Абстрактный тип данных 12.3 Пример абстрактного ТД и абстрактных функций в Ада95 12.4 Интерфейс 12.4.1 Явная и неявная реализация интерфейса 13 Множественное наследование 14 Динамическая идентификация типа 14.1 C++ 14.2 Delphi 14.3 C# 14.4 Оберон-2 14.4.1 Проверка типа 14.4.2 Охрана типа 14.5 Java 14.6 ADA 15 Понятие о родовых объектах. Обобщенное программирование 15.1 ADA 15.2 C# 16 Параллельное программирование 16.1 ADA 17 Примеры кода 17.1 Примеры кода на Java 17.2 Пример кода на Delphi 17.3 Примеры на C++, Ада и Java с использованием шаблонов 17.4 Пример кода на С# 17.5 Моделирование приватных типов данных из Ады в C++ 17.6 Эмуляция в Java private и limited private из Ады 18 Итоговая таблица 19 Примечания

Базисные типы данных в языках программирования: простые и составные типы данных, операции над ними

ADA

Integer

Размер не фиксирован.

Character

Как я понял, существует несколько разновидностей (зависит от размера) и является особым перечислимым типом (Enumeration)

String

Массив Character фиксированной длины. Так же есть стандартные пакеты, реализующие строки квазистатической и динамической длины.

Floating point

Эти типы обычно определяются вручную в виде конструкции, где Num_Digits указывает минимальную (минимально допустимую?) погрешность:

digits Num_Digits

Fixed Point

Эти типы также обычно определяются вручную в виде конструкции, где Delta означает погрешность:

delta Delta range Low .. High

Boolean

Перечислимый тип с особой семантикой, состоящий из значений true и false

Access

Тип указателя в языке ADA, с некоторой своей особой семантикой. В отличие от других языков (таких как C/C++) тип Access может указывать только на объекты в динамической области памяти. Кроме того этот тип лишен адресной арифметики. Эти два факта якобы позволяют избежать ошибок, связанных с указателями в С/С++. Однако, тип Access в Аде не лишен проблем висячих ссылок и мусора, ситуаций из-за которых возникает подавляющее количество очень неприятных ошибок в языках C/C++. Однако стоит отдать должное языку Ада: большинство ситуаций, в которых можно использовать адрес, зачастую решаются другими способами.

use Smth_Package.Entity;
type Entity_Access is access Entity;
A1, A2 : Entity_Access;
begin
   A1   := new Entity;
   A1   := new Entity; -- Образовался мусор
   A2   := A1;
   Free_Entity (A1); -- A1 теперь null 
                     -- A2 теперь - висячая ссылка 
end

Поподробнее об Access

Здесь будем пользоваться следующим примером:

type Person is record
   First_Name : String (1..30);
   Last_Name  : String (1..20);
end record;
  
type Person_Access is access Person;

Так как в Аде указатели могут указывать на объекты только из динамической памяти, тип Access очень тесно связан с кучей (в Аде вместо понятия кучи используется понятие пула). Такая связь позволяет для каждого типа объекта держать свой отдельный пул, который может управляться программистом, например можно вручную изменять размер пула:

for Person_Access'Size use New_Size; -- 0 запрещает создание новых объектов в пуле

Создадим пару экземпляров нашей структуры:

Father: Person_Access := new Person;                                          -- неинициализовано
Mother: Person_Access := new Person'(Mothers_First_Name, Mothers_Last_Name);  -- инициализованно

Тип Access - это высокоуровневый указатель, представленный записью с полями. Например, разименовать указатель можно следующим образом:

Mother.all.Last_Name = Father.all.Last_Name -- здесь, Mother.all имеет тип Person;

Кроме того типы указателей различаются уровнями доступа (read-only и read-write):

 type Person_Read_Access is access constant Person; -- read-only
 type Person_RW_Access is access all Person; -- read-write

Кроме оператора new в пуле переменные можно размещать модификатором aliased (у таких переменных есть атрибут 'Access):

 Child: aliased Person;
 Child_Access: Person_Access := Child'Access

Есть еще очень много интересного по этой теме. Все было взято тут.

ОБЕРОН и ОБЕРОН-2:

Отличия

В Оберон-2 добавлены

связанные с типом процедуры;

экспорт только для чтения;

открытые массивы в качестве базового типа для указателей;

оператор with с вариантами;

оператор for.

Основные типы

1. BOOLEAN логические значения TRUE и FALSE

2. CHAR символы расширенного набора ASCII (0X .. 0FFX)

3. SHORTINT целые в интервале от MIN(SHORTINT) до MAX(SHORTINT)

4. INTEGER целые в интервале от MIN(INTEGER) до MAX(INTEGER)

5. LONGINT целые в интервале от MIN(LONGINT) до MAX(LONGINT)

6. REAL вещественные числа в интервале от MIN(REAL) до MAX(REAL)

7. LONGREAL вещественные числа от MIN(LONGREAL) до MAX(LONGREAL)

8. SET множество из целых от 0 до MAX(SET)

Типы от 3 до 5 - целые типы, типы 6 и 7 - вещественные типы, а вместе они называются числовыми типами. Эти типы образуют иерархию; больший тип поглощает меньший тип:

LONGREAL >= REAL >= LONGINT >= INTEGER >= SHORTINT

Примеры объявлений переменных

i, j, k: INTEGER

a: ARRAY 100 OF REAL

Операции

+, -, *, /, DIV, MOD

Операции над множествами

+ объединение

- разность (x - y = x * (-y))

* пересечение

/ симметрическая разность множеств (x / y = (x-y) + (y-x))

Отношения

=, # (неравенство), <, <=, >, >=, IN (принадлежность множеству), IS (проверка типа)

Пример присваивания

i := 0

Тип Запись

   RECORD
       day, month, year: INTEGER
   END

Modula-2

Порядковые: CARDINAL CHAR INTEGER BOOLEAN
Битовое множество BITSET (Величина может зависеть от реализации. Например, 32 бита)
Плавающая точка: REAL LONGREAL (Подчиняются IEEE, но зависят от реализации. К примеру, возможно REAL = LONGREAL = double)
Процедурный тип PROC

Java

Java — это язык со статической типизацией. Это значит, что каждой переменной и каждому выражению соответствует тип, известный на этапе компиляции.

Типы подразделяются на две категории (если не считать null, см. чуть дальше).

Примитивные (primitive) типы:

• boolean (true или false)
• Числовые типы:
  • Целые числа:
    • Знаковые: byte, short, int, long (8-, 16-, 32-, 64-битные).
    • Беззнаковый 16-битный: char (код символа в UTF-16^[1]).
  • Числа с плавающей точкой: float, double (32-, 64-битные; IEEE 754).

Ссылочный (reference) тип:

• Классы, интерфейсы, массивы.

Также существует специальный тип null.

Объектом в Java считается экземпляр класса или массив. Значением ссылочного типа является ссылка на объект (или специальное значение null). Все объекты (включая массивы) обладают методами класса Object (java.lang.Object) (иначе говоря, с т.з. Java-программиста все объекты *наследуют* методы класса Object). Строковые литералы (например, "Hello world!") являются объектами типа String (== экземплярами класса String).

Операции над простыми типами почти идентичны C/C++, однако могут выбрасывать исключения. Конкатенация строк: "Hello " + "world!" (может принимать в качестве одного из аргументов не только строку, но и любой из целых типов).

Больше информации о типах, значениях и переменных: http://docs.oracle.com/javase/specs/jls/se7/html/jls-4.html .

C++

Целые типы

char - размер как для хранения символа, определяется машиной (обычно байт)

short - размер, соответствующий целой арифметике на данной машине (обычно, слово)

int

long

long long

Для всех целых типов есть unsigned аналоги. По умолчанию - знаковые (так что, например, signed int - то же самое, что int). Исключение - char. Его знаковость/беззнаковость зависит от реализации.

С плавающей точкой

float

double

long double

1 = sizeof(char) <= sizeof(short) <= sizeof(int) <= sizeof(long)
sizeof(float) <= sizeof(double) <= sizeof(long double)

const <тип> <имя_переменной> = <значение>;
// Значение переменной не может изменяться после инициализации (инициализация обязательна).

Aрифметические операции

+ (плюс, унарный и бинарный)

- (минус, унарный и бинарный)

* (умножение)

/ (деление)

Над целыми - операция % получения остатка: 7%2 = 1

Операции сравнения

== (равно)

 != (не равно)

<, >, <=, >=

Также логические операции ( &&, || ), побитовые операции(&, |, ^, <<, >>), а так же сокращённые формы многих операций: +=, -=, %=, &&=, ||=, &=, ++, -- (последние два имеют префиксные и постфиксные формы) и им подобные.

При присваивании и арифметических операциях C++ выполняет все осмысленные преобразования между основными типами, чтобы их можно было сочетать без ограничений.

Производные типы

* - указатель на

*const - константный указатель на

& - ссылка на

[] - вектор (одномерный массив), индексация с 0

() - функция, возвращающая

Унарное & - операция взятия адреса

Например:
char* p // указатель на символ
char *const q // константный указатель на символ
char v[10] // вектор из 10 символов
char c; p = &c; // p указывает на c

C#

Встроенные типы

1. sbyte, byte - 8-битное целое число

2. short, ushort - 16-битное целое число

3. int, uint - 32-битное целое число

4. long, ulong - 64-битное целое число

5. float, double - 32- и 64-битные числа с плавающей запятой

6. bool - 8-битное логическое значение

7. char - 16-битный знак Юникода

8. decimal - 128-битный точный дробный или целочисленный, который может представлять десятичные числа с 29 значащими цифрами.

Особняком стоят (являются встроенными типами, но при этом с т.з. программиста являются классами?):

9. string - последовательность знаков

10. object - базовый тип для всех остальных типов

Структуры и классы

В C# структуры являются урезанной версией класса. Память под структуры наравне с простыми типами выделяется на стеке (если, конечно, они не являются частью объекта — память под объекты всегда выделяется на куче). Ограничения на структуры:

1. Структура не может быть явно унаследована ни от какого класса или структуры, при этом все структуры неявно наследуют object.

2. В структуре нельзя явно определить конструктор умолчания, неявно определяемый конструктор заполняет структуру неопределенными значениями.

Типы значений (хранятся на стеке, если не являются полем класса)

Все базовые, кроме object и string.

Перечисления (enum).

Структуры (struct).

Ссылочные типы^[2] (значения, на которые указывает ссылочный тип (в частности, экземпляры классов), располагаются в куче)

Класс.

Массив (является объектом, экземпляром абстрактного класса Array).

Интерфейс.

И некоторые другие.

Массивы

Длина массива - статический или динамический атрибут.

Си++: длина массива - только статический атрибут.
Оберон, Модула-2: динамический атрибут только для формальных параметров, в остальных случаях - статический.
Ада, Java, C#: может быть и тем и другим.

Замечание из методички:
в языках Оберон и Модула-2 длина формальных параметров — открытых массивов является динамическим атрибутом.
В других случаях длина массива — статический атрибут.
В Аде формальные параметры неограниченных типов-массивов также имеют динамический атрибут-длину (равно как и динамические массивы-локальные переменные).

Пример динамического массива в языке Java (или C#):

void f(int N) {
    byte [] dynArray = new byte [N];
    // ...обработка ...
}

ОБЕРОН И ОБЕРОН-2

Элементы массива обозначаются индексами, которые являются целыми числами от 0 до длины массива минус 1.

ТипМассив = ARRAY [Длина {"," Длина}] OF Тип.

Длина = КонстантноеВыражение.

Тип вида

   ARRAY L0, L1, ..., Ln OF T

понимается как сокращение

   ARRAY L0 OF
        ARRAY L1 OF
           ...
             ARRAY Ln OF T

Массивы, объявленные без указания длины, называются открытыми массивами. Они могут использоваться только в качестве базового типа указателя, типа элементов открытых массивов и типа формального параметра. Длина формальных параметров — открытых массивов является динамическим атрибутом.

Modula-2

Массивы как в Паскале (только помним про регистрозависимость: все ключевые слова IN CAPITALS).
Пример объявления массива

   VAR
       a: ARRAY [-1..100] OF ARRAY [1..10] OF INTEGER; 

Для передачи массива в качестве параметра (и только для этого) используется т.н. открытый (или гибкий) массив X: ARRAY OF T. Индексы будут отображены на 0..HIGH(X).

   PROCEDURE SCAL(VAR x,y: ARRAY OF REAL): REAL; (* Зачем здесь VAR, не знаю. Должно быть можно без него. *)
   =============================================
   VAR 
       a: ARRAY [0..N - 1] OF REAL;
       b: ARRAY [1..N] OF REAL;
   =============================================
   SCAL(a, b);

Управление памятью

Классы памяти

Статическая Всё что связано со словом «статический» размещается в блоке статической памяти. Время жизни – от начала программы либо момента первого входа в блок, и до конца программы.

Квазистатическая Квазистатическая память связана с понятием блока: переменные связана с этим блоком (от момента объявления, точнее, прохода code flow через объявление, до выхода из блока). Размещаются в стеке. Еще автоматической называют (автоматическая переменная).

Динамическая Время жизни зависит от процедур (ручное управление памятью) или от сборщика мусора.

Указатели

Ада, C, C++, C#, Delphi, Оберон, Модула

Указатели языка Ада 83 ссылаются только на объекты из динамической памяти. Указатель языка Си++ может ссылаться на любой объект данных (динамический, локальный, статический), что может приводить к труднообнаружимым ошибкам.

Также в языке Ада отсутствует адресная арифметика (арифметические операции над указателями), что также уменьшает вероятность появления ошибки работы с памятью.

В языке Оберон(и Оберон-2) указатель может быть объявлен только на массив или запись. ТипУказатель = POINTER TO Тип. Любая переменная-указатель может принимать значение NIL, которое не указывает ни на какую переменную вообще.

В Modula-2 можно объявлять указатель на что угодно. При том как на переменные в динамической памяти, так и в статической. Есть адресная арифметика (ADDADR, SUBADR, DIFADR), преобразование типов указателей (CAST), разыменование (^), функция взятия адреса (ADR), аллокация и деаллокация (NEW-DISPOSE или ALLOCATE-DEALLOCATE - два варианта), размер типа в байтах (TSIZE) и NIL. В случае получения невалидного адреса, разыменования NIL и т.п. выдаётся ошибка.

   TYPE 
       TreePtr = POINTER TO TreeGlue;
       TreeGlue = RECORD
           key     : KeyType;
           left    : TreePtr; (* left child *)
           right   : TreePtr; (* right child *)
       END;

В Java явных указателей нет.

Преобразование типов

Явное преобразование типов

Преобразование типов называется явным, если оно указано программистом в исходном коде.

Неявное преобразование типов

Преобразование типов называется неявным, если оно не указывается программистом, но, тем не менее, выполняется (в языках со статической типизацией — подставляется на этапе компиляции). В языках C# и Java неявными могут быть только расширяющие преобразования; в С++ — любые преобразования.

Понятия conversion и casting

В большинстве языков, основанных на базе Algol и обладающих механизмом вложенных функций - например, в Ada, Delphi, Modula 2 и Pascal, понятия conversion и casting принципиально различны. Понятие conversion относится к явному или неявному изменению значения одного типа данных на значение другого типа данных (например, расширение 16-битного целого до 32-битного). В этом случае, могут измениться требования к объёму выделенной памяти; могут возникнуть потери точности или округления. Понятие casting, напротив, обозначает явное изменение интерпретации последовательности бит. Например, последовательность из 32 бит может быть интерпретирована как целое без знака, как массив из 32 значений типа boolean или как вещественное число c одинарной точностью, соответствующее стандарту IEEE. В C-подобных языках, понятием casting обозначается явное приведение типа в независимости от того, является ли оно изменением интерпретации последовательности бит, либо же настоящим преобразованием типа.

Упаковка и распаковка

Данные понятия определены для языков C# и Java.

Упаковкой (boxing) называется процесс преобразования значения простого типа значения в экземпляр соответствующего класса-оболочки.

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

C#

В C# упаковка и распаковка выполняются автоматически.

Пример упаковки и распаковки:

int i = 123;
// The following line boxes i.
object o = i;

o = 123;
i = (int) o;  // unboxing

Java

В Java автоупаковка и автораспаковка поддерживаются начиная с J2SE 5.0 (сентябрь 2004 года).

Пример упаковки и распаковки:

int i = 123;
Integer boxedI = Integer.valueOf(i); // boxing

Integer boxedI = Integer.valueOf(123);
int i = boxedI.intValue(); // unboxing

Другие языки

В некоторых языках упаковка и распаковка отсутствуют. Например, в Smalltalk любое значение принадлежит некоторому классу (т.е. даже значения простых типов являются экземплярами классов). Немного по другой причине этих операций нет и в JavaScript: в этом языке отсутствует понятие "класс", т.к. он является прототипным.

Операторный базис языков программирования. Управление последовательностью вычислений

ADA

Джентльменский набор:

if condition then
 statement;
elseif enother_condition then
 enother_statement;
...
else
 last_one_statement;
end if;

case X is
   when constant1 =>
      stetement1;
   when constant2 | constant3 =>
      statement2_and3;
   ...
   when others =>
      other_statement;
end case;

return; -- for procedures
return Value; -- for functions

goto Label
   Dont_Do_Smth;
<<Label>>

Циклы устроены посложнее:

Endless_Loop :
  loop
     Do_Something;
  end loop Endless_Loop;

While_Loop :
  while X <= 5 loop
     X := Calculate_Something;
  end loop While_Loop;

Until_Loop :
  loop
     X := Calculate_Something;
     exit Until_Loop when X > 5;
  end loop Until_Loop;

Exit_Loop :
  loop
     X := Calculate_Something;
     exit Exit_Loop when X > 5;
     Do_Something (X);
  end loop  Exit_Loop;

For_Loop :
  for I in Integer range 1 .. 10 loop
     Do_Something (I)
  end loop For_Loop;

(Замечание: именовать циклы необязательно.)

ОБЕРОН И ОБЕРОН-2

   ОператорIf = 
   IF Выражение THEN ПоследовательностьОператоров 
   {ELSIF Выражение THEN ПоследовательностьОператоров} 
   [ELSE ПоследовательностьОператоров] 
   END.

   CASE ch OF 
   "A" .. "Z": ReadIdentifier 
   | "0" .. "9": ReadNumber 
   | "'", '"' : ReadString 
   ELSE SpecialCharacter 
   END

   WHILE Выражение DO 
   ПоследовательностьОператоров 
   END.

   REPEAT 
   ПоследовательностьОператоров 
   UNTIL Выражение.

   FOR v := beg TO end BY step DO statements END (В Оберон-2)

   LOOP ПоследовательностьОператоров END.

   WITH v: T1 DO S1 | v: T2 DO S2 ELSE S3 END (В Оберон-2)

for в C# и Java

В Java используется 2 формы оператора цикла for. Первая форма полностью соответствует оператору for языка Си++:

for (e1; e2; e3) S

Вторая форма появилась в J2SE 5.0 (вместе с generic'ами) и используется для поэлементного просмотра коллекций (цикл for-each). Она имеет вид;

for (T v: Coll) S

Здесь Coll — коллекция элементов (типа T или приводимых к типу T). Переменная v на каждой итерации цикла принимает значение очередного элемента коллекции. Для того, чтобы объекты класса-коллекции могли появляться в цикле for-each, класс должен реализовать интерфейс Iterable.

Для того, чтобы for можно было аналогичным образом использовать в C#, коллекция должна реализовывать интерфейс IEnumerable (конкретно метод GetEnumerator)

// метод класса, который мы хотим сделать итеративным
public System.Collections.IEnumerator GetEnumerator()
{
    for (int i = 0; i < 10; i++)
    {
        yield return i;
    }
}

Здесь yield преобразует int в объект класса IEnumerator. Кроме того, внутреннее состояние функции запоминается и в следующий раз выполнение функции будет продолжено с того состояния и места, где функция вышла в прошлый раз. yield может вызываться только в теле for.

Процедурные абстракции

Перегрузка операций

Ада 83, Ада 95, Си++, Java, Delphi, C#

Понятие «перегрузка» (англ. overloading) означает, что одному имени в одной области видимости может соответствовать несколько определений. В современных языках программирования перегружаться могут только имена подпрограмм, но не типов, переменных, модулей.

Пример на языке Си++:

   class X {
   public:
       void f();
       void f(int)
   };
               
   X a;
   a.f(); // первая функция
   a.f(0); // вторая функция

Отличие перегрузки от замещения (скрытие, англ. hide) состоит во-первых, в том, что перегрузка обрабатывается статически (на этапе трансляции) (а замещение?), в во-вторых, при замещении речь идет о разных областях видимости: базовый класс с объявлением виртуального метода (объемлющая область видимости) и производный класс с замещающим методом (вложенная область видимости).

ADA

В аде есть процедуры и функции. Первые не возвращают значения, вторые - возвращают. Самое интересное здесь - это виды передачи параметров. В аде их 4.

in

Фактический параметр не изменяется и передается как константа read-only (этот модификатор используется по умолчанию)

out

Фактический параметр передается только на изменение. Внутри подпрограммы этот параметр не доступен на чтение.

in out

Фактический параметр передается с read-write семантикой.

access

Фактический параметр является указателем. Это не модификатор, а тип и может использоваться с 3-мя вышеперечисленными модификаторами.

До 2012-го года функции в Аде могли принимать только in и access параметры.

Имеются типы-указатели на подпрограмму, определяются в виде.

type PFunction is access function (X : in Param_Type) return Return_Type;

ОБЕРОН И ОБЕРОН-2

Имеются два вида процедур: собственно процедуры и процедуры- функции. Последние активизируются обозначением функции как часть выражения и возвращают результат, который является операндом выражения. Собственно процедуры активизируются вызовом процедуры. Процедура является процедурой-функцией, если ее формальные параметры задают тип результата. Тело процедуры-функции должно содержать оператор возврата, который определяет результат.

PROCEDURE log2 (x: INTEGER): INTEGER;
 VAR y: INTEGER; (*предполагается x>0*)
BEGIN
 y := 0; WHILE x > 1 DO x := x DIV 2; INC(y) END;
 RETURN y
END log2

Определение новых типов данных. Логические модули. Классы

ADA

В Аде вообще типы принято определять вручную, пользуясь конструкциями type и subtype. Например:

type Short is range -128 .. +128 
type Index is range 0 .. 256 
type My_String is array ( Index range <> ) of Character -- My_String - это массив, индексируемый типом Index в неизвестных пока границах, состоящий из Character
subtype String_10 is My_String ( 0 .. 10 ); -- Подтип типа My_String, состоящий из 11 элементов.
type Money is delta 1/100 range 0.0 ... 10000.0

Ключевое слово Limited означает, что у новоявленного типа нет стандартных операций до тех пор, пока программист сам их не опишет.

В языке Ada есть мощный механизм пакетов, и этим он, несмотря на то, что основан на Pascal, совсем на него не похож. Пакеты заимствованы из других языков. Они похожи на классы тем, что являются средством абстракции, позволяющем инкапсулировать сложность внутри пакета, предоставив наружу только интерфейс. Ладно, к сути.

Каждый пакет физически разделён на две части.

-- Интерфейс
package Points is
   type Point is record
       x: Integer;
       y: Integer;
   end record;
   zero: constant Point := (0, 0);
   procedure setToZero(point: in out Point);
   function dotProduct(point1: in Point; point2: in Point) return Integer;
end Points;

-- Реализация
package body Points is
   procedure setToZero(point: in out Point) is
       begin
       point := zero;
       end setToZero;
   function dotProduct(point1: in Point; point2: in Point) return Integer is
       begin
       return point1.x * point2.x + point1.y * point2.y;
       end setToZero;
end Points;

Ada имеет средства разграничения доступа. Всё, что следует за спецификатором private, не будет доступно при импорте пакета.

-- Интерфейс
package Points is
   type Point is private; -- Это ключевое слово как бы намекает.
   zero: constant Point; -- Тут тоже неявный private.
   procedure setToZero(point: in out Point);
   function dotProduct(point1: in Point; point2: in Point) return Integer;
private
   type Point is record
       x: Integer;
       y: Integer;
   end record;
   zero: constant Point := (0, 0);
end Points;

Вне пакета можно будет объявить переменные типа «Point», но все действия будут ограничены присваиваниями, сравнениями на равенство и проверками принадлежности (нужно описать подробнее). Поэтому в пакет надо бы добавить «конструктор», если, конечно, предполагается возможная инициализация этих структур вне пакета. Если стандартная реализация этих операций не устраивает, можно использовать limited private, который в остальном ничем от private не отличается, но этих операций не позволяет.

Реализация может также иметь часть-инициализацию. Это всё, что после begin.

package body Points is
    procedure setToZero(point: in out Point) is
        begin
        point := zero;
        end setToZero;
    function dotProduct(point1: in Point; point2: in Point) return Integer is
        begin
        return point1.x * point2.x + point1.y * point2.y;
        end setToZero;
begin
    Ada.Text_IO.Put_Line("Package ready!");
end Points;

Пакеты можно расширять. Взять и определить пакет Points.RandomDistributions, в нём можно пользоваться всем, что объявлено в пакете-родителе. Пакет можно сделать недоступным вне своей иерархии.

private package Points.internalThing is
    <...>

При подключении потомка родитель-пакет подключается автоматически.

О подключениях. Подключить пакет можно с помощью конструкции with.

with Points.RandomDistributions;

После этого можно будет пользоваться ввсем, что в пакете лежит, через точечную нотацию. Если же вызовов слишком много, то можно влить содержимое пакета в текущую область видимости с помощью use (только после подключения!).

use Points.RandomDistributions;

В случае конфликтов имён придётся-таки предварять каждое обращение именем пакета.

ОБЕРОН И ОБЕРОН-2

В Обероне-2 стандартная процедура NEW используется, чтобы распределить блоки данных в свободной памяти. Нет, однако, никакого способа явно освободить распределенный блок. Взамен Оберон-среда использует сборщик мусора чтобы найти блоки, которые больше не используются и сделать их снова доступными для распределения.

Расширение типов

Наиболее важным добавлением(от-но Modula-2) является механизм расширенных типов записи. Он позволяет конструировать новые типы на основе уже существующих и задает определенную степень совместимости между новыми и старыми типами. Предположим, что у нас имеется тип

   T = RECORD x,y: INTEGER END

В дополнение к существующим полям могут быть заданы новые:

   T0 = RECORD (T) z: REAL END
   T1 = RECORD (T) w: LONGREAL END

Здесь определяются типы с полями x,y,z и x,y,w соответственно. Мы говорим, что тип T’

   T’ = RECORD (T) <описание_полей> END

является (прямым) расширением типа T, и наоборот, T называется (прямым) базовым (base) типом для T’.

Modula-2

Перечислимый тип

   TYPE DaysOfWeek = (sunday, monday, tuesday, wednesday, thursday, friday, saturday);
   (* тогда ORD(friday) = 5, MAX(DaysOfWeek) = saturday *)

Тип поддиапазон

   TYPE SubType = [min .. max];

Дополнительно можно указывать хостовой тип

   TYPE
       SubType1 = [0..7]; (* host type is CARDINAL *)
       SubType2 = INTEGER [0..7]; (* host type is INTEGER *)
       WeekDays = [mon .. fri]; (* host type is DaysOfWeek *)

Говорят, что тип Т1 совместим с типом Т0, если либо он описан как Т1 = Т0, либо как диапазон Т0, либо если Т0 является диапазоном Т1, либо если и Т0, и Т1 - оба диапазоны одного и того же (базового) типа.

Записи

Как в Паскале.

   TYPE 
       myRec = RECORD
           val1: type1;
           valn: typen;
       END;

Namespace в C#

Ключевое слово namespace используется для объявления области, которая содержит набор связанных объектов. Можно использовать пространство имён для организации элементов кода, а также для создания глобально уникальных типов.

   namespace SampleNamespace
   {
       class SampleClass { }
   
       interface SampleInterface { }
   
       struct SampleStruct { }
   
       enum SampleEnum { a, b }
   
       delegate void SampleDelegate(int i);
   
       namespace SampleNamespace.Nested
       {
           class SampleClass2 { }
       }
   }

Классы

Конструкторы

Обычно выделяют следующие типы конструкторов: конструктор по умолчанию, конструктор копирования и конструктор преобразования. Конструкторы имеют пользовательскую (тело объявленного конструктора) и системную (сгенерированный код) части.

Деструкторы и финализаторы

Деструкторы и финализаторы — это специальные функции-члены класса, автоматически вызываемые при уничтожении объекта класса. Роль деструкторов и финализаторов — освобождение захваченных объектом ресурсов. Если объект не захватывает ресурсы или ресурсы освобождаются автоматически, то нужды в деструкторе (финализаторе) нет. Деструкторы не имеют параметров. В языке Java деструкторов нет, их роль (до определенной степени) играет метод void finalize() — финализатор. В языке C# формально деструкторы есть, однако их поведение аналогично поведению финализаторов в языке Java. Деструкторы в C++ отличаются от финализаторов в Java и C# тем, что в C++ можно достаточно точно установить момент вызова деструктора.

1. Деструкторы статических объектов вызываются после выхода из функции main.
2. Деструкторы квазистатических объектов выполняются при выходе из блока. Причём, деструкторы вызываются строго в обратном порядке относительно порядка вызова конструкторов квазистатических объектов данного блока.
3. Деструкторы динамических объектов выполняются при вызове операции delete.
4. Деструкторы временных объектов выполняются при выходе из конструкции, в контексте которой был создан объект.

В Java и C# время вызова финализатора не определено из-за наличия сборщика мусора. Как и конструкторы, деструкторы имеют пользовательскую и системную части.

Неявные контрукторы/деструкторы/операции в C++

Следующие элементы класса могут быть определены неявно:

• Конструктор по умолчанию (если нет ни одного явно определённого конструктора).
• Конструктор копирования (если конструктор копирования не описан явно). Осуществляет т.н. поверхностное копирование полей класса (бит в бит).
• Деструктор (если деструктор не описан явно). Вызывает деструкторы объектов-полей (не полей-указателей!).
• Операция присваивания (если не определена явно). Записывает значения полей объекта-аргумента в целевой объект (тоже поверхностное копирование), возвращает ссылку на целевой объект.

Фишки:

• Запрет копирования объекта: определить конструктор копирования в приватной части класса.
• Запрет создания экземпляровобъекта — глобальных и локальных переменных, иначе говоря данные запрещено размещать в секциях .data/.bss и на стеке, разрешено только в динамической памяти. Нужно определить декструктор в приватной части класса. Освобождение ресурсов объекта при таком подходе осуществляется через метод данного класса.
• Запрет присваивания одного объекта другому: определение операции присваивания в приватную часть класса.
• Запрет неявного вызова конструктора копирования, конструктора преобразования (иначе говоря, конструкторов с одним параметром) или операции преобразования (последнее — только в C++11). Нужно добавить в начало заголовка ключевое слово explicit.

Свойства

В C# и Delphi есть поддержка свойств (property).

Свойство - способ доступа к внутреннему состоянию объекта, имитирующий переменную некоторого типа. Обращение к свойству объекта выглядит так же, как и обращение к структурному полю (в структурном программировании), но, в действительности, реализовано через вызов функции. При попытке задать значение данного свойства вызывается один метод, а при попытке получить значение данного свойства — другой.

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

Свойства в C# — поля с логическим блоком, в котором есть ключевые слова get и set.

class MyClass
{
    private int p_field;
    public int Field
    {
        get
        {
            return p_field;
        }
        private set
        {
            p_field = value;
        }
    }
}

Для описания свойства в Delphi служит слово property.

TMyClass = class
private
  FMyField: Integer;
  procedure SetMyField(const Value: Integer);
  function GetMyField: Integer;
public
  property MyField: Integer read GetMyField write SetMyField;
end;
 
function TMyClass.GetMyField: Integer;
begin
  Result := FMyField;
end;
  
procedure TMyClass.SetMyField(const Value: Integer);
begin
  FMyField := Value;
end;

Статические классы

Под статическим классом понимается разновидность класса, все члены которого объявлены статическими. Как правило, у таких классов не описаны конструктор и деструктор. Использовать статические члены класса можно не создавая самого экземпляра класса. Понятие статического класса чаще всего используется в языках C# и Java. В этих языках невозможно создать экземпляр статического класса; также статический класс не может реализовывать интерфейсы. В C# любой статический класс наследуется от типа object. В С++ понятие статического класса как таковое отсутствует. Имитировать статический класс можно либо создав класс, все члены которого объявлены статическими, и запретив создание его экземпляров с помощью модификатора доступа private перед конструктором; либо используя шаблон проектирования singleton - в таком случае, будет существовать ровно один экземпляр данного класса, и будет предоставлена глобальная точка доступа к данному экземпляру.

Объединение типов (запись с вариантами)

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

Размеченное объединение типов содержит одно выделенное поле (дискретного типа данных) — общее для всех вариантов. Такое поле называется дискриминантом. Значение дискриминанта определяет, по какому варианту выделена память в переменной-экземпляре размеченного объединения.

Семантика копирования

Проблема копирования состоит в том, что копируемый объект может содержать ссылки на другие объекты. Проблема копирования состоит в том, что объекты могут содержать ссылки на другие объекты. При копировании таких ссылок возникает дилемма: копировать либо только ссылку, либо полностью содержимое объекта, на который указывает ссылка. Первый вид копирования называется поверхностным, а второй — глубоким. В общем случае транслятор не в состоянии выбрать нужную семантику копирования, поэтому в языках программирования, которые мы рассматриваем, принята следующая схема: по умолчанию реализуется поверхностное копирование, но программисту предоставляются средства для указания глубокой семантики копирования. В C++ этими средствами являются переопределение конструктора копирования и операции присваивания, в Java и C# — наследование и реализация специального интерфейса. В Java введено 4 уровня поддержки операции копирования:

1. Полная поддержка

 class X implements Cloneable {
     public X clone() throws(){…}
 }

Пользоваться таким классом безопасно, он делает честную копию.

2. Условная поддержка

 class X implements Cloneable {
     public X clone(CloneNotSupported) throws(){…}
 }

3. Условная "неподдержка".

Не реализуется Cloneable. Извне не доступен.

4. Запрет

Не реализует интерфейс. От клонирования остался Protected Object Clone(). Перекрывается: throw new CloneNotSupported(); - меня копировать нельзя. Доступен производным классам, а также всем классам из данного пакета. Скопировать могут только классы из данного пакета, либо классы-наследники.

В общем случае всё это говорит о сложности проблемы копирования. Проблемы у программистов на C# - такие же.

Модульность и раздельная трансляция

Раздельная трансляция

C, C++

Раздельная трансляция означает то, что программа разбивается на части — физические модули или единицы компиляции. Каждая единица может или обязана транслироваться отдельно от остальных. Независимая раздельная трансляция означает то, что транслятор не обладает информацией об уже оттранслированных единицах и поэтому не может проверить корректность межмодульных связей.

Модульность

ОБЕРОН И ОБЕРОН-2

Модуль - совокупность объявлений констант, типов, переменных и процедур вместе с последовательностью операторов, предназначенных для присваивания начальных значений переменным. Модуль представляет собой текст, который является единицей компиляции.

   Модуль 	 = 	MODULE идент ";" [СписокИмпорта] ПоследовательностьОбъявлений
   [BEGIN ПоследовательностьОператоров] END идент ".".
   СписокИмпорта 	 = 	IMPORT Импорт {"," Импорт} ";".
   Импорт 	 = 	[идент ":="] идент.

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

    MODULE Trees; (* экспорт: Tree, Node, Insert, Search, Write, Init *)
    IMPORT Texts, Oberon; (* экспорт только для чтения: Node.name *)

    TYPE
         Tree* = POINTER TO Node;
         Node* = RECORD
              name-: POINTER TO ARRAY OF CHAR;
              left, right: Tree
         END;

    VAR w: Texts.Writer;

    PROCEDURE (t: Tree) Insert* (name: ARRAY OF CHAR);
         VAR p, father: Tree;
    BEGIN p := t;
         REPEAT father := p;
              IF name = p.name^ THEN RETURN END;
              IF name < p.name^ THEN p := p.left ELSE p := p.right END
         UNTIL p = NIL;
         NEW(p); p.left := NIL; p.right := NIL; NEW(p.name, LEN(name)+1); COPY(name, p.name^);
         IF name < father.name^ THEN father.left := p ELSE father.right := p END
    END Insert;

    PROCEDURE (t: Tree) Search* (name: ARRAY OF CHAR): Tree;
         VAR p: Tree;
    BEGIN p := t;
         WHILE (p # NIL) & (name # p.name^) DO
              IF name < p.name^ THEN p := p.left ELSE p := p.right END
         END;
         RETURN p
    END Search;

    PROCEDURE (t: Tree) Write*;
    BEGIN
          IF t.left # NIL THEN t.left.Write END;
          Texts.WriteString(w, t.name^); Texts.WriteLn(w); Texts.Append(Oberon.Log, w.buf);
          IF t.right # NIL THEN t.right.Write END
    END Write;

    PROCEDURE Init* (t: Tree);
    BEGIN NEW(t.name, 1); t.name[0] := 0X; t.left := NIL; t.right := NIL
    END Init;

    BEGIN Texts.OpenWriter(w)
    END Trees.

Загруженный модуль может вызывать команду незагруженного модуля, задавая ее имя как строку. Специфицированный модуль при этом динамически загружается и выполняется заданная команда. Динамическая загрузка позволяет пользователю запустить программу как небольшой набор базисных модулей и расширять ее, добавляя последующие модули во время выполнения по мере необходимости. Интерфейс модуля (объявления экспортируемых объектов) извлекается из модуля так называемым смотрителем, который является отдельным инструментом среды Оберон.

Modula-2

Программа представляет собой набор модулей — самостоятельных единиц компиляции, которые могут компилироваться раздельно. При этом программный модуль может быть (но не обязан) разделён на две части: модуль определений и модуль реализации. Модуль определений — это внешний интерфейс модуля, то есть набор экспортируемых им имён констант, переменных, типов, заголовков процедур и функций, которые доступны внешним модулям. Модуль реализации содержит программный код, в частности, конкретизацию описаний всего, что перечислено в модуле определений. Например, некоторый тип «запись» может быть объявлен в модуле определений с указанием лишь его имени, а в модуле реализации — с полной структурой. В этом случае внешние модули могут создавать значения данного типа, вызывать процедуры и функции, работающие с ним, выполнять присваивание переменных, но не имеют прямого доступа к структуре значений, поскольку эта структура не описана в модуле определений. Если для этого же типа описать в модуле определений структуру, то она станет доступна. Помимо модулей глобального уровня в Модуле-2 допускается создавать локальные модули.
Импорт определений, описанных в прочих модулях, полностью контролируется. Можно импортировать модули определений целиком, но синтаксис позволяет существенно уточнять списки импорта, например, импортировать из модуля конкретные константы, переменные, процедуры и функции, только те, которые необходимы.

   DEFINITION MODULE ModuleName;  (* Модуль определений *)
   {Import}
   {Declaration}
   END ModuleName.
   ========================
   Где Import это:
   [FROM ModuleName] IMPORT
       identifier {,identifier};

   IMPLEMENTATION MODULE ModName;  (* Модуль реализаций *)
   {Import}
   {Declaration}
   [ BEGIN
       ListOfStatements
   [EXCEPT
       ListOfStatements]
   [
    FINALLY
       ListOfStatements
    EXCEPT
       ListOfStatements
   ]
   ]
   END ModName.

   MODULE ModName; (* Должен существовать единственный на весь проект. Это main. *)
   {Import}
   {Declaration}
   BEGIN
       ListOfStatements
   [EXCEPT
       ListOfStatements]
   END ModName.

Для обеспечения видимости в других модулях объявления функций, переменных и типов, описанные в модулях определений, можно импортировать. Остановимся на типах. При импортировании их внутренняя структура становится видна импортирующему модулю (т.н. прозрачный экспорт). Существует скрытый экспорт (opaque export), где видно становится только имя типа. Он возможен только для указательного типа (но сделаем указатель на структуру - и вуаля, получим инкапсуляцию и абстракцию данных).

ADA

Ада, наверное - единственный язык со вложенностью модулей, их раздельной компиляцией и двойной связью одновременно. Опишем вложенную спецификацию, тут ничего сложного:

package Outer is
   ...
   procedure some_proc (X: Some_type) is private;
   package Inner is
   ... -- Тут, в общем то видно все, что есть в пакете Outer.
   end Inner;
   ...
end Outer;

Тела этих пакетов, как и тело функции, можно разнести по разным файлам (единицам компиляции), используя "заглушку" separate:

package body Outer is
   ...
   package Inner is separate;
   ...
   procedure some_proc (X: some_type) is separate;
end Outer;

Теперь опишем тела модуля Inner и процедуры.

separate (Outer) --Тут нет `;' 
package body Inner is
   ...
end Inner;

separate (Outer)
procedure some_proc (X: some_type) is
   ...
end some_proc;

Вот здесь заглушка separate и является двойной модульной связью.

Исключительные ситуации и обработка ошибок

Исключения есть в Си++, Ада 83, Ада 95, Visual Basic, C#, Java, Delphi

Исключения и блоки try {} catch {} finally {}. Семантика возобновления и семантика завершения.

Семантика возобновления: после обработки исключения управление может вернуться непосредственно в точку, где возникло исключение (варианты: на следующий оператор или на любой оператор из того же блока). Пример языка c семантикой возобновления: Visual Basic.

Моделирование семантики возобновления на C++:

bool need_restart = true;
while (need_restart) {
    need_restart = false;
    try {
        // Some code here
    } catch (...) {
        // C# - просто catch, без круглых скобок
        // Java - catch (Throwable e)
   
        need_restart = true;
    }
}

Семантика завершения: после возникновения исключения блок, в котором оно возникло, обязательно завершается. Обработка исключения происходит в блоках, вызвавших блок с исключением. Пример языка с семантикой завершения: Си++.

catch (в delphi - except) - то что будет выполнено в случае ошибки в блоке try. finally - то что будет выполнено в любом случае, вне зависимости от того что произошло в блоке try.

Конструкция try ... finally ... есть в C#, Java, Delphi. Декларируется, что в C++ в finally нет необходимости в виду RAII и, как следствие, выполнении деструкторов на выходе из блока.

throw (C++) и throws (Java)

Текст раздела построен с т.з. программиста Java (иначе говоря, обозначены отличия синтаксиса и семантики конструкции C++ от конструкции Java, а не наоборот). Причина — одно из заданий экзамена по ЯПам звучит примерно как «опишите конструкцию throws в Java (зачем нужно и как работает). Как моделируется на C++, Delphi^[3]?».

Примеры употребления конструкций:

// Java

void someMethod() throws IOException, SomeOtherException { … }
// IOException — стандартный класс исключения, наследник Exception.
// SomeException должен быть наследником Throwable.

void someMethod() { … }
// Запись «не выбрасывает исключения»: отсутствие throws и списка исключений.

// C++

void someMethod() throw (SomeException1, SomeException2) { … }
// SomeException1, SomeException2 — вообще говоря, любые типы.
// Декларациии throw должны совпадать как при определении, так и при описании.

void someMethod() throw () { … }
// Запись «не выбрасывает исключения»: throw ().

void someMethod() { … }
// Может выбрасывать любые исключения.

Данные конструкции служат для того, чтобы показать программисту и компилятору, что данный метод (или, в случае C++, метод или функция) может выбрасывать исключения соответствующих типов. Насколько я понимаю, всё это влияет только на статические проверки компилятора и эстетические чувства программиста. В runtime эти декларации никак себя не проявляют, поэтому употребляемые здесь «может / не может выбрасывать исключение данного типа» и тому подобные обороты следует понимать в контексте статических проверок. (Замечание: не совсем верно. Исключения могут возникнуть в виртуальной функции или в отдельно оттранслированной. Memento std::unexpected().)

В Java считается, что метод, выбрасывающий исключение должен обозначить это с помощью конструкции throws. Иначе говоря, считается, что если директивы throws нет, то метод не выбрасывает исключений. Компилятор делает некоторые статические проверки, по крайней мере, запрещает выбрасывать исключения, не перечисленные в throws, явно — с помощью оператора throw.

В C++, в отличие от Java, если директива throw не задана, то считается, что данный метод или функция может выбрасывать любые исключения. Статические (времени компиляции) проверки делаются только для тех методов/функций, для которых указан (возможно пустой) список исключений.

Одно из заданий экзамена по ЯПам

2004 г, задание 8. Смоделируйте на языке Си++ функцию

void f() throw (E1,E2,E3) { g(); h(); }

предполагая, что конструкция throw^[4] не допускается компилятором.

void f()
{
    try {
        g(); h();
    } catch (E1) {
        throw;
    } catch (E2) {
        throw;
    } catch (E3) {
        throw;
    } catch (...) {
        unexpected();
    }
}

ADA

Создание исключения:

New_Exception: exception;

Поднятие/возбуждение исключения^[5]:

raise New_Exception;

Отлов исключения:

begin
   Rise_Exception;
exception
   when New_Exception =>
      Do_Smth;
end;

finally-блока в Аде таки нету. Однако он имитируется.

Отлов исключения так же может иметь такой вид:

when Error: Error_Name =>

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

Наследование типов и классов

C# и Java

В C# и Java можно в дочернем классе сослаться на экземпляр родительского с помощью ключевых слов base (C#) и super (Java).

Кроме того, в этих языках есть ключевые слова sealed (C#) и final (Java). Они могут находиться в заголовке^[6] метода (в случае C# — только виртуального) или класса (final также может находиться в описании поля, но это «другая песня»).

В C# sealed в заголовке виртуального метода означает запрет перегрузки (англ. override) метода в производных классах. В заголовке класса — запрет наследования от данного класса.

В Java final в заголовке метода означает, запрет замещения (скрытия, англ. hide) или перегрузки (англ. override) метода в производных классах. В заголовке класса — запрет наследования от данного класса.

ADA

Наследование в Аде происходит путем создания нового пакета и расширения в нем базовой записи:

package Person is
   type Object is tagged private;
   procedure Put (O : Object);
private
   type Object is
   record
      Name   : String (1 .. 10);
      Gender : Gender_Type;
   end record;
end Person;

with Person;
package Programmer is
   type Object is new Person.Object with private;
   private
      type Object is
      record
         abuility   : Language_List;
      end record;
end Person;

ООП в Аде является вполне полноценным c Динамическим полиморфизмом, RTTI, абстрактными типами и интерфейсами.

Динамический полиморфизм

В объектно-ориентированных языках программирования динамический полиморфизм реализуется с помощью наследования классов и виртуальных функций и/или виртуальных членов. Класс-потомок наследует сигнатуры методов класса-родителя, а реализация, в результате переопределения метода, этих методов может быть другой, соответствующей специфике класса-потомка. Другие функции могут работать с объектом как с экземпляром класса-родителя, но если при этом объект на самом деле является экземпляром класса-потомка, то во время исполнения будет вызван метод, переопределенный в классе-потомке. Это называется поздним связыванием.

Позднее связывание есть в C++, C#, Java, Delphi, Ада 95, Оберон-2.

C#

В C# к динамическому полиморфизму имеют отношение 3 важных ключевых слова (модификатора):

1. virtual

2. override

3. new

virtual

Ключевое слово virtual используется для изменения объявлений методов, свойств, индексаторов и событий и разрешения их переопределения в производном классе. Например, этот метод может быть переопределен любым производным классом. Модификатор virtual нельзя использовать с модификаторами static, abstract, private или override.

public virtual double Area() 
{
    return x * y;
}

override

Модификатор override требуется для расширения или изменения абстрактной или виртуальной реализации унаследованного метода, свойства, индексатора или события. Иными словами, модификатор override расширяет метод базового класса. Метод, переопределенный c использованием override, называется переопределенным базовым методом. Переопределенный базовый метод должен иметь ту же сигнатуру, что и метод override. Невиртуальный или статический метод нельзя переопределить. Переопределенный базовый метод должен иметь тип virtual, abstract или override. Объявление override не может изменить уровень доступа метода virtual. Методы override и virtual должны иметь одинаковый модификатор уровня доступа. Модификаторы new, static и virtual нельзя использовать для изменения метода override. Переопределяющее объявление свойства должно задавать такие же модификаторы уровня доступа, тип и имя, как и имеющиеся у унаследованного свойства, а переопределенное свойство должно иметь тип virtual, abstract или override.

class BaseClass
{
    public virtual void Method1()
    {
        Console.WriteLine("Base - Method1");
    }
    public void Method2()
    {
        Console.WriteLine("Base - Method2");
    }     
}
class DerivedClass : BaseClass
{
    public override void Method1()
    {
        Console.WriteLine("Derived - Method1");
    }
    public void Method2()
    {
        Console.WriteLine("Derived - Method2");
    }
}
// ...
BaseClass bc = new BaseClass();
DerivedClass dc = new DerivedClass();
BaseClass bcdc = new DerivedClass();
bc.Method1();
bc.Method2();
dc.Method1();
dc.Method2();
bcdc.Method1();
bcdc.Method2();
// Output:
// Base - Method1
// Base - Method2
// Derived - Method1
// Derived - Method2
// Derived - Method1
// Base - Method2

new

Модификатор new скрывает члены, унаследованные от базового класса. При сокрытии унаследованного члена его производная версия заменяет версию базового класса. (На самом деле, члены можно скрыть и без модификатора new, но в результате возникнет предупреждение. Если же для явного скрытия члена используется new, то модификатор отключает вывод предупреждений и документирует тот факт, что производная версия предназначена для замены.

class BaseClass
{
    public void Method1()
    {
        Console.WriteLine("Base - Method1");
    }
    public void Method2()
    {
        Console.WriteLine("Base - Method2");
    }     
}
class DerivedClass : BaseClass
{
    public override void Method1()
    {
        Console.WriteLine("Derived - Method1");
    }
    public new void Method2()
    {
        Console.WriteLine("Derived - Method2");
    }
}
// ...
BaseClass bc = new BaseClass();
DerivedClass dc = new DerivedClass();
BaseClass bcdc = new DerivedClass();
bc.Method1();
bc.Method2();
dc.Method1();
dc.Method2();
bcdc.Method1();
bcdc.Method2();
// Output:
// Base - Method1
// Base - Method2
// Base - Method1
// Derived - Method2
// Base - Method1
// Base - Method2

Абстрактные типы данных, классы и интерфейсы

Абстрактный тип данных (АТД) — это тип с полностью инкапсулированной структурой. Использовать объекты АТД возможно только при помощи явно определенных в интерфейсе типа операций. Абстрактный класс (АК) — это класс, содержащий хотя бы один абстрактный метод. Он предназначен только для того, чтобы быть базовым классом.

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

Абстрактный класс

В объектно-ориентированных языках программирования абстрактный класс реализуются следующими тремя способами

1. Модификатор abstract перед классом. Используется в C# и Java.

2. Класс содержит хотя бы один абстрактный метод. В C# и Java абстрактный метод обозначается модификатором abstract перед объявлением метода. В C++ абстрактные методы называются чистыми виртуальными. Примеры:

// тело отсутствует
virtual void draw() = 0; // C++
abstract void draw(); // Java, C#

3. Если в классе, производном от абстрактного класса с абстрактными методами, не замещен хотя бы один абстрактный метод, то класс тоже является абстрактным. В C# и Java незамещенные абстрактные методы должны быть явно объявлены как абстрактные.

В языке C# абстрактными могут быть и свойства:

abstract int Length { get;}

Пример абстрактного класса (Java или C#):

abstract class ShapesClass
{
    abstract public int Area();
}

Абстрактные методы (функции) есть в C++, Java, Delphi, C#, Ада 95.

Абстрактный тип данных

В большинстве языков абстрактный тип данных реализуется с помощью интерфейсов. См. пример в соответствующем разделе.

В Ада используется ключевое слово limited:

type Stack is limited private;

В ОБЕРОН И ОБЕРОН-2 АТД позволяют открывать поля структуры.

Пример абстрактного ТД и абстрактных функций в Ада95

Мы продемонстрируем абстрактные классы, описывая несколько реализаций одной и той же абстракции; абстрактный класс будет определять структуру данных Set, и производный класс — реализовывать множество в виде булевого массива. В языке Ada 95 слово abstract обозначает абстрактный тип и абстрактные подпрограммы, связанные с этим типом:

   package Set_Package is 
       type Set is abstract tagged null record;
       function Union(S1, S2: Set) return Set is abstract;
       function Intersection(S1, S2: Set) return Set is abstract; 
   end Set_Package;

Вы не можете объявить объект абстрактного типа и не можете вызвать абстрактную подпрограмму. Тип служит только каркасом для порождения конкретных типов, а подпрограммы должны замещаться конкретными подпрограммами.

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

   with Set_Package; 
   package Bit_Set_Package is
       type Set is new Set_Package.Set with private; 
       function Union(S1, S2: Set) return Set; 
       function lntersection(S1, S2: Set) return Set; 
   private 
       type Bit_Array is array(1..100) of Boolean;
       type Set is new Set_Package.Set with 
           record
               Data: Bit_Array; 
           end record; 
   end Bit_Set_Package;

Конечно, необходимо тело пакета, чтобы реализовать операции.

Интерфейс

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

Пример моделирования интерфейса на C++:

class Set {
public:
    virtual void Incl(T & x) = 0
    virtual void Excl(T & x) = 0
    virtual bool IsIn(T & x) = 0
 
    virtual ~Set () {} // деструктор
};

Явная и неявная реализация интерфейса

Явная реализация интерфейса означает, что вызов метода интерфейса может происходить только через ссылку на интерфейс, но не может происходить через ссылку на класс, реализующий интерфейс. Перед вызовом интерфейсного метода необходимо явно преобразовать ссылку на объект реализующего класса к ссылке на интерфейс. Концепция явной реализации полезна, например, при конфликте имен между унаследованными интерфейсами. Используется только в С#. Явная реализация всегда статична, неявная же может быть виртуальной. Неявная реализация может быть абстрактной и реализовываться только в классе-потомке. Явная реализация не может быть абстрактной, но сам класс может иметь другие абстрактные методы и сам быть абстрактным.

interface ISomeInterface
{
    void F();
}
class CoClass: ISomeInterface
{
    ISomeInterface.F() { //в случае неявного интерфейса, здесь стояло бы F() {
        System.Console.WriteLine(“Явно реализованный метод”);
    }
// ...
}
// ...
CoClass c = new CoClass();
  
c.F(); // ошибка: нельзя вызывать явно реализованный метод 
       // интерфейса через ссылку на объект
  
(ISomeInterface)c.F(); // все нормально

Множественное наследование

Полностью реализовано только в C++. В Ada, C#, Delphi, Java множественное наследование поддерживается только для интерфейсов^[7].

Динамическая идентификация типа

Динамическая идентификация типа данных (Run-time type identification, RTTI) — механизм, который позволяет определить тип данных переменной или объекта во время выполнения программы.

C++

В C++ для динамической идентификации типов применяются операторы dynamic_cast и typeid (определён в файле typeinfo.h), для использования которых информацию о типах во время выполнения обычно необходимо добавить через опции компилятора при компиляции модуля.

Оператор dynamic_cast пытается выполнить приведение к указанному типу с проверкой. Целевой тип операции должен быть типом указателя, ссылки или void*.

Оператор typeid возвращает ссылку на структуру type_info, которая содержит поля, позволяющие получить информацию о типе.

Delphi

Компилятор Delphi сохраняет в исполняемом файле программы информацию обо всех классах, используемых в ней. При создании любого объекта в памяти перед ним располагается заголовок, в котором есть в том числе ссылка на структуру-описатель класса этого объекта. Встроенные в язык функции работают с этой информацией прозрачно для программиста. Оператор is позволяет проверить, является ли объект или тип наследником определённого типа, а оператор as является аналогом dynamic_cast в C++.

C#

В C# для определения типа объекта во время исполнения используется метод GetType, а также ключевые слова is и as, которые являются аналогами для typeid и dynamic_cast в C++ соответственно.

Оберон-2

В Оберон-2 есть два средства для идентификации типа: операция IS и охрана типа.

Проверка типа

v IS T означает "динамический тип v есть T (или расширение T)" и называется проверкой типа. Проверка типа применима, если

1. v - параметр-переменная типа запись, или v - указатель, и если

2. T - расширение статического типа v

Охрана типа

Операторы with выполняют последовательность операторов в зависимости от результата проверки типа и применяют охрану типа к каждому вхождению проверяемой переменной внутри этой последовательности операторов. Если v - параметр-переменная типа запись или переменная-указатель, и если ее статический тип T0, оператор

WITH v: T1 DO S1 | v: T2 DO S2 ELSE S3 END

имеет следующий смысл: если динамический тип v - T1, то выполняется последовательность операторов S1 в которой v воспринимается так, будто она имеет статический тип T1; иначе, если динамический тип v - T2, выполняется S2, где v воспринимается как имеющая статический тип T2; иначе выполняется S3. T1 и T2 должны быть расширениями T0. Если ни одна проверка типа не удовлетворена, а ELSE отсутствует, программа прерывается.

Java

В Java тип объекта может быть получен при помощи метода getClass(), объявленного в классе java.lang.Object и потому реализуемого каждым классом. Для проверки принадлежности объекта определенному типу используется оператор instanceof (obj instanceof SomeClass), он заменяет dynamic_cast из C++. Также принадлежность объекта классу может быть определена с помощью оператора приведения типа, который в случае несоответствия типов выбрасывает исключение ClassCastException.

ADA

В Аде для определения типа существует ключевое слово in работающее аналогично is в, скажем, Oberon-2. После этого можно приводить типы, пользуясь мощным механизм конвертирования Ады (в аде вместо понятия приведения типов/type casting используется понятие конвертирование типов/type conversion):

Derived_Object: Derived := Derived (Base_Object) -- Здесь будет производится проверка в run-time

Понятие о родовых объектах. Обобщенное программирование

ADA

Note to C++ programmers: generic units are similar to C++ templates. Ada Programming

Объявляем шаблон:

generic
 type Element_T is private;  -- Generic formal type parameter
procedure Swap (X, Y : in out Element_T);

Для его использования необходимо создать объект нужного типа:

procedure Swap_Integers is new Swap (Integer);

Возможна перегрузка:

procedure Instance_Swap is new Swap (Float);
procedure Instance_Swap is new Swap (Day_T);

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

generic
 type Multiplable_T is private;  -- Generic formal type parameter
 with function "*" ( X, Y: Multiplable_T) return Multiplable_T;

Оператор loop определяет повторное выполнение последовательности операторов.

Операторы with выполняют последовательность операторов в зависимости от результата проверки типа и применяют охрану типа к каждому вхождению проверяемой переменной внутри этой последовательности операторов.

C#

В C# используется конструкция where для определения ограничений на параметры родовых (другое название - обобщенных) конструкций. Ее вид: where имя_типа : список_ограничений.

Виды ограничений

интерфейс — означает, что параметр-тип должен реализовывать этот интерфейс;

имя класса (может быть только одно такое ограничение в списке) означает, что параметр-тип должен быть наследником этого класса;

struct или class – означает, что параметр-тип должен быть структурой или классом;

new() - означает, что параметр-тип должен иметь конструктор умолчания (без параметров).

Параллельное программирование

ADA

Ада реализует концепцию так называемых задач (task), что по сути является синонимом потока. Задача оформляется совершенно аналогично модулю, но может быть объявлена и описана где угодно, даже в теле подпрограммы:

package Tasked is
   procedure Tasked_proc is
      task Untyped_task_1 is
         Some declarations    -- Здесь объявляем все так, как будто объявляем пакет
      end task;
      task Untyped_task_2;    -- Мы можем ничего и не открывать в задаче внешнему миру
                              -- Мы можем объявлять как отдельные задачи
      task type Task_Type is  -- Так и целые типы задач
            Some declarations                      
      end Task_Type;
  
      Typed_task_1, Typed_task_2 : Task_Type;   -- Две одинаковые задачи
    
      task body Untyped_task_1 is separate; -- Можно описать задачу отдельно
      task body Untyped_task_2 is
         something is separate;                   -- Или часть задачи отдельно
         begin
            ...      -- Собственно то, что будет делать задача
         end;
      end Untyped_task_2;
   
      task body Task_Type is
         ...                             -- Тело типа задачи
      end Task_Type;
   
                    -- Тут начинают работать наши 4 задачи параллельно: Untyped_task_1, Untyped_task_2, Typed_task_1, Typed_task_2
                    -- На самом деле их 5, так как главный процесс рассматривается как неявная задача
   begin      -- Tasked_proc
      Do_Something;
      ... 
            -- Здесь задача, запустившая потомков будет ожидать их завершения
   end Tasked_proc;
end Tasked;

В Аде есть множество методов синхронизации задач. Рассмотрим один из них - entry. Это что-то на подобии точек входа в задачу извне. По своему объявлению, это - самые обычные процедуры, однако описываются и работают они по-другому. Когда одна задача хочет запросить у другой какую-либо услугу, она вызывает entry, которая реализовывает данную услугу. В теле задачи (непосредственно в выполняемом коде), реализующей услугу есть участки кода, описывающих тела entry. Описание начинается со слова accept . Задача, вызвавшая entry будет ожидать, когда задача, реализующая этот entry дойдет до его тела. Этот момент называется Rendezvou (рандеву, свидание). Если несколько задач, одновременно (это слово, естественно, не стоит воспринимать буквально) вызвали entry, то они становятся в очередь (тут уже речь идет, наверное, о названии Orgy хD ). Как это все выглядит:

task type Service is
   type Some_Type is range -10 .. 10;
   entry Plus ( X: in Some_Type );
   entry Minus ( X: in Some_Type );
   entry Get ( X: out Some_Type ); -- Повторюсь, entry - те же процедуры у которых могут быть in/out параметры.
end Service;

Кроме того для того чтобы задача не простаивала, тела accept можно объединить в блок select, который будет выбирать запрошенные entry,

task body Service is
   Some_Var: Some_Type;
begin
   Some_Var := 0;
   loop
 
      accept Get ( X: out Some_Type ) do -- Здесь будем простаивать, пока кто-нибудь не запросит Get;
         X := Some_Var;
      end Get;
 
      select                                   -- Здесь либо сразу выполняем одно из запрошенных (Plus, Minus), либо ждем, пока придет запрос на один из этих entity 
         accept Plus ( X: in Some_Type ) do
            Some_Var := Some_Var + X;
         end Plus;
      or
         accept Minus ( X: in Some_Type ) do
            Some_Var := Some_Var - X;
         end Minus;
      end select;
   end loop;
end Service;

В этом примере, естественно лучше было все 3 accept запихнуть в select - было бы меньше простоев, но для примера я оставил так.

Примеры кода

Примеры кода на Java

package MyPackage; // Всё, что будет написано в этом файле, считается лежащим в этом пакете.
import java.lang.*; // Импорт пакетов.

public class MyClass
{
    private static int m_i = 3;
    private static int m_j;
    static {
        // Демонстрация статического блока в Java. Операторы в этом блоке будут выполнены в самом начале программы.
        m_j = m_i * 4;
    }
    public static void main(String[] args)
    {
        final int N = 5; // final — аналог констант в языках C/C++
        final int M = 3;
        double a[][] = new double[N][M];
        double [][]b = new double[N][M];
        for (int i = 0; i < a.length; ++i) {
            for (int j = 0; j < a[i].length; ++j) {
                a[i][j] = i * j;
            }
        }
        for (int i = 0; i < b.length; ++i) {
            for (int j = 0; j < b[i].length; ++j) {
                b[i][j] = i + j;
            }
        }
        double res[][] = sumMatrices(a, b);
        for (int i = 0; res != null && i < res.length; ++i) {
            for (int j = 0; res[i] != null && j < res[i].length; ++j) {
                System.out.print(res[i][j] + " ");
            }
            System.out.println();
        }
    }
    public static double[][] sumMatrices(double a[][], double b[][])
    {
        label1: if (a != null && b != null && a.length == b.length) {
            label2: {
                for (double x[] : a) { // аналог for-each
                    for (double y[] : b) {
                        if (x.length != y.length) {
                            break label2; // прервать внешний цикл
                        }
                    }
                }
                break label1;
            }
            System.out.println("Bad Arrays...");
            return null;
        } else {
            System.out.println("Bad Arrays...");
            return null;
        }
        double [][]res = new double[a.length][a[0].length];
        for (int i = 0; i < a.length; ++i) {
            for (int j = 0; j < a[i].length; ++j) {
                res[i][j] = a[i][j] + b[i][j];
            }
        }
        return res;
    }
}

package MyPackage;

import java.sql.SQLException;

public class Example
{
    public static void main(String [] argv)
    {
        // демонстрация работы внутренних классов:
        Outer outer = new Outer(10);
        outer.test();
        // демонстрация работы динамической диспетчеризации методов:
        A refA;
        refA = new A(5);
        refA.callMe();
        refA = new B(10, 15);
        refA.callMe();
        // демонстрация работы с абстрактными классами:

        //AbstrA abstra = new AbstrA(5); — нельзя, т.к. AbstrA — абстрактный класс.
        AbstrA refAbstrA;
        refAbstrA = new AbstrB(5, 10);
        refAbstrA.callMe();
        // демонстрация работы с интерфейсами:
        Client client = new Client();
        client.someFunc();
        // демонстрация работы с исключениями:
        try {
            client.badFuncEx();
            // Мы не можем оставить потенциальную посылку функцией исключения без внимания:
            // либо окружим её вызов конструкцией try-catch,
            // либо напишем, что эта функция тоже может бросать исключения (большое отличие от языка С++).
        } catch (Exception ex) { // Ловушка для всех исключений, ибо Exception — это базовый класс.
            //do Smth...
        }
    }
}

class Outer
{
    private int x = 0;
    public Outer(int x)
    {
        this.x = x;
    }
    private void display()
    {
        System.out.println(x);
    }
    public void test()
    {
        Inner in = new Inner();
        in.useOuterFunc();
    }
    class Inner
    {
        public void useOuterFunc()
        {
            // Внутренний класс имеет непосредственный доступ к приватным и публичным полям внешнего класса.
            // Обратное неверно.
            display();
            x = 15;
            display();
        }
    }
}

// Реализация динамической диспетчеризации методов:
class A
{
    private int i;
    A(int i)
    {
        this.i = i;
    }
    public void callMe()
    {
        System.out.println("In A.callMe(). " + i);
    }
}

final class B extends A
// final означает, что никакой класс не сможет отнаследоваться от В.
// final, стоящий перед описанием метода запрещает его переопределение.
{
    private int i; // Поле i класса B перекрывает поле i суперкласса.
    B(int i, int j)
    {
        super(i); // вызывается метод А(int i) суперкласса.
        this.i = j;
    }
    public void callMe()
    // Сигнатура функций должна совпадать. В противном же случае — это обычная перегрузка.
    // Сам метод называется переопределённым (аналог виртуальным методам в С++).
    {
        System.out.println("In B.callMe(). " + i); // Здесь выведется значение поля подкласса.
        // Для доcтупа к полю суперкласа нужно использовать super.i (но здесь поле недоступно, ибо private).
    }
}

// Использование абстрактных классов. Если мы объявляем какой-то метод в классе абстрактным, то
// автоматически должны сделать абстрактным и сам класс. С точки зрения динамической диспетчеризации это означает лишь то,
// что подклассы должны будут явно реализовать все абстрактные методы или тоже быть абстрактными.

abstract class AbstrA
{
    private int i;
    AbstrA(int i)
    {
        this.i = i;
    }
    abstract public void callMe();
}

final class AbstrB extends AbstrA
{
    private int i;
    AbstrB(int i, int j)
    {
        super(i);
        this.i = j;
    }
    public void callMe()
    {
        System.out.println("In AbstrB.callMe(). " + i);
    }
    protected void finalize()
    {
        // Считаю нужным упомянуть о методе finalize. Он должен вызываться при удалении объекта сборщиком мусора.
        // Используется для освобождения занятых ресурсов (закрытия файлов и т.п.).
        // Однако его поведение настолько туманно, что применять его не стоит, а позаботиться об освобождении отдельно. :)
        System.out.println("Wow! You're lucky to see it in your console! :D");
    }
}

// Использование интерфейсов и исключений. :)
// Все методы и члены интерфейсов по умолчанию делаются публичными. Все члены — final static.

interface MyInterface
{
    int pubStatFinalMember = 121;
    // Все переменные должны быть инициализированы.
    void someFunc();
}
/*
Доступ class имя_класса [extends суперкласс]
    [implements интерфейс [, интерфейс...]]
    //тело класса
*/
class Client implements MyInterface
// В классе должны быть определены все функции интерфейса. Спецификатор доступа у них обязан быть public.
// Если в классе определяются не все функции интерфейса, то он должен быть объявлен абстрактным.
// Кроме того интерфейс может быть вложен в класс или же другой интерфейс, а также интерфейсы можно наследовать.
{
    public void someFunc()
    {
        //pubStatFinalMember = 601; ——— Нельзя, т.к. переменная — final.

        System.out.println("In someFunc() from interface.");
    }
    public void badFuncEx() throws SQLException
    {
        //Здесь же и рассмотрим исключения. :)
        try {
            int i = 0;
            i = pubStatFinalMember / i;
            System.out.println("You shouldn't see it.");
        } catch (ArithmeticException ex) { // Тут мы поймаем исключение деления на нуль
            System.out.println(ex);
            throw new SQLException();
            // Пошлём другое исключение выше. >:D Но в таком случае мы должны у функции пометить, что она может
            // разбрасываться исключениями (см. throws список_исключений).
        } finally {
            // Этот блок кода обязательно получит управление после блока try/catch вне зависимости от исключения.
            System.out.println("You will always see it.");
        }
    }
}

Вывод:
10
15
In A.callMe(). 5
In B.callMe(). 15
In AbstrB.callMe(). 10
In someFunc() from interface.
java.lang.ArithmeticException: / by zero
You will always see it.

Пример кода на Delphi

Описание юнита, наследования и конструкторов

unit Unit1;

interface

uses
  Forms, Dialogs, Classes, Controls, StdCtrls;

type
  // Определение родительского класса основанного, по умолчанию, на TObject
  TFruit = class
  public
    name   : string;
    Constructor Create; overload;   // Этот конструктор использует умолчания
    Constructor Create(name : string); overload;
  end;

  // Определение типа потомка
  TApple = class(TFruit)
  public
    diameter : Integer;
  published
    Constructor Create(name : string; diameter : Integer);
  end;

  // Класс формы используемой этим модулем
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Вложение определений формы

// Создание объекта fruit - версия без параметров
constructor TFruit.Create;
begin
  // Сначала выполняется родительский конструктор (TObject)
  inherited;  // Вызов родительского метода Create

  // Теперь устанавливаем имя fruit, по умолчанию
  self.name := 'Fruit';
end;

// Создание объекта fruit - версия с параметрами
constructor TFruit.Create(name: string);
begin
  // Не cможет выполниться родительский конструктор - параметры отличаются

  // И сохраняем имя fruit
  self.name := name;
end;

// Создание объекта apple
constructor TApple.Create(name: string; diameter : Integer);
begin
  // Сначала выполняется родительский конструктор (TFruit)
  inherited Create(name);  // Вызов родительского метода

  // Теперь сохраняем переданный apple диаметр
  self.diameter := diameter;
end;

// Основная линия кода
procedure TForm1.FormCreate(Sender: TObject);
var
  fruit  : TFruit;
  banana : TFruit;
  apple  : TApple;

begin
  // Создание 3-х различных объектов fruit
  fruit  := TFruit.Create;
  banana := TFruit.Create('Banana');
  apple  := TApple.Create('Pink Lady', 12);

  // Смотрим какие из наших объектов являются fruit
  if fruit  Is TFruit then ShowMessage(fruit.name  +' - fruit');
  if banana Is TFruit then ShowMessage(banana.name +' - fruit');
  if apple  Is TFruit then ShowMessage(apple.name  +' - fruit');

  // Смотрим какие объекты являются apple
  if fruit  Is TApple then ShowMessage(fruit.name   +' - apple');
  if banana Is TApple then ShowMessage(banana.name  +' - apple');
  if apple  Is TApple then ShowMessage(apple.name   +' - apple');
end;
end.

Fruit - fruit
Banana - fruit
Pink Lady - fruit
Pink Lady - apple

Примеры на C++, Ада и Java с использованием шаблонов

Стек:

GENERIC
    TYPE T IS PRIVATE; SIZE : INTEGER;
PACKAGE Stacks IS
    TYPE Stack IS LIMITED PRIVATE;
    PROCEDURE Push(S: IN OUT Stack; X : IN T);
    PROCEDURE Pop(S: IN OUT Stack; X : OUT T);
    FUNCTION IsEmpty(S : IN Stack) RETURN BOOLEAN;
    FUNCTION IsFull(S : IN Stack) RETURN BOOLEAN;
PRIVATE
    TYPE Stack is RECORD
        Body : ARRAY (1..SIZE) OF T;
        Top : INTEGER := 1;
    END RECORD;
END Stacks;

template <typename T, int size> class Stack 
{
public:
    Stack() {top = 0;}
    void Push(T x);
    T Pop(T& x);
    bool IsEmpty();
    bool IsFull();
private:
    Stack (const Stack& s);
    T body[N];
    int top;
};

Очередь:

generic
  type T is private;
  Size : integer;
package G_Queue is
  type Queue is limited private;
  procedure Enqueue(Q: inout Queue; X:T);
  procedure Dequeue(Q: inout Queue; X:T);
  procedure Init(Q: out Queue);
  procedure Destroy(Q: inout Queue);
  function IsFull(Q: Queue);
  function IsEmpty(Q: Queue);
  –- другие процедуры ...
private
  type Queue is record 
Left, Right: integer;
     body : array(1..Size) of T; 
  end record;
end G_Queue;

Дек:

generic
  type T is private;
package G_Deque is
  type Deque is limited private;
  procedure PushRight(Deq: inout Deque; X:T);
  procedure PushLeft(Deq: inout Deque; X:T);
  procedure PopRight(Deq: inout Deque; X: out T);
  procedure PopLeft(Deq: inout Deque; X: out T);
  procedure Init(Deq: out Deque);
  procedure Destroy(Deq: inout Deque);
  function IsFull(Deq: Deque);
  function IsEmpty(Deq: Deque);
  –- другие процедуры ...
private
  type PLink is access;
  type Link is record inf : T; next, prev : PLink; end record;
  type PLink is access Link;
  type Deque is record Left, Right: PLink; end record;
end G_Deque;

interface IDeque<T>
{
    void PushLeft(T x);
    void PushRight(T x);
    T PopLeft();
    T PopRight();
    bool IsFull();
    bool IsEmpty();
    // другие функции
}

Функция перемножения матриц:

template <class T> Matrix<T>& MatMult (Matrix<T>& A, Matrix<T>& B);

Matrix<float> b,c;
// конкретизация функции
Matrix<float> a = MatMult(b,c);

generic
  type T is private;
  with function “+”(x,y:T) return T (<>);
  with function “*”(x,y:T) return T (<>);
  type Matrix is private;
function G_MatMult(A,B: Matrix) return Matrix;

Пример кода на С#

Пример обработки исключений в C#.

class NegativeValueException : Exception
{
    public NegativeValueException(string message) : base(message)
    {            
    }
}
// ... 
string path = @"c:\users\public\test.txt";
var file = new System.IO.StreamReader(path);
try
{
    var buffer = file.ReadLine();
    var time = Int32.Parse(buffer);
    if ( time < 0)
    {
        throw new NegativeValueException("Time must be a positive value.");
    }
    MyClassInstance.Foo(time);
}
catch (System.IO.IOException e)
{
    Console.WriteLine("Error reading from {0}. Message = {1}", path, e.Message);
}
catch (NegativeValueException e)
{
    Console.WriteLine("Value error. Message = {0}", e.Message);   
}
catch (Exception e)
{
    if (e is ArgumentNullException || e is FormatException || e is OverflowException)
    {
        Console.WriteLine("Parsing error. Message = {0}", e.Message);      
    }
    else
    {
        Console.WriteLine("Oops, something went wrong. Message = {0}", e.Message);               
    }
}
finally
{
    if (file != null)
    {
               file.Close();
    }
}

Моделирование приватных типов данных из Ады в C++

-- ADA 

-- head
package P is
   type T is limited private;
   function Convert (X: in T) return Integer;
end P;

-- body
package body P is
   type T is record 
      ...
   end record;
   function Convert (X: in T) return Integer is
      ...
   end Convert;
end P;

 //C++

 //P.hpp
class P {
public:
   P();
   operator int () const;
private:
   P(const P&);
   ...
}

Эмуляция в Java private и limited private из Ады

В Java нет перегрузки операций, поэтому эмуляция limited невозможна на Java. Эмуляция private реализуется таким же способом, что сверху:

//P.java
class P {
   public P() {
      ...
   }
   public int convert () {
      ...
   }
   private ...
}

Итоговая таблица

Если в таблице указан знак вопроса, то либо этого языка не было в списке языков в задании, либо информация отсутствует.

	ANSI/ISO C (1989/1990)	C++98	C#	Java	Pascal	Delphi	Оберон	Оберон-2	Modula-2	Ada83	Ada95
Оператор перехода «goto метка»	есть	есть	есть	нет[8]	есть	есть	нет	нет	нет	есть	есть
Конструкция "свойство" (property)	нет	нет	есть	нет	нет	есть	нет	нет	нет	нет	нет
Абстрактные методы	нет	есть	есть	есть	нет	есть	нет	нет	нет	нет	есть
Виртуальные методы	нет	есть	есть	есть	нет	есть	нет	есть	есть[9]	нет	есть
Перегрузка (overloading)	нет	есть	есть	есть	нет	есть	нет	нет	нет	есть	есть
Исключения (exceptions)[10]	нет	есть	есть	есть	нет	есть	нет	нет	нет	есть	есть
Конструкция try-finally	нет[11]	нет[12]	есть	есть	нет	есть	нет	нет	нет	нет	нет
Понятие связывания подпрограмм (методов класса) на этапе выполнения (динамическое связывание)	нет[13]	есть	есть	есть	нет	есть	нет	есть	нет	нет	есть
Раздельная независимая трансляция	есть	есть	нет	нет	нет	есть[14]	нет	нет	нет	нет	нет
Тип запись (struct, record)	есть	есть[15]	есть	нет	есть	есть	есть	есть	есть	есть	есть
Размеченные объединения	ч/и[16]	и[17]	нет	нет	есть	есть	нет	нет[18]	есть	есть[19]	есть[20]
Перечисления	есть	есть	есть	есть	есть	есть	нет	нет	есть	есть	есть
Оператор loop							есть	есть	есть	есть	есть
Оператор with	нет	нет	нет	нет	есть	есть	нет	есть	есть	нет[21]	нет
Запрещение замещения метода в произвольных классах или наследования класса	нет	нет	есть[22]	есть[23]	нет	нет	нет	нет	нет	нет	нет
Процедурное программирование	есть	есть	есть	есть	есть	есть	есть	есть	есть	есть	есть
Модульное программирование	ч/и	ч/и	и	и	и	и	есть	есть	есть	есть	есть
Вложенные модули						нет[24]	нет[25]	нет[26]	есть	есть	есть
АТД	нет	есть	есть	есть	нет	есть	есть	есть	ч/и[27]
Расширяющее программирование	нет	и	и	и	нет	и	есть	есть
ООП	нет	есть	есть	есть	нет	есть	и	есть	нет	нет	есть[28]
Компонентное программирование	и	и	и	и	нет[29]	и	и	и
Композиционное программирование	нет	нет	нет	нет	нет	нет	ч/и	ч/и
Обобщенное программирование	нет	и	и	нет	нет	нет	нет	нет	нет	есть	есть
Параллельное программирование	нет	нет[30]	есть	есть	нет	нет	нет	нет	ч/и?	есть	есть
Рефлексивное программирование	нет	и	есть	и	нет	и	и	и
Передача параметров по значению	есть	есть	есть[31]	есть[32]	есть	есть
Передача параметров по ссылке	и[33]	есть[34]	есть[35]	есть[36]	есть	есть

ч/и - частично имитируется

и - имитируется

Примечания

1. ↑ Была правка UTF-16 → Unicode. Откатил. Пояснил на странице обсуждения.
2. ↑ Иногда говорят «референциальные типы», здесь использован вариант перевода из msdn.
3. ↑ Видимо, без использования «родных» аналогичных конструкций, нужно уточнить.
4. ↑ Видимо, подразумевается конструкция throw (…) в заголовке метода/функции, а не выбрасывание (или повторное выбрасывание) исключения с помощью оператора throw.
5. ↑ Терминология отличается от принятой в мире языков с C++-подобным синтаксисом. Там: выбрасывание/выброс (throw), здесь — поднятие/возбуждение (raise).
6. ↑ Вероятно, только перед определением типа.
7. ↑ По крайней мере в контексте Java более корректно будет говорить не о наследовании (extends), а реализации (implements) или частичной реализации интерфейса (последнее возможно только для абстрактных классов)
8. ↑ Есть break label; и continue label;, где label ставится с двоеточием перед началом цикла и указывает, какой именно цикл (в случае continue — итерацию какого именно цикла) среди тех, в которые вложен данный оператор, нужно прервать. В Java есть зарезервированное слово goto, но оно не несёт никаких функций — оператора безусловного перехода в языке нет (однако переход осуществить можно, см. [1]).
9. ↑ Причём, каждый метод виртуален; взято отсюда.
10. ↑ Исключения также есть и в Visual Basic.
11. ↑ Имитируется макросами через goto cleanup;
12. ↑ Декларируется отстутвие необходимости ввиду налиия RAII; есть в качестве расширения в некоторых реализациях (GCC, MSVC)
13. ↑ Обычно реализуется через указатели на функции и указатели на структуры с указателями на функции.
14. ↑ С версии 4.0.
15. ↑ Является классом с публичной областью видимости для полей; если не использовать виртуальные методы, близок по использованию к структурам в C.
16. ↑ Обычный union + детерминант + ручная проверка
17. ↑ Или как в С, или используя boost::variant
18. ↑ Нет в Оберон; учитывая характер изменений, внесённых в Оберон-2, делаем вывод о том, что размеченных объединений в нём нет.
19. ↑ Есть в Ада; вероятно, есть и в конкретной реализации.
20. ↑ См. предыдущее примечание.
21. ↑ Ключевое слово with означает импортирование классов в текущую область видимости.
22. ↑ Используется ключевое слово sealed.
23. ↑ Используется ключевое слово final.
24. ↑ Вложенными могут быть только подпрограммы, которые не являются библиотечными модулями.
25. ↑ См. предыдущее примечание.
26. ↑ См. предыдущее примечание.
27. ↑ Делаем структуру, скрыто экспортируем указатель на неё в другой модуль.
28. ↑ См., например, Programming: Object Orientation, Язык Ада, 08 лекция (от 21 апреля)
29. ↑ Стандарт Паскаля — не поддерживает! Компонентный Паскаль и далее — поддерживают.
30. ↑ В C++11 появился std::thread. Подробнее.
31. ↑ cм. MSDN.
32. ↑ Только для простых типов (см. примечание для ячейки ниже).
33. ↑ Моделируется с помощью указателей.
34. ↑ Но можно действовать в стиле C — передавать по указателю.
35. ↑ Модификаторы ref и out, также см. MSDN.
36. ↑ Только для ссылочных типов (точнее, значений, на которые они ссылаются). По ссылке передаётся объект, ссылочная переменная передаётся по значению.