5. Лабораторна робота №5

5. Мп Turbo Pascal. Реалізація алгоритмів розгалуження

5. Навчитися реалізовувати алгоритми розгалуження в середовищі Turbo Pascal.

Завдання для лабораторної роботи

Задача №1.

Скласти блок-схему алгоритму та програму для обчислення значення функції f(x). Відлагодити програму для значень аргументу x=x₁, x=x₂, x=x₃, що відповідають різним розгалуженням у визначенні функції. Всі розрахунки виконати з точністю до трьох знаків після коми. Вивести початкові дані та результати обчислень.

Задача №2. (Див.алгоритм Лекція №1)

Н аписати програму, відповідно до алгоритму, який обчислює оптимальну вагу користувача ПК, порівнює її з реальною та видає рекомендацію про необхідність поправитися або схуднути. Оптимальна вага обчислюється за формулою: зріст (в см.) –100

Задача №3.

Написати програму обчислення вартості покупки з урахуванням знижки. Знижка в 3% надається в тому випадку, коли сума покупки більше 500 грн., в 5% — якщо сума більше 1000грн.

З аповнити блок-схему і написати програму.

Задача №4

Я кщо сума трьох попарно різних дійсних чисел x,y,z менше одиниці, то найменше з цих трьох чисел замінити півсумою двох інших; в протилежному випадку замінити менше з x і y півсумою двох залишившихся значень.

№5

С

№5

класти блок-схему алгоритму розв’язання задачі відповідно до варіанту, зобразити її засобами Microsoft Word, написати програму мовою Pascal, відлагодити її та проаналізувати отримані результати [1].

№1

Задано два дійсних числа x та y ( x y ) . Обчислити :

№2

Задано два дійсних числа x та y ( x y ) . Обчислити :

№3

Задано два дійсних числа x та y ( x y ). Обчислити

№4

Задано два дійсних числа x та y ( x y ) . Обчислити:

№5

Задано два дійсних числа x та y ( x y ) . Обчислити :

№ 6

Задано два дійсних числа x та y ( x y ) . Обчислити :

№7

Задано дійсне число h. З’ясувати, чи має рівняння: ax²+ bx+c = 0 дійсні корені , якщо:

№8

Серед значень x, y та z вибрати ті , що належить інтервалу [ 1 ; 3 ]

№9

Задано дійсне число x . Обчислити y , z та вибрати серед y , z ті , що належать інтервалу [ 1 ; 3 ] .

№10

Задано дійсні числа x , y (xy). Обчислити z , w та менше з них замінити півсумою , а більше - їх подвоєним добутком.

№11

Обчислити y , z та піднести до квадрату ті значення y , z , які додатні.

№12

Обчислити:

1. Якщо y > z , то кожне з них замінити їх квадратами.

2. Якщо y  z , то кожне з них зменшити в два рази.

№13

Задано дійсні числа a , b , c ( ). Знайти дійсні корені рівняння . Якщо дійсних коренів немає, то на друк вивести повідомлення “ корені комплексні ”.

№14

Задано дійсне число h. Знайти дійсні корені рівняння. Якщо дійсних коренів немає, то на друк вивести повідомлення “корені комплексні”.

№15

Задано два дійсних числа a , b ( a  b ) . Обчислити :

№16

Задано два дійсних числа a , b ( a  b ) . Обчислити :

№17

Задано три дійсних числа x , y , z ( x  y  z ) . Обчислити :

№18

Задано дійсні числа a₁, b₁ , c₁, a₂, b₂, c₂. З’ясувати, чи вірно, що і, якщо так, то знайти розв’язок системи лінійних рівнянь.

№19

Задано дійсні числа a , b , c (a b  c). Обчислити

№20

Задано дійсні числа х , у ( xy ). Обчислити

№21

Задано два дійсних числа x та y ( x y ) . Обчислити

№22

Задано дійсні числа c = 1,5 ; d = 2 . Обчислити :

де

х₁, х₂ – корені рівняння x² - 3x - cd = 0 .

№23

Задано дійсні числа x , y , z . Обчислити :

№24

Задано два дійсних числа x та y ( x y ) . Обчислити :

№25

Серед значень x , y , z вибрати ті, що належать інтервалу [ 0 ; 6 ]

№26

Задано дійсні числа c , d ( d > 0 ) . Обчислити :

№27

Задано точки М₁( x₁, y₁ ) , M₂( x₂, y₂ ) . Координати точок задати довільно. Обчислити:

№28

Задано дійсні числа x , y ( xy ) . Обчислити :

№29

Задано дійсні числа a₁ , b₁ , c₁ , a₂ , b₂ , c₂ .Вияснити, чи вірно, що і , якщо так , то знайти розв’язок системи лінійних рівнянь.

№30

Задано точки М₁( x₁, y₁ ) , M₂( x₂, y₂ ) . Координати точок задати довільно. Обчислити :

П итання для самоконтролю

1. Скільки команд можна записати на «гілці» Then умовного оператора If?

2. Скільки команд можна записати на «гілці» Else умовного оператора If?

3. Які оператори МП Turbo Pascal є структурними?

4. Що таке складений оператор і які функції він виконує?

5. Як відбувається робота умовного оператора If?

6. Чи може зустрічатися символ «;» всередині будь-якого структурного оператора і чому?

7. Який оператор дозволяє виконати одну з декількох дій в залежності від результату обчислення виразу?