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

1. Розгалужений обчислювальний процес.

Обчислювальний процес, що розгалужується, реалізується по одному з декількох напрямів обчислення (гілок алгоритму). Вибір однієї з гілок залежить від істинності або помилковості деякої умови (логічного виразу), включеної до складу умовного оператора. Програма повинна враховувати всі можливі гілки обчислень. Завжди виконується тільки одна зі всіх можливих гілок.

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

Мовою Паскаль ці структури реалізуються наступними операторами:

а) повна форма:

if <умова> then <серія 1> else <серія 2>;

б) коротка форма:

if <умова> then <серія>;

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

Результатом обчислення логічного виразу є одне з двох значень: TRUE або FALSE.

Операції відношення мають наступний загальний вигляд:

арифм. вираз.1 знак операції відношення арифм.вираз.2

Знаки операцій відношення:

< (менше), <= (менше-дорівнює), > (більше), >= (більше-дорівнює),

= (дорівнює), <> (не дорівнює).

У будь-який логічний вираз повинна входити хоча б одна операція відношення!

Логичні операції використовуються лише в логічних виразах і служать для створення складних умов.

Математичний запис	Запис на Паскалі	Назва
	not	Заперечення
	and	Операція "І" (логичне множення)
	or	Операція "АБО" (логичне додавання)
	xor	Операция "виключне АБО"

Операция NOT використовується до одного логічного виразу (є унарною). Результат дорівнює TRUE, якщо вираз хибний і навпаки.

Наприклад:

NOT (sin(x)>1) результат завжди TRUE.

Операція AND зв'язує не менше двох логічних виразів (є бінарною). Результат рівний TRUE, якщо всі вирази істинні і FALSE, якщо хоч би один з виразів помилково.

Наприклад: Розпишемо вираз Так як операції належності у Паскалі немає, використаємо операцію AND і операції відношення:

(x>=a) and (x<=b).

Задача 1.

Скласти блок-схему та написати програму вирішення задачі:

Дано дійсне число x. Обчислити f (x), якщо:

Рішення:

Програма мовою Паскаль буде мати наступний вигляд:

Program Rozg1; ( назва програми)

Uses crt; (підключення модулю crt)

Const pi=3.14; (надання значення константі  )

var x,f:real; (опис змінних)

BEGIN (початок програми)

clrscr; (очищення екрану)

write(‘уведіть значення x: ‘); (виведення пояснюючого тексту)

readln(x); (введення значення Х з клавіатури)

if x<=0 then f:=0 (перевірка першої умови)

else

if (x>0)and(x<=1) then f:=sqr(x)-x (перевірка другої умови)

else

f:=sqr(x)-sin(pi*sqr(x));

writeln(‘f(x)=’,f:5:3); (виведення значення f)

readln;

END. (кінець програми)

Зауважимо, що перед else крапка з комою не ставляться.

Задача 2.

Скласти блок-схему та написати програму вирішення задачі:

Дано три дійсних числа. Вивести числа, які належать інтервалу (1,3).

Рішення:

Спочатку побудуємо блок-схему.

Програма мовою Паскаль буде мати наступний вигляд:

Program Rozg2; ( назва програми)

Uses crt; (підключення модулю crt)

var a, b, c:real; (опис змінних)

BEGIN (початок програми)

clrscr; (очищення екрану)

write(‘уведіть значення a,b,c: ‘); (виведення пояснюючого тексту)

readln(a,b,c); (введення значень a,b,c з клавіатури)

if (a>=1) and (a<=3) then (перевірка першої умови)

writeln(‘a – належить ’, a:6:2); (виведення значення a)

if (b>=1) and (b<=3) then (перевірка другої умови)

writeln(‘b – належить ’,b:6:2); (виведення значення b)

if (c>=1) and (c<=3) then (перевірка третьої умови)

writeln(‘c – належить ’,c:6:2); (виведення значення c)

readln;

END. (кінець програми)

N варіанту	Скласти схему алгоритму й написати програму обчис-лення функції X=f(a,b) при заданих значеннях a,b.	Скласти блок-схему та написати програму вирішення задачі.
1.		Дано два дійсних числа. Вивести перше число, якщо воно більше другого, і обидва числа, якщо це не так.
2.		Визначити чи є вписаним квадрат зі стороною А в круг радіусом R.
3.		Дано двозначне число. Вивести «так», якщо цифри числа однакові і «ні», якщо цифри різні.
4.		Задано ціле число N. Визначити чи є це число парним.
5.		Задано ціле число N. Визначити чи належить це число інтервалу 5  N  20.
6.		Задано ціле число N (N50). Визначити чи ділиться воно без остачі на 3.
7.		Задано два цілих числа A, B (АВ). Вивести суму цих чисел, якщо А>B і вивести 0 у протилежному випадку.
8.		Дано дійсні додатні числа x,y,z. З’ясувати, чи існує трикутник з довжи- нами сторін x,y,z.
9.		Дано дійсні числа x, y (x  y). Менше з цих чисел замінити їх напівсумою, а більше - абсолютним значенням їх різниці.
10.		Дано три дійсних числа. Підвести до другої степені ті зних, які є від’ємними.
11.		Дано три дійсних числа. Якщо всі три числа є від’ємними, то вивести їх суму, в іншому випадку вивести 0.
12.		Дано дійсні числа x,y,z. Перевірити чи виконується умова x<y<z .
13.		Дано два дійсних числа. Вивести перше число, якщо воно більше другого, та обидва числа, якщо це не так.
14.		Дано три цілих числа. Вивести менше з цих чисел.
15.		Дано три цілих числа. Вивести ті числа, які є парними.
16.		Визначити, чи належать одній прямій точки A(x1,y1), B(x2,y2), C(x3,y3).
17.		Дано ціле чотирьохзначне число, яке э заданим роком. Визначити, чи є цей рік високосним.
18.		Задано ціле число К. Визначити чи належить це число інтервалу 10 К  100.
19.		Дано три дійсних числа. Якщо всі три числа є додатніми, то вивести «так», в іншому випадку вивести «ні».
20.		Визначити чи є вписаним круг радіусом R у квадрат зі стороною А.
21.		Дано два дійсних числа. Вивести друге число, якщо воно більше першого, і їх суму, якщо це не так.
22.		Дано дійсні числа x,y,z. Перевірити чи виконується умова x>y>z .
23.		Дано три цілих числа. Вивести ті числа, які без остачі діляться на 5.
24.		Дано двозначне число. Вивести «так», якщо цифри числа однакові і «ні», якщо цифри різні.
25.		Визначити, чи належать одній прямій точки A(x1,y1), B(x2,y2), C(x3,y3).
26.		Дано три цілих числа. Вивести більше з цих чисел.
27.		Дано дійсні додатні числа x,y,z. З’ясувати, чи існує трикутник з довжи- нами сторін x,y,z.
28.		Дано двозначне число. Вивести «так», якщо цифри числа однакові і «ні», якщо цифри різні.
29.		Дано дійсні числа x, y (x  y). Більше з цих чисел замінити їх напівсумою, а менше – їх добутком.
30.		Дано три цілих числа. Вивести ті числа, які є непарними.

ДОДАТОК 1