Описание задания
Разработка программы для решения 5-ти задач в интегрированной среде объективно-ориентированного программирования визуальной программы Delphi.
В рамках данного задания необходимо обеспечить решение следующих задач:
Задача 1: Найти y в данном выражении: y = (sin x)+e- ln(x+1).
Задача 2: Вычислить выражение y = +
Задача 3: Вычислить сумму S = c погрешностью E > 0
Задача 4: Дан одномерный массив [Ai]. Сформировать одномерный [Bi] массив из элементов массива [Ai] по закону B=Ai+j, i = ;N = M – i.
Задача 5: Получить квадратную матрицу [Aij], i,j=, элементами побочной диагонали которой будут числа, получающиеся в результате перемноженияi*(i+1), где i – номер строки.
Программа состоит из 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)>1')
else
if (StrToFloat(EditX1.Text))<-1
then ShowMessage ('Sin(X)<-1')
else
EditRez1.Text:=FloatToStr((Sqr(Sin(StrToFloat(EditX1.Text)))+
Exp(Exp(5*Ln(Abs(Sqr(StrToFloat(EditX1.Text))+1))))-
Ln(Sqr(StrToFloat(EditX1.Text))+1)))
end;
На рисунках со 2-ой по 5-ую приведены иллюстрации работы процедуры:
Рис. 2 (Результат вычисления при корректных данных)
Рис. 3 (Результат вычисления при некорректных данных)
Рис. 4 (Результат вычисления при некорректных данных)
Рис. 5 (Результат вычисления при некорректных данных)
Решение задачи 2
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 6.
Рис. 6 (Внешний вид вкладки для решения второй задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez2Click(Sender: TObject);
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))<4
then ShowMessage ('Логарифмическая ошибка')
else
EditRez2.Text:=FloatToStr(((Sqr(Sin(StrToFloat(EditX2.Text))))/
(Sqr(Cos(StrToFloat(EditX2.Text))))+5)+Exp((1/3)*
Ln(((Ln(StrToFloat(EditX2.Text)-2))))/
((Sqr(Sin(StrToFloat(EditX2.Text))))
+Sqr(StrToFloat(EditX2.Text))+1)))
end;
На рисунках с 7-ой по 10-ую приведены иллюстрации работы процедуры:
Рис. 7 (Результат вычисления при корректных данных)
Рис.8 (Результат вычисления при некорректных данных)
Рис. 9 (Результат вычисления при некорректных данных)
Рис. 10 (Результат вычисления при некорректных данных)