Контрольні питання:

1. За допомогою яких графічних зображень представляється алгоритм програми?

2. Що таке програма, мова програмування?

3. З яких блоків складається схема програми?

4. Як записуються операції відношень в Turbo Pascal?

5. Як записуються арифметичні вирази в Turbo Pascal?

6. Коли виникає процес розгалуження в програмі?

7. Які оператори використовуються розгалужень в програмах?

8. Який мають вид умовний та без умовний оператори переходу?

Практична робота № 10

Тема: Turbo Pascal. Рішення задач програмування циклічного розрахункового процесу.

Мета: Навчитись розв’язувати задачі циклічного процесу, створювати програми за допомогою мови програмування Паскаль.

Теоретичні відомості

Циклічним називається обчислювальний процес, що містить багатократні обчислення по одних і тих же математичних залежностях, але для різних значень тих, що входять в нього змінних.

Цикл WHILE («поки»)

Цикл з перевіркою умови на початку циклу. За допомогою конструкції WHILE...DO можна реалізувати циклічний процес, що складається з ряду операторів який виконується до тих пір, поки виконується певна умова.

WHILE < умовно DO>

< Оператор >;

Якщо в циклі необхідно виконати більш за одного оператора, то їх слід укласти в операторні дужки begin end, т.ч. утворити з них складеного оператора.

До тих пір, поки дотримується умова, послідовно виконується тіло циклу (< оператор > ). Якщо умова не дотримується, то виконання програми продовжується, починаючи з оператора, наступного за циклом.

Приклад:

WHILE z >= 0 DO

BEGIN

y = y + sgr(z);

z = z- 1

END;

Цикл REPEAT

Цикл з перевіркою умови в кінці циклу. Тіло циклу виконується до тих пір, поки не стане істинною умова.

REPEAT

< Оператор 1>;

< Оператор n >;

UNTIL < умова >;

Приклад:

REPEAT

y = y + sgr ( z );

z = z - 1

UNTIL z < 0;

Цикл з лічильником

Загальний вид запису:

• при збільшенні значення параметра

FOR i:=m1 TO m2 DO <Оператор>;

• при зменшенні значення параметра

FOR i:=ml DOWТО m2 DO < Oператоp >;

i - змінна порядкового типу, яка змінюється при повторенні циклу. Її часто називають змінною, що управляє.

m1 - вираз, який задає початкове значення лічильника.

m2 - вираз, який задає кінцеве значення лічильника.

ТО - зміна параметра циклу з кроком +1;

DOWTO - зміна параметра циклу з кроком -1;

Приклад:

а:=5;

FOR і: = - 1 ТЕ 1 DO

BEGIN

а:=а * і;

WRITELN(A:3; і:2)

END;

Приклад виконання завдання

Знайти суму ряду Y= , де _, х міняється з кроком h = c.

F1= _; F2= Sin³2x; a=0,1; b=63; c=7.

З використанням циклу WHILE.

Program N3a;

Uses crt;

const a=0.1;

b=63; c=7;

var x,s:real;

Begin clrscr;

s:=0; x:=a;

while x<=b do

begin

s:=s+(exp(1/3*ln(x))-1)/(sqr(sin(2*x))*sin(2*x));

x:=x+c;

end;

writeln('s=',s:7:4);

end.

Результат:

s=5884.6519

Рисунок 10.1 – Блок-схема для рішення задач з використанням циклу WHILE

З використанням циклу REPEAT.

Program N3b;

Uses crt;

const a=0.1;

b=63; c=7;

var x,s:real;

begin clrscr;

s:=0;

x:=a;

repeat

s:=s+exp(1/3*ln(x))/(sqr(sin(2*x))*sin(2*x));

x:=x+c;

until

x>b;

writeln('s=',s:7:4);

end.

Результат:

s=5884.6519

Рисунок 10.2 – Блок-схема для рішення задач з використанням циклу REPEAT

Варіанти завдання:

Виріши задачу, використовуючи цикли:

а) WHILE;

б) REPEAT.

Вид функцій f1, f2 задані в таблиці 10.1.

Таблиця 10.1 – Варіанти завдань, а також значення f1,f2, а, b, c

Варіант	f1 (x)	f2 (x)	a	b	c
1, 16			3,2	1,3	6,5
2, 17			4,1	1,2	3,6
3, 18			2,8	1,4	4,2
4, 19			16	10	20
5, 20			2,4	0,7	3,8
6, 21			10,3	9	12
7, 22			5,4	2,3	8,9
8, 23			1,7	0,4	2,8
9, 24			14,2	11,6	1,68
10, 25			1,1	0,2	1,8
11, 26			5,4	2,2	7,3
12, 27			2,5	1,9	3,8
13, 28			5,1	3,3	6,9
14, 29			0,7	0,6	0,9
15, 30			3,8	1,2	5,3

Звіт повинен містити:

1. Тема і мета роботи;

2. Завдання;

3. Блок-схема алгоритму рішення задач;

4. Лістинг програми мовою Паскаль;

5. Результат рішення;

6. Висновок.