4.Массив к данных вещественного типа записать в типизированный файл, а затем считать из него средний элемент.

PROGRAM PR3;

CONST K=10;

VAR A: ARRAY[1..K] OF REAL;

X:FILE OF REL;

I, J:INTEGER; B:REAL;

BEGIN

WRITELN('ВВЕДИТЕ МАССИВ');

FOR I:=1 TO K DO READLN(A[I]);

ASSIGN(X, 'X.DAT'); REWRITE(X);

FOR I:=1 TO K DO WRITE(A[I]); J:= K DIV 2;

SEEK(X, J); REED(X, B); WRITELN('ЭЛЕМЕНТ №', J,' = ' ,B);

CLOSE(X); END;

Варианты заданий

1. На диске имеется файл с именем dan.dat, в котором записаны -

а) скороговорка

"сшит колпак непоколпаковски, надо колпак переколпаковать, перевыколпаковать" ;

б) пословица

"кто хочет много знать, тому надо мало спать".

Требуется считать данные в программу и подсчитать число букв "о" в скороговорке, а затем в пословице.

2. Существует текстовый файл, состоящий из двух строк с пословицей:

"Был бы ловец, а ружье будет.

На ловца и зверь бежит."

Поменяйте местами эти строки и запишите в новый файл. Подсчитайте сколько символов в каждой строке.

3. В файле dan1.dat записано целое число в каждой строке. Нужно вычислить среднее арифметическое положительных чисел и результаты вместе с исходными данными записать в файл dan2.dat.

4. Заданы три массива данных вещественного типа {A₁, ..., A₁₀}, {B₁, B₂, ..., B₁₀} и {C₁, C₂, ..., C₁₀}. Сформируйте массив D по правилу

и запишите его в файл DD.DAT (используйте подпрограммы).

5. В файле с именем ff1.dat хранится информация о скорости перемещения различных объектов, м/c:

улитка 0,0015

Земля на орбите 30000

черепаха 0,02

конница рысью 3,5

муха 5,0

охотничья собака 25,0

заяц 18,0

рыба 1,0

пешеход 1,4

орел 24,0.

Создайте новый файл, в котором представлены заголовок таблицы; список объектов, упорядоченных по убыванию скорости перемещения; скорость движения, м/с и км/ч.

6. Вычислите значения вещественной переменной z_i = e^xi, где i = 0, ..., 5, а x₀ = 0,3; х = 0,1. Результаты запишите в файл x.dat. Вычислите f_i = e^yi, где i= 0, ...,5; y₀ = 0,1; y = 0,05. Результаты запишите в файл y.dat. Затем считайте данные из обоих файлов и сформируйте новый файл d.dat, для которого d_i = z_i + f_i, i = 0,1, ..., 5.

7. Вычислите z = e^t/sin(d) - k, где t = , d = , k = , а A_i, B_j, C_l - элементы массивов вещественного типа. Значения элементов массива считайте из файла.

8. Имеется файл с данными вещественного типа. Считайте эти значения в исходной программе в массив, подсчитайте среднее арифметическое всех элементов массива и напечатайте номера тех, которые минимально и максимально отличаются от среднего арифметического.

9. Имеется файл с данными целого типа. Считайте эти значения в исходной программе в массив, упорядочьте элементы массива в порядке возрастания (убывания) и запишите его в новый файл.

10. Имеется текстовый файл с фамилиями торговых агентов фирмы и суммами продаж каждого из них за месяц. Если эта сумма составляет 1000 – 2000 руб., то агент получает 3 комиссионных от своей суммы продаж, если более 2000 руб., то 5, если менее 1000 руб., то агент получает 1 комиссионных. Сформируйте три текстовых файла, где будут указаны фамилии агентов, соответствующие суммы продаж (менее 1000, от 1000 до 2000 и более 2000) и суммы комиссионных.

11. Имеется текстовый файл, в котором содержатся фамилии студентов и их оценки по четырем экзаменам в сессию. Подсчитайте средний балл каждого студента. Упорядочьте фамилии студентов по убыванию их среднего сессионного балла и сформируйте новый текстовый файл. Сформируйте еще один файл, где будут содержаться фамилии и оценки студентов, имеющих хотя бы одну двойку.

12. Имеется текстовый файл. Определите, содержится ли в данном файле данная буква и сколько раз она встречается.

13. Даны массивы вещественного типа {a1, a2, …, a5}, {b1, b2, …, b5}, {c1, c2, …,c3}. Вычислите корни квадратных уравнений a_ix² + b_ix + c =0 , i = 1, 2, 3, 4, 5. Запишите коэффициенты и корни этих уравнений в файл.

14. Определите, поместится ли нефтепродукт массой m в тоннах (Т), плотностью d (Т/м³) в емкость в виде прямоугольного параллелепипеда. Высота емкости h, длина оснований а и b. Все исходные параметры запишите в файл.

15. Имеется массив осадков S[30], представляющий собой количество осадков за каждый день месяца. Определите среднее за месяц количество осадков. Создайте два файла. В первый файл запишите дни с количеством осадков (элементы массива) меньше среднемесячного, а во второй – дни с количеством осадков выше среднемесячного.

16. Массив представляет собой процентные ставки по вкладам значениями от 10 % до 100 %. Составьте программу, в которой подсчитайте среднюю ставку, все ставки выше, равные и ниже средней. Результат запишите в три файла.

17. Имеется массив осадков S[30], представляющий собой количество осадков за каждый день месяца. Определите среднее за месяц количество осадков, а также дни с максимальным и минимальным количеством осадков. Результаты запишите в файл.