Описание задания
Разработка программы для решения 5-ти задач в интегрированной среде объективно-ориентированного программирования визуальной программы Delphi.
В рамках данного задания необходимо обеспечить решение следующих задач:
Задача 1: Найти y в данном выражении
z = e+ 4, 4810.
Задача 2: Вычислить выражение
y = -, a = 10.
Задача 3: Вычислить сумму ряда S = c погрешностью E > 0.
Задача 4: Упорядочить одномерный массив в порядке не убывания.
Задача 5: В произвольной матрице [Aij] i=; j= столбец, содержащий максимальный элемент, заменить на произведение всех элементов матрицы.
Программа состоит из 1-ой формы с 5-тью вкладками из 5-ти задач.
Решение задачи 1
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 1.
Рис. 1 (Внешний вид вкладки для решения первой задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez1Click(Sender: TObject);
begin
if EditX1.Text=' '
then ShowMessage ('Укажите X')
else
if (StrToFloat(EditX1.Text))<-1
then ShowMessage ('Sin(X) и Cos(X)<-1')
else
if (StrToFloat(EditX1.Text))>1
then ShowMessage ('Sin(X) и Cos(X)>1')
else
EditRez1.Text:=FloatToStr((Cos(StrToFloat(EditX1.Text))/(Sqr(Sin
(StrToFloat(EditX1.Text)))+5))-exp(Exp(Sqr(StrToFloat(EditX1.Text))))
+4.48*exp((-1)*ln(10)))
end;
На рисунках со 2-ой по 5-ую приведены иллюстрации работы процедуры:
Рис. 2 (Результат вычисления при корректных данных)
Рис. 3 (Результат вычисления при некорректных данных)
Рис. 4 (Результат вычисления при некорректных данных)
Рис. 5 (Результат вычисления при некорректных данных)
Решение задачи 2
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 6.
Рис. 6 (Внешний вид вкладки для решения второй задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez2Click(Sender: TObject);
const a=10;
begin
if EditX2.Text=' '
then ShowMessage ('Укажите X')
else
if (StrToFloat(EditX2.Text))<-1
then ShowMessage ('Sin(X) и Cos(X)<-1')
else
if (StrToFloat(EditX2.Text))>1
then ShowMessage ('Sin(X) и Cos(X)>1')
else
EditRez2.Text:=FloatToStr((Sqrt(a*strtofloat(EditX2.Text))/
Sin(Ln(StrToFloat(EditX2.Text))))-(Sqrt(Cos(Sqr(
StrToFloat(EditX2.Text)))/sqr(StrToFloat(EditX2.Text)))))
end;
На рисунках с 7-ой по 10-ую приведены иллюстрации работы процедуры:
Рис. 7 (Результат вычисления при корректных данных)
Рис.8 (Результат вычисления при некорректных данных)
Рис. 9 (Результат вычисления при некорректных данных)
Рис. 10 (Результат вычисления при некорректных данных)