Завданнязадачі підвищеної складності

1. Написати програму для стискуваннястиснення і розпаковування фалів: а) текстового, би) що типізується (file of string), в) що не типізується.

2. Даний текстовий фал, що міститьутримує програму на мовіязиці Паськаль. Перевірити цю програму на відповідність числа дужок, що відкриваютьсявідчиняють і закриваютьсязачиняють (будь-яких).

3. Даний файл, що не типізується. Записати фал "в зворотному порядкуладі" (ізіз змінам порядка байтов).

ІІ частина

Завлання

В середовищі програмування реалізувати програму роботи із зовнішніми файлами (запис та зчитування масиву записів)

Приклад:

Програма виконує наступні дії:

1. вводяться вхідні дані для обчислення успішності курсантів по двом предметам, при цьому створюється масив записів (кількість елементів масиву задається в програмі за допомогою константи kol);

2. обчислюється середній бал для кожного курсанта;

3. обчислюється кількість курсантів в групі, середній бал яких >4, (в програмі позначається як n) та виводиться на екран.

4. виконується сортування записів в порядку зменшення середнього балу та вивід на екран прізвищ та середнього балу.

program BD;

const kol=5;

type Tkurs=record

fam:string[15];

o1:2..5;

o2:2..5;

sb:real;

end;

var a: array[1..kol] of Tkurs;

temp: Tkurs;

j, i, n: integer;

begin

n:= 0;

writeln('Ввести вхідні дані для курсантів’);

for i:= 1 to kol do

with a[i] do

begin

writeln('Прізвище (15 позицій), оцінка1, оцінка2');

readln(fam,o1,o2);

sb:= (o1+o2) / 2;

if sb > 4 then n:= n+1;

end;

writeln('n=',n);

{ Сортування записів в порядку зменшення середнього балу}

for i:= 1 to kol-1 do

for j:= i+1 to kol do

if a[i].sb < a[j].sb then begin

temp.sb:= a[i].sb;

a[i].sb:= a [j].sb;

a[j].sb:= temp.sb;

end;

for i:= 1 to kol do

with a[i] do

writeln(fam, sb:5:2);

end.

Приклад 2. Розробка програми зчитування та запису даних в зовнішні файли.

У двовимірному масиві Х(5,8) знайти максимальні елементи кожного стовпця. Значення елементів масиву Х у зовнішньому файлі mas.txt записані у вигляді таблиці 5х8. Результат записуэться у зовнішньому файлі maxx.txt

Program liza;

var

f1,f2: text;

x: array[1..5,1..8] of integer;

I,j: integer;

max:array [1..8] of integer;

Procedure inicial;

begin

assign(f1,'d:\incoming\mas.txt');

reset(f1);

for i:=1 to 5 do

begin

for j:= 1 to 8 do

read (f1,x[I,j]);

readln

end;

close(f1)

end;

Procedure extremal;

begin

for j:=1 to 8 do

begin

max[j]:=x[1];

for i:= 2 to 5 do

if x[I,j]>max then max:= x[I,j]

end;

Procedure rezult;

begin

assign(f2,'d:\incoming\maxx.txt');

rewrite(f2);

for j:= 1 to 8 do

write (f2,max[j]:5);

close(f2)

end;

begin

inicial;

extremal;

result;

readln

end.

Варіант 1