Описание задания
Разработка программы для решения 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 (Результат вычисления при некорректных данных)