Алгоритмические языки и программирование. Лабораторная №1. Вариант № 4

ЛАБОРАТОРНАЯ РАБОТА 1
Тема: Первое приложение на DELPHI
Цель работы: Ознакомиться с основными приемами работы в среде DELPHI
Задание 1. Выполните последовательно следующие действия
Запустите Delphi. (Пуск → Программы → Borland Delphi 5)
Выберите в Палитре компонентов закладку Standard.
Перенесите с Палитры компонентов на форму компоненты TLabel и TButton. Для этого поочередно подводите курсор мыши к компонентам, читая подсказки, до тех пор, пока не появится Label. Выберете его, нажав левую кнопку мыши, а затем переместите указатель на форму и нажмите еще раз на кнопку мыши. Помещенный на форму компонент будет иметь имя Label1.
Проделайте то же самое, только с компонентом TButton.
Напишите обработчик события Button1Click. Для этого выберите на форме Button1 и щелкните на него дважды. Вы окажетесь в окне редактирования. Приведите обработчик события нажатия кнопки к следующему виду:
procedure TForm1.Button1Click(Sender: TObject);
begin
___Label1.Caption:= 'Здравствуй, мир!';
end;
При нажатии на кнопку вызывается обработчик события Form1.Button1Click(Sender: TObject), в котором мы меняем свойство Caption у объекта Label1.
Создайте новый каталог с именем MyProject. Для этого выполните команду главного меню File → Save Project As и с помощью пиктограммы “Новый каталог” создайте новый каталог. Сохраните проект в созданном каталоге, при этом предлагается сохранить два файла (с расширением pas и prj). Можно набирать произвольные имена.
Запустите на выполнение созданное Приложение. Для этого выберете в главном меню пункт Run → Run, или нажмите клавишу F9.
Нажмите на кнопку в запущенном Приложении и посмотрите, что из этого получилось. Закройте Приложение.
Поместите на форму компонент TEdit (см. п.3) и TButton.
Приведите обработчик события нажатия кнопки Button2 к следующему виду (вызов обработчика см. в п.5): (Переключение между формой, инспектором объектов и окном редактирования - F12).
procedure TForm1.Button2Click(Sender: TObject);
begin
___Label1.Caption:= Edit1.Text;
end;
Измените свойство Edit1.Text на “Привет, студент!!!”. Для этого выберете на форме объект Edit1. Перейдите в Object Inspector, в закладке Properties найдите свойство Text и замените его.
Запустите на выполнение ваше Приложение. Попробуйте нажимать кнопку, вводя разное значение в строку редактирования. Закройте Приложение.
Добавьте компоненты TLabel и TButton. Установите свойство объекта Label2.Caption равным 1 (см. п.3).
Приведите обработчик события нажатия кнопки Button3 к следующему виду (см. п.5):
procedure TForm1.Button3Click(Sender: TObject);
Var i: integer;
Begin
___i:= StrToInt(Label2.Caption);
___Label2.Caption:= IntToStr(i+1);
end;
{ IntToStr, StrToInt – функции, преобразующие целый тип в строковый и строковый в целый соответственно }
Разместите на форме все кнопки вертикально, друг под другом. Выделите все кнопки и выровняйте их размеры и положение с помощью команд Edit → Size и Edit → Align.
Сохраните и запустите приложение из среды. Проверьте работоспособность всех кнопок формы.
Должно получиться подобное приложение
Задание 2.
Создайте новое приложение (команда главного меню File → New → Application).
Добавьте на форму три компонента TButton, три компонента TLabel и один компонент TEdit.
Выравняйте размеры и положение компонентов на форме. Измените названия кнопок и текст в строке редактирования. Строка редактирования должна содержать следующую информацию: название группы и последние две цифры шифра студента. Форма может выглядеть примерно таким образом.
Запрограммируйте действие каждой из кнопок. При нажатии на кнопку в соответствующей метке должны появляться фамилия, имя и отчество студента.

В файле находятся отчет в ворде и отдельно сам исполняющий файл Делфи. Внимание - после скачивания следует изменить мою фамилию на Вашу фамилию. Операция эта занимает не более минуты.
Работа выполнена качественно и сдана с первого раза!