1.5. Заключение
Программа проверена. Решение задачи закончено.
2. Лабораторная работа 2. Программирование разветвляющихся алгоритмов
2.1 Исходное условие и уточнение постановки задачи
Заданы аргументы a ,b.
Вычислить значения функций p,r,k.
Уточнение постановки задачи
Исходные данные: вещественные значения a,b.
Результаты: вывод трех чисел в символах p,r,k.
2.2. Алгоритм
Алгоритм решения задачи включает одну алгоритмическую единицу (назовем ее R2) и может быть представлен в следующем виде.
Алгоритм R2
переменные
a,b: вещ; {входные параметры}
p,r,k: вещ; {выходные данные}
начало алг
ввести (a,b);
вычислить: p:= 1.6*1.6*a*sin(3)+exp(1/4*ln(0.09*b))*cos(3);
r:= exp(2)*sin(3*arctan(exp(1/2*ln(3)))+b*arctan(sqrt(1-sqr(0.5))/0.5));
если P*p+r*r<=1 тогда k:= ln(ABS(p)+5*ABS(r));
если p*p+r*r>2 тогда k:=p-ABS(r) иначе k:=ABS(p-r);
Вывести результат p ,r ,k на экран;
Конец алг.
2.3. Программа
2.3.1. Интерфейс
2.3.2. Программа на языке Delphi
procedure TForm1.Button1Click(Sender: TObject);
var a,b,p,r,k:real;
begin
a:=StrToFloat(edit1.text); // берем значение а
b:=StrToFloat(edit2.Text);// берем значение b
p:=1.6*1.6*a*sin(3)+exp(1/4*ln(0.09*b))*cos(3); // производим вычисление для p
r:=exp(2)*sin(3*arctan(exp(1/2*ln(3)))+b*arctan(sqrt(1-sqr(0.5))/0.5)); /производим вычисление для p
If P*p+r*r<=1 then k:=ln(ABS(p)+5*ABS(r)); // производим вычисление для k
if p*p+r*r>2 then k:=p-ABS(r) else k:=ABS(p-r); // производим вычисление для k
edit3.Text:=FloatToStr(p); // выводим ответ для функции a на экран
edit4.Text:=FloatToStr(r); // выводим ответ для функции a на экран
Edit5.Text:=FloatToStr(k); // выводим ответ для функции a на экран
end;
2.4. Результаты тестирования и выполнения программы
Для анализа правильности программы необходимо проверить ее работу при различных вариантах исходных данных. Тестовые примеры, выбранные для данной задачи, предусматривают проверку работы обеих ветвей программы. Результаты тестирования представлена ниже.
Исходные данные: a=1, b=1
Результаты: p= -0,18, r= -6,4, k= -6,58
Исходные данные: a=2, b=2
Результаты: p= 0,08, r= -6,4, k= -6,3
Исходные данные: a=5, b=5
Результаты: p= 1, r= 6,4, k= -5,4
Исходные данные: a=8, b=7
Результаты: p= 2, r= -6,4, k= -4,4
2. 5. Заключение
Программа проверена. Решение задачи закончено
Лабораторная работа 3. Программирование циклических алгоритмов. Табулирование функции
3.1 Исходное условие и уточнение постановки задачи
Заданы аргументы Xн, Хк,h,a.
Вычислить значения функции y, сумму, произведение, минимальное и максимальное значение функции у.
Уточнение постановки задачи
Исходные данные: вещественные значения xn,xk,h,a,x,y,sum,pr,min,max вещественного типа
Результаты: вывод шести чисел в символах x,y,sum,pr,min,max