Завдання 8.1

Визначити значення змінних X, Y, Z після виконання фрагмен­та програми, якщоvar F:file of real; X, Y, Z: real;

Assign(F,'A:\Fl.txt');Reset (F); а файлFl.txtмістить такі дані: 10 24 5 12 7.3 6.2 5.7 25 11 3.4 7 15, які подані як рядокД Е 0Г Д ЄГН1ЩЦІ rffffFTffff6E ВД ОВЬШЦУ \Д Р Вказівка: замістьNпідставити номер варіанта.

№	Фрагмент програми	№	Фрагмент програми
1-5	Read(F, X) ; Seek(F,N); Read(F,Y,Z) ;	6-10	Seek(F,FilePos(F)+11-N); Read(?,X,Y,Z);
11-15	Seek(F,FilePos(F)+19-N); Read(F,X,Y,Z) ;	16-20	Read(F,X); Seek(F,20-N); Read(F,Y,Z);
21-25	Seek(F,N-19); Read(F,X); Seek(F,9); Read(F,Y,Z) ;	26-30	Read(F,Y,Z); Seek(F,N-24); Read(F,X);

Завдання 8.2

Скласти програму обчислення величин із завдання 4.2 з викори­станням файлів для введення-виведення даних і виконати її у сере­довищі системи програмування Turbo Pascal 6.0.

Приклад виконання роботи Завдання 8.1. Визначити значення змінних X, Y,Zпісля виконання фрагмента програми:Seek (F, FilePos (F) +2) ;

Read (F, X,Y,Z) ; якщоvar F: file of real; X,Y,Z:real; Assign(F, 'A:\Fl.txt' ) ;Reset{F); а файлFl.txtмістить такі дані: 1024512 7.36.2 5.7 25 11 3.4, які подані наступним рядкомД Е @Г Д @rbnrai.rffffFrffff6E НД ОВЬЩЩЩУ

Розв'язання:

Після виконання фрагмента змінні X, Y, Z набудуть наступні значення: Х=5;Y=12; Z=7,3.

Завдання 8.2. Скласти програму перестановки елементів масиву а={40; 11; 26; 5; 60; 47; 14; 9; 16; 19; 2; 13; 36; 55; 54; 17; 56; 27} в зворотному порядку з використанням файлів для введення- виведення даних і виконати її у середовищі системи програмування Turbo Pascal 6.0

Розв’язання:

1. Постановка задачі

Скласти програму перестановки елементів масиву а={40; 11; 26; 5; 60; 47; 14; 9; 16; 19; 2; 13; 36; 55; 54; 17; 56; 27} в зворотному порядку на мові Turbo Pascal з використанням файлів для введен­ня-виведення даних.

2. Алгоритм розв’язання задачі

Алгоритм розв’язання задачі наведений у прикладі розв’язання завдання 4.2 (при оформленні роботи алгоритм необхідно навести наново).

3. Текст програми

program LR8;

{програма перестановки елементів масиву A[l..N]j uses Crt; const N=18;

var A: array[1..N] of integer; I, J, M, X : integer;

FIn,F0ut: text; begin

ClrScr; Assign(Fin,' A;\F1.txt'); Reset(Fin);

Assign(FOut,'A:\F2.txt'); Rewrite{FOut);

for I:=l to N do Read (Fin, All]); Readln(FIn);

for I:=1 to N do Write(A[I]:3); Writeln;

for I:=1 to N do Write(FOut, A[I]:3); Writeln(FOut);

M:=N div 2; J:=N;

for I:=1 to M do

begin

X:=A[I]; A[I]:=A[J]; A[J]:=X; J:=J-1 end;

Writeln(' Масив А після перестановки');

for I:=l to N do Write(A[I]:3);

Writeln; Writeln(FOut,' Масив А після перестановки');

for Г:=1 to N do Write(FOut, A[I]:3);

Writeln(FOut); Close(FTn); Close(FOut) end -

4. Результати роботи програми

Перед виконанням програми у кореневому каталозі диска А не­обхідно створити файл Fl.txt, в якому повинні знаходитися насту­пні дані:40 11 26 5 60 47 14 9 16 19 2 13 36 55 54 17 56 27

У результаті роботи програми на екран монітора була виведена наступна інформація:

40 11 26 5 60 47 14 9 16 19 2 13 36 55 54 17 56 27

Масив А після перестановки

27 56 17 54 55 36 13 2 19 16 9 14 47 60 5 26 11 40

Крім того, у кореневому каталозі диска А був створений файл F2.txt наступного змісту: