Сохранение данных в текстовом файле

[Twistar]

[Тролль]

Для таких вопросов есть в разделе программирования с самого верху важная тема "Заказы: Сделайте все за меня"". Не надо без нужды множить темы.

Если я правильно идентифицировал то пятно на рисунке, это sin³x

var x,y,ymin,ymax:real; f:text;begin ymin:=1; ymax:=-1; assign(f,'func.txt'); rewrite(f);writeln('   x      f(x)'); writeln('---------------');writeln(f,'   x      f(x)'); writeln(f,'---------------');x:=0; while x<=pi/2 do begin y:=sin(x); y:=y*y*y;   writeln(x:6:1,y:11:7); writeln(f,x:6:1,y:11:7);  if ymin>y then ymin:=y; if ymax<y then ymax:=y; x:=x+0.1;  end;writeln('-------------------'); writeln('maximum=',ymax:0:7,'    minimum=',ymin:0:7);writeln(f,'-------------------'); writeln(f,'maximum=',ymax:0:7,'    minimum=',ymin:0:7); close(f); readln end.