Побольше дискуссий, хороший и разных.

← →
Нехочуха (2006-03-28 21:43) [0]

Очень много узнаешь интересного (не в кавычках), в процессе таких дискуссий.
Последняя интересная про задачки на собеседовании от Nikolay M.

Хочется ещё =)

← →
Юрий Зотов © (2006-03-29 00:29) [1]

Жаль, что последняя.

← →
McSimm © (2006-03-29 01:28) [2]

Хорошие и разные дискуссии, это конечно приятно.

Наткнулся сегодня в архивах на одну старую тему, возможно тем кто не застал то обсуждение будет интересно:
----------------------------------------
Посмотрите на этот пример и постарайтесь предсказать что попадет в Caption формы при нажатии на Button1. Потом проверьте.
На форме лежат:
Button1: TButton;
MyNameIsA: TEdit;
MyNameIsB: TMemo;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyNameIsA.Text := "Меня зовут A";
MyNameIsB.Text := "Меня зовут B";

MyNameIsA.Name := "Unnamed";
MyNameIsB.Name := "MyNameIsA";

Caption := MyNameIsA.Text
end;
----------------------------------------

Хочу привести задачки из более старой дискуссии.
Юрий Зотов © (21.03.03 09:19)
...
К сожалению, уровень рядовых программистов (во всяком случае там, где мне довелось работать) довольно-таки невысок. Так что вряд ли Вы не сможете выдержать такого сравнения.
Ну а если уж очень хочется, давайте попробуем.
Уговор - на все вопросы отвечать без машины, книг и справки. Можно пользоваться лишь бумагой и ручкой. Если не помните наизусть количество параметров в функциях, их тип и порядок следования - это неважно, достаточно указать лишь схему вызова - например, так: MyFunc(MyParam1, ..., MyParam2). Ответы нужны короткие, но точные - то есть, лишь самая суть в одной-двух фразах. Общее время на все - примерно час.
И еще - имейте в виду, что большинство приводимых ниже вопросов, IMHO, в общем-то, выше уровня среднего прикладного программиста. Так что, если на что-то не ответите, то это вовсе не повод не для расстройства (зато повод для чтения книг). Думаю, если ответите на половину, то это уже будет очень даже неплохо. А если на все - то Ваш уровень явно выше среднего.
Вопрос 1 (на знание основ и платформы).
Чему будет равно W после выполнения следующего кода процессором x86? Ответ объяснить.
type
PWord = ^word;
var
I: integer;
W: word;
begin
I := High(I) shr 8;
W := PWord(Integer(@I) + 2)^;
end;
Вопрос 2 (на знание языка, общее умение программировать и грамотность стиля).
а). Что такое открытые массивы и их конструкторы?
б). Напишите пример перегрузки процедуры.
в). Написать процедуру поиска в заданном каталоге и всех его подкаталогах всех файлов по маске A?.B* (контрольное время - 20 минут).
г). В чем недостаток такого кода:
try
Obj := TMyObject.Create;
...
finally
Obj.Free;
end;
Вопрос 3 (на знание и понимание VCL).
а). Что такое Custom-класс, абстрактный метод, классовый метод?
б). В чем главное отличие TLabel от TStaticText?
в). От какого класса наследуется TCollection и почему.
г). У каких компонентов есть событие OnCreate? Почему его нет у других компонентов?
д). Написать модуль, содержащий класс, который позволяет создать лишь один свой экземпляр (контрольное время - 10 минут).
Вопрос 4 (на знание Win32 и ее API).
а). Что такое объекты ядра? Перечислите несколько функций, в которых они используются.
б). Приводят ли вызовы функций LoadLibrary/FreeLibrary к загрузке DLL в ОЗУ?
в). Написать стандартный код цикла выборки сообщений (контрольное время - 2 минуты).
г). Чем отличаются функции SendMessage, PostMessage и PosrThreadMessage?
д). Каково назначение функций GetStockObject и SelectObject?

P.S. ОГРОМНОЕ СПАСИБО Юрию Зотову за то, что он когда-то придумал этот тест. Он стал большим уроком для меня и даже для многих мастеров. Думаю тем, кому довелось поучаствовать в той дискуссии, будет приятно снова оценить свои силы.

Побольше дискуссий, хороший и разных. Найти похожие ветки