Описание задания

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