Завдання 6.1

Обчислити значення змінних X, Y після виконання фрагмента програми. Вказівка: замістьN підставити номер варіанта.

№	Програма	№	Програма
1	2	3	4
1-5	var А,X,Y:real; procedure D(var X,Y: real); begin X:=2*X; Y:=A*X+1 end; begin A: =N; X:=3; Y:=4; D (Y, X) ; Y : =A*Y. ; Write (X, Y) end.	6-10	var A, X,Y:real; procedure D(var X,Y:real); begin X:=2*X; Y:=A*X+1 end; begin A: =N-5; X:=3; Y:=4; D(A,X>; Y:=A*X; Write(X,Y) end.

1	2	3	4
11-15	var A,X,Y:real; procedure D(var X,Y:real); begin X:=2*X; Y:=A*X+1 end; begin A:=N-5; X:=2; Y:=3; D (A, X) ; Write(X,Y) end.	16-20	var A,X,Y:real; procedure D(va.r X,Y:real); begin X: =2*X; Y:=A*X+1 end; begin A:=N-10; X:=3; Y:=2; D(A,Y); Y:=A»X+Y; Write(X,Y) end.
21-25	var X,Y:real; function F(X:real):real; begin if X=0 then F:=l else F: =2*X*F (X-l) end; begin X:=N-18; Y:=F(X); Write{X,Y) end.	26-30	var X,Y:real; function F(X:real):real; begin if X=0 then F:=0 else F:=X+F(X-l) end; begin X:=N-23; Y:=F(X); Write(X,Y) end.

Завдання 6.2

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

Приклад виконання роботи

Завдання 6.1- Обчислити значення змінних X, Y після виконання такої програми:

var X,Y: real;

function F(X : real) : real;

begin

if X=1 then F:=l

else F:=X*F(X-l)

end;

begin

X;=4; Y:=F(X); Write(X,Y) end.

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

Ця програма обчислює F!=4*3*2*l з використанням рекурсивної функції. У результаті її виконання Х=4,a Y=24.

Завдання 6.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. Текст програми

prograrr. LR6;

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

type Vect= array [1..N] of integer;

var A: Vect; I: integer;

procedure Rev(N:integer; var A:Vect);

var X,I,J,M: integer;

begin

M:=N div 2; J:=N; for I:=l to M do begin

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

ClrScr; Writeln(' Введіть масив A[l..',N:1,']');

for I:=l to N do Read (A[I]); Readln;

Rev(N, A); Writeln(' Масив А після перестановки'); for I:=1 to N do Writeln(A[I]: 5:1); Writeln; end.

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

Введіть масив А[1..18]