 |
Работа с типизированными файлами
|
|
|
|
В большинстве языков программирования, в том числе и в Pascal, предусмотрены инструменты для сохранения информации на внешних носителях (кстати, жесткий диск также относится к внешнему запоминающему устройству), а также ее извлечению (чтению) оттуда.
Данные, хранящиеся на внешних устройствах, «организовываются в виде файлов». Под файлом понимается область памяти на внешнем запоминающем устройстве, хранящая (содержащая) определенную информацию. В эту конкретную область памяти можно помещать данные (операции ввода, записи), так и извлекать их оттуда (операции вывода, чтения).
В языке программирования Паскаль для работы с данными, хранящимися в файлах, должны быть определены переменные файлового типа, через которые далее обеспечивается связь между файлом на диске и программой.
Типизированный файл в Паскале интерпретируется как последовательность (список) значений определенного (одного и того же) базового типа. Например, если в файле на диске хранится список вещественных чисел, то переменная в языке Pascal, через которую можно получить к ним доступ, может быть описана так: f: file of real;
Файловый тип определяется служебными словами file of, далее идет указание базового типа, который может быть любым, кроме файлового.
Тут следует понимать такую особенность. В файле могут храниться числа, но в pascal-программе они могут быть интерпретированы как символы или строки. Все зависит от выбранного базового типа при определении файловой переменной. Возможны разные ситуации.
При определении переменной файлового типа также в программе появляется скрытый (неявный) текущий указатель файла. Его назначение – указывать на конкретный элемент файла (обеспечивать доступ к нему).
|
|
|
В языке программирования Паскаль все действия с файлом (чтение, запись) производятся поэлементно. Действия совершаются именно над тем элементом файла, на который указывает текущий указатель файла. После того как действие будет завершено, указатель перемещается к следующему элементу. Все элементы файла пронумерованы, начиная с нуля.
Операции с файловыми переменными включают:
1) установочные и завершающие операции;
2) ввод и вывод;
3) перемещение по файлу.
Практическая часть
Задания по пакету MathCAD
Упражнение 1. Построить график функции y= 
приблизительно определить один из корней уравнения. Решить уравнение f(x)=0 с точностью Ɛ = 10-4 с помощью встроенной функции Mathcad root.
|
|
|
|
Рисунок 1 – Упражнение MathCAD №1
Упражнение 2. Для полинома g(x) = 
- 
+ 
- 12x + 20 выполнить следующие действия:
1) с помощью команды Символы – Коэффициенты полинома создать вектор V, содержащий коэффициенты полинома;
2) решить уравнение g(x) = 0 с помощью функции polyroots;
3) решить уравнение символьно, используя команду Символы – Переменные – Вычислить.
|
|
|
Рисунок 2 – Упражнение MathCAD №2
Упражнение 3. Решить систему линейных используя функцию Find а так же матричным способом и используя функцию lsolve.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Рисунок 3 – Упражнение MathCAD №3
Упражнение 4. Преобразовать нелинейные уравнения системы из Таблицы 4 к виду f 1(x) = y и f 2 (y)= x. Построить их графики и определить начальное приближение решения. Решить систему нелин-ых уравнений с помощью функции Minerr.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Рисунок 4 – Упражнение MathCAD №4
Упражнение 5. Символьно решить системы уравнений:
Рисунок 5 – Упражнение MathCAD №5
Задания по системе Turbo Pascal
|
|
|
Задание 1. Вычислить значение функции.
program Задание1;
uses crt;
Var
x, a, y: real;
Begin
Writeln ('Введите Х:');
Readln (x);
Writeln ('Введите a:');
Readln (a);
y:= ln(abs(ln(abs(x))/ln(10)))-(sqr(ln(x))/(a-arctan((abs(tan(x/a))))));
writeln ('Ответ:', y);
end.
Рисунок 6 – Блок-схема к заданию №1
Задание 2. Вычислить значение функции.
uses crt;
Var
x,a,s:real;
k:byte;
Begin
write('Введите Х=');
readln (x);
a:=2.8;
k:=0;
if (x>0) and (x<pi/(2*a)) and (x<>1/a) then
s:=((sqrt(sqr(a*x)+2))-1.8*a*x)/(0.5*sin(2*a*x)+ln(abs(a*x-1))+x)
else if (x>=pi/(2*a)) and (x<=pi/a) then s:=exp(a*x)-2*pi*(a*x+0.8)
else k:=1;
if k=1 then writeln ('Ne opredeleno!')
else writeln ('Otvet: S=',s:0:3);
end.
Рисунок 7 – Блок-схема к заданию №2
Задание 3. Дано натуральное число n. Вычислить:
program Задание3;
uses crt;
Var
i: integer;
Begin
p:=1;
for i:=1 to 52 do
p:=p*sqr(i)/(sqr(i)+2*i+3);
write('P=',p);
end.
Рисунок 8 – Блок-схема к заданию №3
Заключение
Были изучены теоретическая часть пакета MathCAD, Turbo Pascal,также выполнены задания по этим программам. Развили навыки программирования. Изучили более подробно работу каждой программы. Расширили знания, полученные при изучении теоретические знании.
|
|
|
