Задания для самостоятельной работы

В разработанный калькулятор добавьте следующие операции: возведение в квадрат; извлечение квадратного корня; вычисление основных тригонометрических функций; перевод из десятичной системы счисления в двоичную, восьмеричную, шестнадцатеричную и обратно.

Контрольные вопросы

1. Структура проекта в Delphi

2. Назначение компонент Label, Edit, Button

3. Свойства и методы компонент Label, Edit, Button

4. Основные свойства и методы компонента Panel;

5. Способы выравнивания компонентов (свойство Align);

6. Методы передачи параметров между процедурами

Лабораторная работа №2. Циклические программы. Многострочное поле memo

ЦЕЛЬ РАБОТЫ: Освоение разработки циклических программ с использованием для вывода результатов многострочного поля Memo.

ПОДГОТОВКА К РАБОТЕ:

1. Изучить свойства и методы компонентов Memo и RichEdit. Сравнить возможности данных компонентов;

2. Изучить возможности компонентов Delphi по организации файлового ввода вывода. Описать возможные форматы файлов.

Задание. Создать приложение, которое выводит на экран таблицу умножения для любого числа. Результат расчета записать в файл. Форма должна иметь вид, представленный на рисунке 2. 1.

1) Последовательность действий по созданию интерфейса пользователя

1. Запустите Delphi.

2. В инспекторе объектов (Object Inspector) у объекта Form1 установите свойство Caption равным «Таблица умножения»

3. Перенесите на пустую форму объекты, изображенные на рисунке 2.2.

Установите у созданных объектов следующие свойства:

• Label1. Свойство Caption – Число

• Label2. Свойство Caption – Таблица умножения

• Edit1. Свойство Text – пустая строка

• Button11. Свойство Caption – Расчет

• Button12. Свойство Caption – Запись

• Button13. Свойство Caption – Очистить

• Button14. Свойство Caption – Чтение

• Memo1. Свойство ScrollBars - ssBoth.

• Очистите свойство Lines.

2) Последовательность действий по программированию щелчка по командным кнопкам (программирование событий)

1. Сделайте двойной щелчок мыши по кнопке Button1. В появившемся окне редактора кода наберите текст:

procedure Tform1.Button1Click(Sender: Tobject);

const n=10;

var i, m,k: integer;

begin

m := StrToInt(Edit1.Text);

For i := 1 To n do

begin

k := i*m;

Memo1.Lines.Add (‘ ‘+ IntToStr(i) +’ x ‘+ IntToStr(m)+’ = ‘+IntToStr(k));

end;

end;

2. Сделайте двойной щелчок мыши по кнопке Button2. Наберите текст:

procedure Tform1.Button2Click(Sender: Tobject);

begin

Memo1.Lines.SaveToFile (‘f1.txt’);

end;

3. Сделайте двойной щелчок мыши по кнопке Button3. Наберите текст:

procedure Tform1.Button3Click(Sender: Tobject);

begin

Memo1.Clear;

end;

4. Сделайте двойной щелчок мыши по кнопке Button4. Наберите текст:

procedure Tform1.Button4Click(Sender: Tobject);

begin

Memo1.Clear;

Memo1.Lines.LoadFromFile (‘f1.txt’);

end;

5.Откомпилируйте приложение и проверьте его работу