Порядок выполнения работы
Пример. Решение квадратного уравнения.
Общий вид квадратного уравнения: ax2+bx+c=0
Прежде всего находят дискриминант по формуле: D=b2-4ac.
Если дискриминант меньше нуля, то уравнение не имеет вещественных корней.
Если дискриминант больше нуля или равен нулю, то существуют 2 корня, которые вычисляются по формулам:
Открыть новое приложение с помощью команды File| New Application.
Сохранить проект.
На форме Form1 разместить компоненты Label1, Label2, Label3, Label4; Memo1; Edit1, Edit2, Edit3, Button1, Button2 как показано на рис. 2.4.
Свойству Caption метки Label1 задать значение
‘Введите коэффициенты квадратного уравнения
A * X ^ 2 + B * X + C = 0’
Разместить этот текст в двух строках и выровнять его по центру, установив следующие значения свойств:
AutoSize – False
WordWrap – True
Alignment – taCenter
Размеры метки и ее местоположение отрегулировать вручную. Размер и тип шрифта установить с помощью свойства Font.
Для меток Label2, Label3, Label4 установить свойство Caption равным ‘A=’,’B=’,’C=’ соответственно.
Для компонентов Edit1, Edit2, Edit3 установить свойство Text равным пустой строке.
Для компонента Memo1 выбрать свойство Lines и открыть окно String list editor. Удалить в нем строку ‘Memo1’.
Для кнопок Button1, Button2 установить свойство Caption равным ‘Решение’ и ’Очистить’ соответственно.
Выполнить двойной щелчок на кнопке ‘Решение’ и определить следующий обработчик события OnClick:
procedure TForm1.Button1Click(Sender:TObject);
var a,b,c,d,x1,x2:double;
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit1.Text='0')
then showmessage(' Неверно введены данные ')
else begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=b*b-4*a*c;
if d>=0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
Memo1.Lines.Add('Результат');
Memo1.Lines.Add('x1='+FloatToStr(x1));
Memo1.Lines.Add('x2='+FloatToStr(x2));
end;
if d<0 then Memo1.Lines.Add('Решений нет');
end;
end;
Рис. 2.4. Вид приложения
Вернуться в форму с помощью клавиши F12, выполнить двойной щелчок на кнопке ‘Очистить’ и определить следующий обработчик события OnClick:
procedure TForm1.Button2Click(Sender:TObject);
begin
Memo1.Clear;
end;
Откомпилировать и выполнить программу.
Содержание отчета
Тема, цель лабораторной работы и постановка задания в соответствии с вариантом.
Схематичное изображение главной формы приложения для заданий Б и В.
Блок-схемы.
Тексты программ.
Ответы на контрольные вопросы.
Варианты заданий
Задание Б
Задание В
Если три данных числа являются длинами сторон прямоугольного треугольника, то вычислить его площадь и периметр.
Определить, попадает ли точка (х, у) в круг радиуса R с центром в точке (а; b).
Найти наименьшее расстояние между точками A(x1,y1), B(x2,y2), C(x3,y3).
Если три данных числа могут являться сторонами равностороннего треугольника, то найти его площадь по формуле Герона
,
где p =
(a + b + c)/2.Зная значения длин сторон треугольника, определить его вид (разносторонний, равнобедренный, равносторонний).
Некоторая величина принимает одно их трех значений x, y, z. Найти ее максимальное отклонение от среднего значения.
Определить полярные координаты точки (х, у), заданной в декартовой системе координат.
Если три данных числа могут являться сторонами разностороннего треугольника, то найти его площадь и высоты.
Найти стоимость покупки с учетом скидки. Величина скидки в y % предоставляется в случае, когда x – сумма покупки больше z рублей.
Даны координаты вершин треугольника, определить, является ли он прямоугольным, и вывести длину наибольшей стороны.
Вычислить расстояние |AB|, |AC|, |BC| между точками A(x1,y1), B(x2,y2), C(x3,y3). Если |AB| > |BC|, то найти |AB| + |AC| + |BC|, иначе вывести значение |AC|.
Решить систему уравнений по формуле Крамера:
Дано натуральное трехзначное число. Определить количество одинаковых цифр в записи этого числа.
Установить, будет ли треугольник с вершинами в точках A(x1,y1), B(x2,y2), C(x3,y3) равносторонним.
Даны три целых отрицательных числа. Перемножить их попарно и полученные три положительных числа вывести в порядке возрастания.
Установить, будут ли прямые, проходящие через точки A, B и B, С, взаимно перпендикулярны.
Установить, будет ли треугольник с вершинами в точках A(x1,y1), B(x2,y2), C(x3,y3) равнобедренным.
Установить, будут ли точки A, B симметричными относительно одной из координатных осей.
Дано натуральное трехзначное число. Определить является ли оно числом- палиндромом, т.е. одинаково читается при записи справа налево и наоборот.
Известны координаты вершин треугольника. Определить, где находится начало координат (внутри треугольника, снаружи или находится на одной из его сторон).
Вычислить значение выражения при заданных значениях x, y, z:
.
Установить, будут ли точки A, B симметричными относительно начала координат.
Установить, является ли четырехугольник с вершинами в точках A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4) прямоугольником.
Вычислить значение выражения при заданных значениях x, y, z:
.
Дано натуральное трехзначное число. В записи этого числа найти максимальную цифру и записать ее в старший разряд числа.
Даны координаты вершин треугольника. Если треугольник прямоугольный, вычислить его площадь, в противном случае вычислите его периметр.
Задано натуральное трехзначное число. Если в записи этого числа все цифры четные, то найти их сумму, и вычислить их произведение, если это не так.
Дано целое четырехзначное число. Проверить, что все четыре цифры числа различны.
Известны координаты четырех точек. Выяснить, образуют ли они равнобедренную трапецию.
Дана кривая, заданная уравнением y=x2+c и известна длина отрезка. Определить, можно ли данным отрезком соединить точки, координаты которых являются корнями кривой.