ЛР№10_Работа с файлами

Программирование

Лабораторная работа Работа с файлами

Цель работы: рассмотреть процедуры и функции для работы с файлами.

Оборудование и ПО: компьютер, ОС Windows XP, Turbo Pascal (или ABC Pascal).

Указание 1. Перед выполнением практических заданий изучите материал лекции по теме «Работа с файлами в языке Pascal».

Указание 2. Задания выполняются по вариантам. Номер варианта каждого задания совпадает с номером студента в списке группы (подгруппы).

ПРАКТИЧЕСКИЕ ЗАДАНИЯ

Задание 1. Протабулировать функции y(x) и g(x) на отрезке a;b с

шагом h b n a (см. таблицу ниже). Вычисление функции y(x) оформить в

виде процедуры, вычисление g(x) – в виде функции. Полученные значения y(x) и g(x) записать в файлы Y.DAT G.DAT.

Составить программу с использованием данных из файла.

1.Найти среднее в таблице значение y(x) и g(x) .

2.Найти наибольшее значение y(x) и g(x) .

3.Найти наименьшее значение y(x) и g(x) .

4.Найти все положительные значения y(x) и g(x) .

5.Найти все отрицательные значения y(x) и g(x) .

6.Определить количество положительных значений y(x) и g(x) .

7.Определить количество отрицательных значений y(x) и g(x) .

8.Найти разности соответствующих значений y(x) и g(x) .

9.Найти суммы соответствующих значений y(x) и g(x) .

10.Найти произведения соответствующих значений y(x) и g(x) .

1

Программирование

Таблица

2

Программирование

Задание 2. Занести в текстовый файл данные, согласно заданию 2 к лабораторной работе Работа с записями (5 записей). Выполнить это задание с использованием данных из файла.

3

Программирование

Пример. Заполнить файл file.dat случайными цифрами. Вычислить их сумму, записать полученное значение в файл. Вывести содержимое файла на экран.

uses crt;

var f:file of integer; x,sum,i:integer;

Begin clrscr; randomize;

assign(f,'d:\file.dat');

rewrite(f);

for i:=1 to 5 do begin x:=random(10); writeln(x); write(f,x); sum:=sum+x; end; write(f,sum); close(f); reset(f);

while not(Eof(f)) do begin

read(f,x); write(x,' '); end; close(f); readln;

End.

4