Сложная функция с графическим режимом Опции

[Deks]

Просьба помочь дорешать задачу по построению графика сложной функции. Функция задана, осталось впринципе чисто сделать графическую часть:

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

[volvo]

Функция задана, осталось впринципе чисто сделать графическую часть:

Во-первых, я не вижу заданной функции. В твоей программе вообще нет ни одной функции.

А во-вторых, на форуме НЕОДНОКРАТНО выкладывались программы для отображения графиков функций. Потрудись зайти в поиск и набрать несколько слов. Кстати, тоже Правила Раздела, пункт 3.

[Deks]

Проблема в том, что графику как раз по образцу единственное что и не могу сделать сам

y[j]:=sin((x[j]/4)-0.5)+b
y[j]:=s-b*exp(ln(x[j])*(1/3))+a

вот 2 варианта графиков в зависимости от Х. Но т.к. 2ое условие никогда не выполняется, впринципе график строится только по y[j]:=sin((x[j]/4)-0.5)+b

Сообщение отредактировано: Deks - 22.11.2009 17:44