- •Министерство Образования Республики Беларусь Белорусский национальный технический университет
- •Курсовой проект
- •Решение задачи 1:
- •Блок-схема задачи 1.
- •Программа задачи 1.
- •Результаты счета.
- •Постановка задачи 2.
- •Блок-схема задачи 2.
- •Программа задачи 2.
- •Результаты счета:
- •Постановка задачи 3.
- •Блок-схема программы 3.
- •Программа 3.
- •Результаты счета:
Блок-схема задачи 1.
i=31
Программа задачи 1.
Program Zadacha1;
uses crt;
var j:integer;
a,b,c,d,x:real;
z:real;
i,n:integer;
f:text;
Begin
a:=0;b:=0;c:=0;n:=17;
for j:=1 to n+3 do begin
a:=a+sin(j); b:=b+ln(j); c:=c+j*j*j+j; end;
d:=a+b+c;
writeln('введите значение x=');
readln(x);
if x<=32 then begin
if (x>0) and ((x/d)>0) then begin
z:=ln(abs(x*a))+b*cos(x*x*x*x)*sin(exp((-3)*ln(x)))-c*ln(x)*ln(x)*ln(x)+sqrt(x/d);
writeln('x=',x:6:2,' Z=',z:12:3); end
else
writeln('функция не определена');
end;
if (32<x) and(x<=46) then begin
if (a>0) and (d>0) and (x>0)then begin
z:=ln(sqrt(a)*x)+x*x*x*sqr(b)-sin(c*x*x*x*x)-sqrt(d*d*d)*(sin(sqrt(x))/cos(sqrt(x)));
writeln('x=',x:6:2,' Z=',z:12:3); end
else
writeln('функция не определена');
end;
if (46<x)and(x<=53) then begin
if ((a*x)>0) and (b>0) and (x>0) and ((b*b*x)>0) and (sin(ln(b*b*x))>0) and (cos(x)>0) and ((c*sin(x)/cos(x))>0) then begin z:=a*exp(3/4*ln(cos(x/d)))+b*sqrt(sin(ln(b*b*x)))+ln(c*(sin(x)/cos(x)))+cos(exp(d/2*ln(x)));
writeln('x=',x:6:2,' Z=',z:12:3); end
else
writeln('функция не определена');
end;
if (53<x)and(x<=102) then begin
if ((a*x)>0) and (d>=0) and (c*exp(2/7*ln(x))>0)then begin
z:=ln(a*x)+cos(exp(b*ln(x)))/ln(exp(x*ln(b)))-(x+7*d)+c*(exp(2*c*x)/ln(c*exp(2/7*ln(x))));
writeln('x=',x:6:2,' Z=',z:12:3);
end
else
writeln('функция не определена');
end;
if (102<x)and(x<=130) then begin
if (x<>0) and (x-d>0) and (x-d<>1) then begin
z:=a*exp(3/8*ln(ln(abs(x))))+b*sin(b*exp(-b/x))+(x-c)+d*((sqr(sin(x*x*x))/sqr(cos(x*x*x)))/ln(x-d));
writeln('x=',x:6:2,' Z=',z:12:3);
end
else
writeln('функция не определена');
end;
if x>130 then begin
z:=0;
writeln('x=',x:6:2,' Z=',z:12:3);end;
end.
Результаты счета.
Постановка задачи 2.
Разработать алгоритм и программу для нахождения максимального и минимального элементов матрицы Zij и их индексов (i,j). Экстремальные значения Zij искать среди элементов, для которых выполняются условия:
Матрица Zij формируется исходя из условий:
Где n-номер варианта, fn, fn+1 – функции, взятые из таблицы 5.1, в соответствии с вариантом n=i: размерность матрицы 30 на 30 (i=30, j=30). Функция fn зависит от x,a,b,c,d (таблица 5.1), которые определяются как x=n(i+j), a=ni, b=n(i+1), c=nj, d=n(j+1), где n-номер варианта. Если fn(x) неопределима при заданных x,a,b,c,d, то Zij=0.
В программе организовать вывод максимального и минимального элементов, а также индексов j и i в файл A.LST.
5 |
|
6 |
|