Завдання 3.1

Представити математичний запис фрагмента програми і обчис­лити значення змінної X після його виконання. Позначення: N - це номер варіанта за списком групи.

№	Фрагмент програми	№	Фрагмент програми
1-5	Х:=1; for J:=7 downto N do X:=X*J; X:=2*X	6-10	X:=0; J:=l; repeat X:=X+J; J:=J+2 until J>N
11-15	X: =0; for J:=l to N do X:=X+2; X:=2*X	16-20	X:=l; while X<=N do X:=X+1; X:=2*X
21-25	X:=1; J:=1; X1:=N div 5; repeat X:=X*X1; J:=J+1; if J=4 then break until J>5	26-301	X: =N; for K:=l to 6 do begin if K<3 then continue; X:=X+1 end

Завдання 3.2

Скласти програму табулювання функції з завдання 2.2 при зміні значення хвід -1 до 1 з кроком 0,2 та виконати її у середовищі системи програмуванняTurbo Pascal 6.0

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

Завдання 3.1. Представитиматематичнийзапис фрагментапро­грами

X : =1 ;

for J:=l to 5do X :=X*J

и обчислити значення змінної X після його виконання.

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

Цей фрагмент програми реалізує обчислення х!=1-2-...-5. Після виконання цього фрагмента Х=120.

Завдання 3.2. Скласти програму табулювання функції y~ctgx при зміні значенняхвід о=-1 до Ь=1 з кроком /і=0,5 і виконати її у середовищі системи програмуванняTurbo Pascal 6.0

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

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

Скласти програму табулювання функції y=ctgx при зміні зна­ченняхвід я=-1 доЬ=1 з крокомh=0,5 на мовіTurbo Pascal.

2. Методика розв'язання задачі

Методика розв’язання задачі збігається з методикою з приклада завдання 2.2 (при оформленні роботи треба навести методику наново).

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

Алгоритм розв’язання задачі можна представити у вигляді такої послідовності дій:

1. Ввести значення a, b, h;

2. Присвоїти хзначення а;

3. Обчислити п(кількість повторень тіла циклу) для зміню­ванняхвідa доЬз крокомh за формулоюn = ((ї> -a)/h)+1;

4. Повторювати празів наступні дії:

   1. Перевірити умову (2.2). Якщо умова істинна, то обчисли ти значення функції уза формулою (2.1) і вивестихтау,інакше , вивести повідомлення: ’не існує’;

3.4.2 Присвоїти хнове значення, яке дорівнює старому зна­ченнюхплюс крокh.

Запишемо алгоритм розв’язання задачі мовою Turbo Pascal, по­значив змінніх, у, a, b, h відповідно як X,Y, А, В, Н (усі типуReal), апякN(типInteger), та, врахував те, що оскільки кількість

повторень тіла циклу заздалегідь відома, то логічніше вживати цикл forз параметром циклу І (типуInteger).

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

program LR3;

{програма табулювання функції Y=Cos(X)/Sin(X)) uses Crt;

var X, Y, А, В, H: real;

I, N: integer; begin

ClrScr;

Writelnf' Введіть А, В, H' ) ;

Readln(А, В, H);

N:=Trunc((В-A)/Н)+1; X:=A;

for I:=l to N do

begin

if Sin(X)<>0 then begin

Y:=Cos(X)/Sin(X);

Writelnf' X=',X:6:2,' Y=',Y:11) end

else Writeln(' X=',X:6:2,' Y= не існує');

X:=X+H end end.

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

Введіть А, В, Н -1.0 1.0 0.5 Х= -1.00 Y=-6.4209Е-01 Х= -0.50 Y=—1.8305Е+00 Х= 0. 00 Y= не існує Х= 0.50 Y= 1.8305Е+00 Х= 1.00 Y= б.4209Е-01