Лабораторно – практична робота №25

Тема: Створення та реалізація програм з розгалуженням.

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

Обладнання: комп’ютер, класна дошка, крейда, опорний конспект

Терміни і поняття до ЛПР №25: програма з розгалуженням, if, then, else

Хід роботи

Задача. Обчислити податок із заробітної плати в залежності від її величини за формулою:

р = 0, якщо z<=17;

Р = р = 0.1*z, якщо 17 < z < 85;

p= 0.15*(z-85) +6.80, якщо z >= 85

Program Podatoc;

Var P,Z: real;

Begin

WriteLn ('введіть значення величини заробітної плати:');

Write ('Z=');

ReadLn (Z);

If Z<=17 then P:=0

else

If (Z>17) and (Z<85) then P:=0.1*Z

else P:=(0.15*(Z-85))+6.80;

WriteLn ('Прибутковий дорівнює:');

WriteLn ('P=',P:5:2);

end.

1. Введіть текст програми.

2. Введіть значення величини заробітної плати: Z= 60 Отриманий результат і запишіть в зошит.

3. Обчисліть прибутковий податок, якщо Z = 15; Z = 45; Z = 115

4. Запустіть програму на виконання.

5. Перепишіть результати у зошит.

6. Змініть вхідні дані програми так: 525 < Z < 1500

7. Результат обчислення запишіть в зошит

8. Збережіть програму на диску чи дискеті з назвою PODATOC.pas.

9. Скласти програму зa такими даними:

№з/п	Функція	Умова	Значення змінних
1	x2 ln(a) Y= 1 cos(ab)	x>0.1 x=1 x=0	a=0.5 b=2 x=1
2	x2* tg(a) Y= x2 sin (b)	x<0.1 x>1 x=0	a=1 b=-1 x=2
3	x2 ln(a) Y= 0 cos(x)	x>1 x=1.4 x=1.4	a=0.5 b=3.2 x=1
4	x2* Y= 1 cos(a)*sin(b)	x>a x=a x<a	a=-2.1 b=1 x=0.8
5	x2 +b Y= 5*x2+a ex	x>1 x=0 x<0.5	a=1.5 b=-3 x=1
Додатково	Том Сойєр фарбує паркан своєї тітоньки. Нехай a- довжина, в – ширина суцільного зафарбованого прямокутника в метрах, S – сумарна площа плям фарби на решті паркана в квадратних метрах. Тітонька вирішила, що якщо площа прямокутника буде більша 15 кв. м, а площа плям не більше за 10 кв. м, то Том отримає яблуко, інакше – догану по службі. Визнач, що чекає Тома?

10. Введіть текст програми

11. Результати обчислення запишіть в зошит.

12. Закрийте вікно програми, закінчіть роботу.