Решение. Program Problem3; { Обработка компонентов файла }

Program Problem3; { Обработка компонентов файла }

uses WinCrt;

const

name = 'd: \Bp\Prakt\P23\array3.dat';

type

v = file of real;

var

f: v;

a, s, sk, p: real;

i: integer;

{----------------------------------------------------------------------------------------}

{Открытие файла f, соответствующего на диске файлу arra3.dat

и процедура заполнения его действительными числами}

Procedure create(var f: v);

var

i, n: integer;

a: real;

begin

assign(f, name); { доступ к файлу f }

{$i-}

rewrite(f); { открытие его для записи }

{$i+}

if ioresult < > 0 then writeln('Такой файл не существует');

write('Введите число элементов '); readln(n);

for i: = 1 to n do

begin

write('Введите ', i, '-й элемент '); readln(a);

write(f, a) { запись элементов массива в файл f }

end;

close(f); { закрытие файла f }

end;

{----------------------------------------------------------------------------------------}

begin

create(f);

assign(f, name); {доступ к файлу f}

{$i-}

reset(f); {Открытие файла f для чтения}

{$i+}

if ioresult < > 0 then writeln('Такой файл не существует');

s: = 0; p: = 1; sk: = 0;

while not eof(f) do

begin

read(f, a); { Чтение элементов массива из файла f }

s: = s + a; p: = p*a;

sk: = sk + a*a;

end;

writeln('Сумма компонент файла равна ', s: 6: 4);

writeln('Произведение компонент файла ', p: 6: 4);

writeln('Сумма квадратов компонент ', sk: 12: 4);

write('Модуль суммы и квадрат произведения компонент ');

writeln(abs(s): 6: 4, ' ', p*p: 10: 4);

seek(f, FileSize(f) - 1); read(f, a);

writeln('Последний компонент файла ', a: 6: 4);

close(f) { Закрытие файла f }

end.

Задача 4. Дан файл f, компонентами которого являются целочисленные массивы Каждый массив преобразовать в квадратную матрицу размера

а) б)