Begin. While N > 0 do. while x<=3 do. Контрольні запитання

⇐ ПредыдущаяСтр 3 из 3

Begin

Clrscr;

Write('Введіть число: ');

Readln(N);

Counter: = 0;

While N > 0 do

Begin

Counter: =Counter+1; {Підрахунок кількості цифр}

N: =N div 10; {Відкидання останньої, цифри}

End;

Writeln(" Кількість цифр у заданому числі дорівнює =', N);

Readkey;

End.

Приклад3 застосуванняоператорациклуз передумовою (табуляція функції на проміжку [-3; 3] з кроком 0, 5)

Умова: Знайти значення функції в точках х=-3, х= -2. 5, х=-2, …, х=3.

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

1. В даній задачі аргументом є х, результатом є у.

2. Аргумент х змінюється з кроком 0, 5 від –3 до 3, отже результатів буде декілька.

3. Програма може мати вигляд:

Program tab_1;

var x, y: real;

begin

x: = -3;

while x< =3 do

begin

y: = 2*cos(3*x-5);

writeln ('x=', x, 'y=', y);

x: =x+0. 5;

end;

end.

Х і д р о б о т и:

1. Ознайомтесь з теоретичним матеріалом.

2. Введіть та відлагодьте програму розв’язування задач за індивідуальними завданнями.

3. У звітах складіть блок-схему алгоритму, запишіть програму і проаналізуйте результати її виконання, дайте відповіді на контрольні запитання.

4. Закрийте вікна. Закінчіть роботу. Здайте звіти.

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

1. Які оператори циклу ви знаєте?

2. Що таке оператора циклу з передумовою?

3. Що таке умова в операторі циклу? Які значення вона приймає?

4. Чи можна використовувати оператор циклу While < умова> do < оператор>; для організації циклу з довільним кроком?

5. Скільки разів виконується оператор циклу While, якщо умова приймає значення false?

Індивідуальні завдання:

1-6. Скласти блок-схеми та програми обчислення суми S чи добутку P:

1.	2.
3.	4.
5.	6.

7-12. Скласти блок-схеми та програми обчислення виразу:

7.	8.
9.	10.
11.	12.

13- 18. Скласти блок-схему та програми обчислення:

13. суми перших десяти парних чисел.

14. суми цілих додатних чисел, кратних 4 і менших 50.

15. добутку цілих чисел, більших 2, менших 40 і кратних 3.

16. середнього арифметичного цілих додатних чисел менших 47.

17. добутку перших двадцяти непарних чисел.

18. суми всіх двозначних чисел, кратних 5.

19-24. Протабулювати функцію у = f(x) для значень аргументу х на проміжку з кроком . Вигляд функції та значення вхідних даних подано в таблиці:

№	Вид функції у = f(x)	Вхідні дані
№	Вид функції у = f(x)	a	b	x_n	x_k
19.			0. 75	1. 35	6. 5	0. 5
20.		19. 6	7. 8	14. 6	34. 8	3. 6
21.		1. 38	1. 26			4. 5
22.			1. 68	1. 2	2. 4	0. 18
23.		0. 36	5. 5			4. 75
24.			1. 85		1. 2	0. 15

⇐ Предыдущая 1 23