Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

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

.pdf
Скачиваний:
9
Добавлен:
30.05.2015
Размер:
183.62 Кб
Скачать

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

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

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

Оборудование и ПО: компьютер, ОС 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

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

Таблица

№ варианта

 

 

 

 

 

 

 

 

 

 

 

Задание

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2 , b 4.5, n 15

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x

2

 

x 1

 

 

 

 

 

 

 

 

 

 

 

 

1

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

1

 

x

2

 

 

 

 

 

 

 

 

 

 

y(x)

2

 

 

 

 

 

 

 

 

 

 

, g(x)

1 2x2

 

 

2x

 

1

 

2 x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln 1 x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 1, b 5.2 , n 10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8x

 

 

 

 

 

 

 

x 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

y(x)

5ln x 1

 

0 x 1

, g(x)

5ln

 

2x

 

 

 

 

2 2x 1 1 x

 

 

 

 

 

x

4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin x

 

 

 

x 4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 1.5 , b 5.8 , n 12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0.1x 0.6

 

x 0

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

2

 

 

 

0 x 2

 

 

 

 

 

 

 

y(x)

4x

 

 

 

 

 

 

, g(x) sin x 3

 

 

 

 

 

 

 

 

 

2 x

4

 

 

 

 

sin x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

x 4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 7.5 ,

b 8.4 , n 13

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

7x

3

 

x 4

 

 

 

 

 

 

 

 

 

 

4

 

2x

 

 

 

 

 

 

5

 

 

 

 

 

 

y(x)

x 1

 

 

 

4 x

, g(x) x 2

 

 

x

 

 

 

 

5 x

 

 

 

 

6

 

 

 

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 7

 

 

 

 

 

 

 

 

 

 

 

 

cos x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 3.2 , b 7.4 , n 9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

7

x

0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

5

y(x)

5x 4

0

x

 

, g(x) 2x2 7x 3

 

 

 

 

 

 

 

2

x

4

 

 

 

x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin x

x

4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6

a 0.5 , b 5.4 , n 8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

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

 

 

 

 

 

 

 

2

0.2

x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0.5x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y(x)

tg

x

 

1 x

1

,

g(x) ln

 

x

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4x

 

 

1 x

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

x 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2 , b 5, n 14

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln 1 x

x 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

 

 

2

 

2x 3

0 x 4

 

 

 

 

 

 

 

 

 

 

 

 

y(x)

x

 

 

,

 

g(x) sin x

 

 

2x

1

4 x 6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

 

x 6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 1.5 , b 3.4 , n 16

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

3x 4

x 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8

y(x)

ln

x 2

 

0 x 1

,

g(x)

 

x

2

9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin x 4

 

1 x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 3.5 , b 1.5 , n 9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

x 6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

y(x)

 

 

 

2

 

4

 

 

x

 

6 , g(x) 1 2x

 

 

2x

 

 

 

 

6

 

 

 

 

 

 

 

 

 

 

 

 

6 x 8

 

 

 

 

 

 

 

 

 

 

 

 

cos x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

2

x 8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 9.2 , b 2.8, n 14

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

4

x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

10

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y(x)

ln

x 3

1 x 3

, g(x) cos x 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x 1

3 x 5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

x 5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задание 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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]