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

12 13 14 15 16 17 18

Тема: Створення та реалізація найпростіших циклічних програм

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

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

Терміни і поняття до ЛПР №24: циклічні програми, вказівки повторення з параметром, for, to, do, факторіал.

Хід роботи

Задача. Знайти значення всіх натуральних чисел від 1 до N (N=57) (вказівки повторення з параметром)

Program SUMM1;

Var I,N,S: integer;

Begin

WriteLn('Введіть кількість натуральних чисел:');

Write('N=');

ReadLn(n);

S:=0;

For i:=1 to N do

S:=S+i;

WriteLn('S=',S)

end.

1. Запустіть програму середовища мови програмування Паскаль

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

3. Виправте очевидні помилки.

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

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

6. Змініть вхідні дані програми так: N =25, N =порядковий номер в журналі

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

8. Складіть програму для знаходження факторіала числа n

n!= 1*2*3*…*n, n = порядковой номер в журналі учня +50

9. Результат запишіть в зошит і збережіть програму під назвою Factorial (порядковой номер в журналі +50)

Лабораторно – практична робота №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 такими даними:

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