Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Ельцов курсовая.docx
Скачиваний:
3
Добавлен:
15.03.2016
Размер:
471.01 Кб
Скачать

Решение задачи 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)+1)/

Cos(strtofloat(EditX1.Text)+1))+Exp(strtofloat(EditX1.Text)+1)

+Ln(Sqr(strtofloat(EditX1.Text))+2))

end;

На рисунках со 2-ой по 5-ую приведены иллюстрации работы процедуры:

Рис. 2 (Результат вычисления при корректных данных)

Рис. 3 (Результат вычисления при некорректных данных)

Рис. 4 (Результат вычисления при некорректных данных)

Рис. 5 (Результат вычисления при некорректных данных)

Решение задачи 2

Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.

Внешний вид вкладки приведён на рисунке 6.

Рис. 6 (Внешний вид вкладки для решения второй задачи)

Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:

procedure TForm1.ButtonRez2Click(Sender: TObject);

const y=10;

begin

if EditX2.Text=' '

then ShowMessage ('Укажите X')

else

if (StrToFloat(EditX2.Text))<0

then ShowMessage ('Логарифмическая ошибка')

else

EditRez2.Text:=FloatToStr(Ln(Sqrt((y-sqrt(StrToFloat(EditX2.Text)))*

(StrToFloat(EditX2.Text)-(y/(y+sqr(StrToFloat(EditX2.Text))))))))

end;

На рисунках с 7-ой по 9-ую приведены иллюстрации работы процедуры:

Рис. 7 (Результат вычисления при корректных данных)

Рис.8 (Результат вычисления при некорректных данных)

Рис. 9 (Результат вычисления при некорректных данных)

Решение задачи 3

Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.

Внешний вид вкладки приведён на рисунке 10.

Рис. 10 (Внешний вид вкладки для решения третьей задачи)

Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:

procedure TForm1.ButtonRez3Click(Sender: TObject);

var S,y:Real;

i:Integer;

begin

S:=0;

y:=0;

if EditN.Text=' '

then ShowMessage ('Укажите N')

else

for i:=0 to StrToInt(EditN.Text)-1 do

begin

y:=(((i+1)+i)/(i+1));

S:=(S)+(y);

end;

EditRez3.Text:=FloatToStr(S)

end;

На рисунках с 11-ой по 13-ую приведены иллюстрации работы процедуры:

Рис. 12 (Результат вычисления при корректных данных)

Рис. 13 (Результат вычисления при некорректных данных)

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.