program tt;
uses crt;
const
m=18;
n=6;
var c,b,bn,a,h,s,max,min:real;
j,i,i1:integer;
x,y:array[1..m] of real;
f:text;
begin
clrscr;
bn:=6;
h:=0.75;
a:=103;
assign(f,'E:\file1.txt');
rewrite (f);
write(f,'znachenia functii X:');
for j:=1 to m do
begin
b:=bn+j*h;
x[j]:=exp(ln(a)*(1/3))/(3*j);
write(f,x[j]:8:2);
end;
writeln(f,'');
writeln(f,'');
write(f,'znachenia functii Y:');
for j:=1 to m do
begin
b:=bn+j*h;
if x[j]<=b then
y[j]:=sin((x[j]/4)-0.5)+b
else
begin
s:=0;
i1:=1;
for i:=1 to n do
begin
i1:=i1*i;
c:=(4*sqr(i)/(i1))+4*sqr(i+1)/(i1*i);
s:=s+c;
end;
y[j]:=s-b*exp(ln(x[j])*(1/3))+a;
end;
write(f,y[j]:8:2);
end;
writeln(f,'');
writeln(f,'');
max:=y[2];
min:=y[2];
for j:=2 to m do
if j mod 2=0 then
begin
if y[j]>max then max:=y[j];
if y[j]<min then min:=y[j];
end;
writeln(f,'min=',min);
writeln(f,'max=',max);
writeln('fail zapisan');
close(f);
for j:=1 to m do begin
write('x':8,j,'=',x[j]:0:2);
writeln('y':8,j,'=',y[j]:0:2);
end;
readln;
end.
Условие задачи приведено ниже в файлике.
Заранее благодарен
| М | Файл удален. Читайте правила. Lapp |
