Решение задачи 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(Sin(StrToFloat(EditX1.Text))+
Exp(5*Ln(Abs(Sqr(StrToFloat(EditX1.Text))+1)))-
Sqrt(Abs((Sqr(StrToFloat(EditX1.Text)))/(Sqr(StrToFloat(EditX1.Text))
+5))))
end;
На рисунках со 2-ой по 5-ую приведены иллюстрации работы процедуры:
Рис. 2 (Результат вычисления при корректных данных)
Рис. 3 (Результат вычисления при некорректных данных)
Рис. 4 (Результат вычисления при некорректных данных)
Рис. 5 (Результат вычисления при некорректных данных)
Решение задачи 2
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 6.
Рис. 6 (Внешний вид вкладки для решения второй задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez2Click(Sender: TObject);
var a:Real;
begin
a:=54*Exp((-3)*Ln(10));
if EditX2.Text=''
then ShowMessage ('Укажите X')
else
if (StrToFloat(EditX2.Text))<-1
then ShowMessage ('Sin(X)<-1')
else
if (StrToFloat(EditX2.Text))>1
then ShowMessage ('Sin(X)>1')
else
if (StrToFloat(EditX2.Text))<0
then ShowMessage ('Логарифмическая ошибка')
else
EditRez2.Text:=FloatToStr(Ln(Sin(StrToFloat(EditX2.Text)*
Sqr((1+Cos(a/StrToFloat(EditX2.Text)))/a*StrToFloat(EditX2.Text)
*sin(a*strtofloat(EditX2.Text)))))+sqrt(Sin(StrToFloat(EditX2.Text))
/StrToFloat(EditX2.Text)))
end;
На рисунках с 7-ой по 10-ую приведены иллюстрации работы процедуры:
Рис. 7 (Результат вычисления при корректных данных)
Рис.8 (Результат вычисления при некорректных данных)
Рис. 9 (Результат вычисления при некорректных данных)
Рис. 10 (Результат вычисления при некорректных данных)
Решение задачи 3
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 11.
Рис. 11 (Внешний вид вкладки для решения третьей задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez3Click(Sender: TObject);
var S,y,z:Real;
i:Integer;
begin
S:=0;
y:=0;
z:=0;
if EditEps.Text=''
then ShowMessage ('Укажите Eps')
else
if EditN.Text=''
then ShowMessage ('Укажите N')
else
for i:=0 to StrToInt(EditN.Text)-1 do
begin
z:=z+1;
y:=(1/sqr(z));
S:=(S)+(y);
end;
EditRez3.Text:=FloatToStr(S)
end;
На рисунках с 12-ой по 14-ую приведены иллюстрации работы процедуры:
Рис. 12 (Результат вычисления при корректных данных)
Рис. 13 (Результат вычисления при некорректных данных)
Рис. 14 (Результат вычисления при некорректных данных)