Практическая работа Delphi_05

Цель: Составить программу, вычисляющую корни квадратного уравнения a₂x²+а₁х+а₀ = 0 с произвольными коэффициентами (а₂  0).

План разработки программы

1. Создать папку D:\MyProject\Text (можно любую другую).

2. Открыть новое приложение с помощью команды главного меню File | New | Application.

3. На форме Form1 разместить следующие компоненты Label1, Label2, Label3, Memo1, Button1 и Button2. Все Компоненты взять со страницы Standard Палитры Компонентов.

4. Свойству Caption метки Label1 задать значение:

Введите коэффициенты квадратного уравнения A2*X^2+A1*X+A) = 0

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

AutoSize - False,

Wordwrap - True,

Alignment - taCenter.

Размеры сетки и ее местоположение можно отрегулировать вручную.

Перейти в свойство Font и щелкнуть по кнопке с тремя точками. В появившемся окне изменить размер шрифта с 8 на 10. Нажмем ОК.

5. Для меток Label2, Label3 и Label4 установить свойство Caption равным ‘A0 =‘, ‘A1 =‘ и ‘A2 =‘ соответственно.

6. Для компонентов Edit1, Edit2 и Edit3 установить значение свойства Text равным пустой строке.

7. Для компонента Memo1 выбрать свойство Lines и щелкнуть по кнопке с тремя точками. В появившемся окне String List editor удалить строку 'Memo1'. Нажать ОК.

8. Кнопкам Button1 и Button2 установить свойство Caption равным 'Решение' и 'Очистить' соответственно.

9. Двойным щелчком активизировать кнопку Решение и для обработчика события OnClick вставить следующие строки:

procedure TForm1.Button1Click(Sender: TObject);

var a0,al,a2,d,xl,x2:double;

begin

a0 := StrToFloat(Edit1.Text);

a1 := StrToFloat(Edit2.Text);

a2 := StrToFloat(Edit3.Text);

d := a1*a1 – 4*a2*a0;

if d>=0 then

begin

x1 := (-a1+sqrt(d))/(2*a2);

x2 := (-a1-sqrt(d))/(2*a2);

Memo1.Lines.Add('Результат:');

Memo1.Lines.Add('x1 = ' +FloatToStrF(x1,ffGeneral,7,2));

Memo1.Lines.Add('x2 = ' +FloatToStrF(x2,ffGeneral,7,2));

end;

if d<0 then

Memo1.Lines.Add('Решений нет:');

end;

10. Нажать клавишу F12 и вернуться в форму. Двойным щелчком активизировать кнопку Очистить и в обработчик события OnClick вставить строку

Memo1.Clear;

11. Сохранить проект в папке D:\MyProject\Text и запустить приложение на выполнение, используя функциональную клавишу F9. Для решения квадратного уравнения ввести коэффициенты и нажать кнопку Решение. Для очистки окна редактора нажать кнопку Очистить.

12. Записать текст программы Unit1.pas в тетрадь.

Практическая работа Delphi_06

Цель: Создать программу, выполняющую следующие действия.

(После запуска программы пользователь вводит свое имя, например Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter; появляется вопрос: «Александр, ты любишь читать?». Если пользователь щелкает на кнопке «Да», то появляется реплика «Молодец!», если на кнопке «Нет», то появляется реплика «Почему же? Надо читать»; для выхода из программы необходимо щелкнуть на кнопке «Выход»).

План разработки программы

1. Открыть новый проект. Дать форме название «Диалог».

2. Разместить на форме экземпляры компонентов в соответствии с таблицей.

3. Выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
BitBtn1	Properties	Caption	Установка имени кнопки «Выход»
		Kind	bk Close
Label1	Properties	Caption	Ввод надписи «Введи свое имя и нажми Enter»
Edit1	Events	OnKeyPress	If key=#13 then begin Label2. Caption:=Edit1. Text + + ' , ты любишь читать?' ; end;

Button1	Properties	Caption	Установка имени кнопки: «Да»
	Events	OnClick	Label3.Caption: = ' Молодец! '
Button2	Properties	Caption	Установка имени кнопки: «Нет»
	Events	OnClick	Label3.Caption:= 'Почему же? Надо читать.';

4. Сохранить код программы и проект под именами, например, pr_2.pas и pr_2.dpr.

5. Запустить программу и закрыть окно проекта, щелкнув на кнопке «Выход».

6. Сохранить проект, запустить и протестировать его.

Задание для самостоятельного выполнения

1. Сделать кнопки «Да» и «Нет» доступными только после ввода имени и нажатия клавиши Enter.

Подсказка. Значение свойства Enabled кнопок «Да» и «Нет» установить равным False, а в процедуру EditlKeyPress включить код

Button1.Enabled := true;

Button2.Enabled := true;

2. Удалить имена объектов Edit1, Label2, Label3 для обеспечения возможности повторить диалог.

Подсказка. Разместить на форме еще одну кнопку BitBtn. Установить значение bkRetry свойства Kind и значение «Повторить» свойства Caption. Ввести программно по нажатию кнопки «Повторить» пустые строки вместо надписей и имен кнопок:

Label2.Caption:= ' ' ;

Label3.Caption:= ' ' ;

Edit1.Text:= ' ' ;

3. Сделать так, чтобы при повторении диалога строка ввода была снова активной.

Подсказка. Ввести команду

Form1.ActiveControl:= Edit1