Лабораторная работа № 4 программирование алгоритмов разветвленной структуры

Цель работы:

Разработать программу, реализующую решение квадратного уравнения вида: аx²+вx+с=0.

Последовательность выполнения работы:

1. Перенесите на форму 6 компонент Label и расположите их с левой стороны формы в столбец. В свойстве Caption данных компонент соответственно занесите надписи :

Label1 – Программа решения квадратного уравнения

Label2 - Введи коэффициент а

Label3 - Введи коэффициент в

Label4 - Введи коэффициент с

Label5 – Результаты решения

Label6 – Сотрите надпись и ничего не вводите, здесь в процессе выполнения программы происходит вывод результатов решения.

2. Перенесите на форму 3 компоненты Edit и расположите их с правой стороны формы напротив компонент Label2, Label3, Label4 соответственно. Здесь происходит ввод коэффициентов квадратного уравнения.

3. Перенесите на форму компонент Button1, в свойстве Caption напишите Ok.

4. Произвести щелчок по кнопке, после чего в программном модуле появится текст:

Procedure Tform1.Button1Click (Sender : TObject);

begin

end;

end.

5. Между операторами begin и end наберите текст программы:

a:= StrToFloat(Edit1.Text);

b:= StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

d:=sqr(b)-4*a*c;

Далее запишите в 1 строку:

If d<0 then Label6.Caption:=' Нет решения ' else Label6.Caption:= ' x1:='

+FloatToStr((-b-sqrt(d))/(2*a))+' x2:= '+FloatToStr((-b+sqrt(d))/(2*a));

5. После оператора

Var

Form1: TForm1;

Объявите переменные

a,b,c,d : real;

7. По клавише F9 произвести запуск программы на исполнение, выполнить программу при 2-x вариантах a=2 b=5 c=2 и a=1 b=1 c=1.

Во втором варианте программа должна выдать заключение о невозможности решения квадратного уравнения (на множестве действительных чисел).

8. Доработайте программу таким образом, чтобы проверялось условие d=0, и в случае выполнения условия выдавалось сообщение «уравнение имеет одно решение х =…».

9 С помощью команд File Save as и Save Project As сохранить программный модуль и проект под именами Unit3, Project3 в папку Projects, находящуюся в папке Delphi6.

Рис3. Вид формы в лабораторной работе №4

Лабораторная работа № 5 программирование выбора действий с помощью компонента ComboBox

Цель работы:

Разработать программу, которая имитирует работу калькулятора по 4-м основным действиям: сложение чисел, вычитание чисел, умножение чисел, деление чисел.

Последовательность выполнения работы:

1. Перенесите на форму 5 компонент Label и расположите их с левой стороны формы в столбец. В свойстве Caption данных компонент соответственно занесите надписи:

Label1 – Калькулятор

Label2 - Первое число

Label3 - Знак действия

Label4 - Второе число

Label5 – Результат

2. С правой стороны формы напротив компонент Label2 – Label5 разместите компоненты Edit1, ComboBox, Edit2, Panel1. Компонент Panel находится на странице Standard и также как и Label может служить для вывода информации. В свойстве Caption компонента Panel и в свойстве Text компонента Edit сотрите надписи. Компонент ComboBox находится на панели Standard.

Этот компонент в нашей программе работает в режиме выбора действий калькулятора. В свойстве Items данного компонента откройте диалоговое окно и запишите туда в столбик знаки действий калькулятора: + - * /.

3. Перенесите на форму компонент Button1, в свойстве Caption напишите Расчет.

4. Произвести щелчок по кнопке, после чего в программном модуле появится текст:

Procedure Tform1.Button1Click (Sender : TObject);

begin

end;

end.

5. Между операторами begin и end наберите текст программы:

case CоmboBоx1.ItemIndex of

0: Panel1.Caption:=FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));

1: Panel1.Caption:=FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));

2: Panel1.Caption:=FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));

3: Panel1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));

end;

6. По клавише F9 произвести запуск программы на исполнение, выполнить программу при нескольких вариантах исходных данных.

7. Самостоятельно допишите фрагменты программы, предназначенные для взятия квадратного корня из числа и возведения числа в степень. Для возведения числа х в степень n можно в цикле n раз перемножить число х или воспользоваться формулами: xⁿ=e^{n ln(x)} при х>0

xⁿ=-e^{n ln (- x)} при х<0

8. C помощью операторов try ..except..end; (монография [3], стр. 229) организуйте блок защиты для обработки исключительной ситуации в случае деления на ноль. Должен выдаваться результат, показывающий бесконечность (например 1.1E+38).

9. С помощью команд File Save as и Save Project As сохранить программный модуль и проект под именами Unit4, Project4 в папку Projects, находящуюся в папке Delphi6.

Рис 4. Вид формы в лабораторной работе № 5