Курсовая работа: Інтеграли зі змінними границями

Rewrite(file1);

writeln(file1,'Дйствительное значение интеграла ',intR:17:15);

writeln(file1,'Значение интеграла по формуле (1) ',intF:17:15,' Расность по модулю ',abs(intF-intR):17:15);

writeln(file1,'Значение интеграла по формуле трапеций ',intT:17:15,' Расность по модулю ',abs(intT-intR):17:15);

writeln(file1,'Значение интеграла по формуле Симпсона ',intS:17:15,' Расность по модулю ',abs(intS-intR):17:15);

CloseFile(file1);

Memo1.Lines.LoadFromFile('Result.txt');

end

else ShowMessage('граници должна быть в пределах от 0 до 6');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Panel1.Visible:=true; Button2.Visible:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Panel1.Visible:=false; Button2.Visible:=true;

setN(StrToInt(Edit5.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

setN(StrToInt(Edit5.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text));

end;

end.