Perda

  • 20 сент. 2011 г.
  • 654 Слова
Лабораторная работа А – Простая форма.

На занятии (часть А). Принимается только на паре!

Обязательная часть: (принимается не более 3 раз!)
Создать приложение на Delphi, содержащее форму соследующими свойствами (2 балла):
1. Заголовок формы - Фамилия, Имя, группа студента и название формулы из домашней части работы.
2. Уникальная иконка (пиктограмма системной кнопки).
3. Размеры формы 300(высота) на 400 (ширина) пикселей без возможности изменения.
4. Цвет формы соответствует системному цвету заголовка активного окна.
5. Шрифт на форме должен соответствовать представленному на рисунке.6. Форма поддерживает следующий функционал:
Программа должна вычислять сумму двух целых чисел и выводить результат в виде формулы. При некорректных исходных данных сообщать об этом пользователю.[pic] [pic]
Совет: 1. Используйте компоненты со страницы Standart (Edit – для исходных данных, Label – для результата и Button – для нажимаемой кнопки).
2. Окна ввода и поле вывода при запускеприложения должны быть пустыми.
3. При нажатии на кнопку (событие Button1.OnClick) запускайте обработчик:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : Integer;
begintry
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a+b;
Label1.Caption:=Edit1.Text+' + '+Edit2.Text+' = '+IntToStr(c);
exceptLabel1.Caption:='Ошибка исходных данных';
end;
end;
Чтобы в момент исключительной ситуации (exception) в блоке “try ... except” не возникало окно с текстом исключения, снимите «галочку» у выключателя«Stop on Delphi Exceptions» на закладке «Language Exception» окна настройки режимов отладки (меню «Tools/Debugger Options»)

Дополнительная часть (принимается только 1 раз и только у техстудентов, кто сдал первую часть; баллы выставляются только за выполненные задания).

Задание 1. (+0.5) В случае отрицательных чисел, выводить их в формуле в скобках, например:
2 + (–7) = (–5)...
tracking img