Assign(out, ‘out.Dat’);
Перед
выполнением каких-либо операций чтения
и записи в файлах, эти файлы должны быть
открыты.
Открытие
файлов выполняется процедурами Reset(для ввода информации из файла) иRewrite(для вывода информации в файл), а закрытие
– процедуройClose.
Rewrite(out);
Операция
вывода информации в файл осуществляется
с помощью оператора
Write(out,’’); Writeln(out,’ ‘);
Оператор
цикла Repeatпозволяет
организовать цикл с неизвестным числом
повторений. Проверка условия при такой
организации цикла осуществляется в
конце цикла в оператореUntil.
Цикл выполняется до тех пор пока не
будет выполнено условие указанное вUntil. В нашем случае
организованы два цикла один в одном.
Первый цикл контролирует условие
выполнения условия достижения точности
вычисления, второй - границы интервала,
показан ниже
repeat
s1:=s1+Fun(x)*h;
s2:=s2+(Fun(x)+Fun(x+h))/2
*h;
Zet;
s3:=s3+h*(Fun(z1)+Fun(z2)+Fun(z3))/3;
x:=x+h;
until
x>=b;
Список использованной литературы
Введение
в язык Паскаль. /В.Г. Абрамов, Н.П.
Трифонов, Г.Н. Трифонова. Учеб. Пособие.
- М.: Наука. Гл. ред. Физ. - мат. лит., 1988.
В.И.
Нечаев, О.А. Нечаева, Л.Н. Почуева.
Численные методы, Тула, 1999 г.
Основы
информатики. Учеб. пособие/В.М. Еганов,
Н.М. Качурин, А.Е. Коряков, С.П. Туляков;
- Тул.гос.ун-т, Тула, 2000. - 323 с.
Пискунов
Н.С. Дифференциальное и интегральное
исчисление, Т.1, М.: Наука,
1985.