Критерии оценок:

1 (один)	– 2-3 балла		6 (шесть)	– 15-16 баллов
2 (два)	– 4-7 баллов		7 (семь)	– 17-18 баллов
3 (три)	– 8-10 баллов		8 (восемь)	– 19-20 баллов
4 (четыре)	– 11-12 баллов		9 (девять)	– 21 балл
5 (пять)	– 13-14 баллов		10 (десять)	– 22 балла

Вариант №3 Уровень I

1. (2 Балла) Установите соответствие между кнопками и их описанием:

1.	TShape	а)	Позволяет создать на форме прокручиваемую область с размерами большими, нежели экран. На этой области можно разместить свои объекты.
2.	TBevel	б)	Элемент оформления для создания заголовков с изменяемыми размерами для таблиц.
3.	THeader	в)	Элемент для рельефного оформления интерфейса.
4.	TScrollBox	г)	Служит для отображения простейших графических объектов на форме: окружность, квадрат и т.п.
5.	TNoteBook	д)	Используется для создания многостраничного диалога, на каждой странице располагается свой набор объектов. Используется совместно с TTabSet.

1 г 2 в 3 б 4 а 5 д

2. (3 балла) Опишите работу (назначение и свойства) в среде Delphi c компонентом TMaskEdit

Предназначен для ввода по заданному шаблону. Его свойства:

EditMask – установка маски ввода

Уровень II

3. (4 балла) Опишите последовательность действий при разработке программы, в которой необходимо создать кнопку «Открыть» на основе компонента TButton, при нажатии на которую открывается приложение.

Procedure TForm1.ButtonClick

Begin

Open

End

Уровень III

4. (5 балла) Напишите программу для работы в среде Delphi для решения следующей задачи

Уровень IV

5. (8 баллов) Напишите программу для работы в среде Delphi, которая вычислит доход по вкладу. Программа должна обеспечивать расчет простых и сложных процентов. Простые проценты начисляются в конце срока вклада, сложные – ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы программы приведен ниже.

procedure TForm1.Button1Click(Sender: TObject);

var

sum: real; {сумма вклада}

pr: real; {процентная ставка}

srok: integer; {срок вклада}

dohod: real; {доход по вкладу}

buf: real;

i: integer;

begin

{получить исходные данные}

sum:=StrToFloat (Edit1.Text);

pr:= StrToFloat (Edit2.Text);

srok:= StrToInt (Edit3.Text);

if RadioButton1.Checked

then {выбран переключатель Простые проценты}

dohod:=sum*(pr/100)*(srok/360)

else {т. к. В группе два переключателя, то если не выбран RadioButton1, то выбран RadioButton2 - Сложные проценты}

begin

buf:=sum;

for i:=1to srok do

buf:=buf+buf*(pr/100);

{здесь buf - сумма в конце срока вклада}

dohod:=buf-sum;

end;

sum:=sum+dohod;

Label6.Caption:='Доход:'+FloatToStrF (dohod, ffGeneral, 9, 2)+#13+'Сумма в конце срока вклада:'+FloatToStrF (sum, ffGeneral, 9, 2);

End;

procedure TForm1.RadioButton1Click (Sender:

TObject);

begin

Label5. Caption :=' Срок (дней)';

Label6. Caption :='';

end;

procedure TForm1.RadioButton2Click

(Sender: TObject);

begin

Label5. Caption :=' Срок (месяцев)';

Label6. Caption :='';

end;

end.

end;

end.

Критерии оценок: 1 (один) – 2-3 балла 6 (шесть) – 15-16 баллов 2 (два) – 4-7 баллов 7 (семь) – 17-18 баллов 3 (три) – 8-10 баллов 8 (восемь) – 19-20 баллов 4 (четыре) – 11-12 баллов 9 (девять) – 21 балл 5 (пять) – 13-14 баллов 10 (десять) – 22 балла