2001 досрок 1 (Решённые задачи прошлых лет)

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

class X { public :

virtual void g (int j) { cout « "X::g(" « j « ")\n"; g(); }

void g (). { cout « "X::g()" « '\n'; }

};

class Y : public X {

public :

void g (int j) { cout « "Y::g(" « j « ")\n"; g();}

void g () { cout « "Y::g()" « '\n'; } };

class Z : public Y { public:

void g (int j) { cout « "Z::g(" « j « ")\n"; Y::g(); }

void g () { cout « "Z::g()" « '\n'; }

};

void d (X * px, Y * py) { px->g (2); py -> g (2); } void f () {

X x; Y y; Z z; X * px; Y * py;

px = &x; py = &y; d (px, py) ;

px = py; d(px, py) ;

py = &z; d(px, py) ;

}

2. В каких языках из перечисленных ниже есть понятие глобальных функций? Java, Модула 2, Си++, Ада, С#, Оберон

3. Напишите спецификацию класса на языке Си++, функционально эквивалентную

приведенной ниже спецификации пакета на языке Ада.

GENERIC

TYPE T IS PRIVATE;

WITH FUNCTION "+" (X,Y:T) RETURN T;

WITH FUNCTION "-" (X,Y:T) RETURN T;

WITH FUNCTION "*" (X,Y:T) RETURN T;

WITH FUNCTION "/" (X,Y:T) RETURN T;

WITH FUNCTION "<" (X,Y:T) RETURN BOOLEAN;

WITH FUNCTION F (X:T) RETURN T;

FUNCTION Integral (A,B,EPS : T) RETURN T;

4. Можно ли смоделировать конструкцию throw(список типов-исключений) языка Си++ в языке Delphi? Если можно, то объясните, каким образом это сделать.

5. Чем отличается класс, описанный с помощью ключевого слова struct от класса, описанного с помощью ключевого слова class в языке Си++?

6. Смоделируйте на языке Оберон понятие, аналогичное скрытому типу данных на языке Модула-2.