Практича робота №4

ТЕМА: Програмування розгалужуючих алгоритмiв.

I.МЕТА РОБОТИ:

Засвоєння розгалуженої структури програми.

Одерження навиків в організації розгалужень на декiлька вiток процесу розв’язання задачi.

3. Одерження практичних навиків роботи в діалоговому режимі.

II.ПОСТАНОВКА ЗАДАЧІ.

Найти значення функції при різних варіантах аргументу. Використовувати стандартні функції , організувати ввод і вивід даних заданих типів, забезпечити друкування відповідних заголовків.

Скласти програму для розв’язання задачі 1 та задачі 2, використовуючи оператор вибору CASE.

III.ЗМІСТ ЗВІТУ.

1. Постановка задачі.

2. Текст прграми і результати її виконання.

3. Висновки.

IV.МЕТОДИЧНІ ВКАЗІВКИ.

1. Функції, які відсутні в списку стандартних функцій мови ПАСКАЛЬ, потрібно виразити через ті які маємо.

2. Вивiд значення виразів в даній точці організувати, використовуючи оператор WRITELN.

V.ПРИКЛАД ПРОГРАМИ.

Обчислити значення функції

S= для a=1.3 ,b=1.29 ,t=0.38

PROGRAM P1;

VAR A,B,T,S:REAL;

N:INTEGER;

BEGIN

WRITELN( ‘ М Е Н Ю П Р О Г Р А М И :’);

WRITELN( ‘ 1 - ЗАДАЧА 1’);

WRITELN( ‘ 2 - ЗАДАЧА 2’); WRITELN;

WRITELN(’ВВЕДІТЬ НОМЕР ЗАДАЧІ N:’);

READLN(N);

CASE N OF

1: BEGIN

WRITELN(’ВВЕДІТЬ А,В,Т’);

READ(A,B,T);

IF A*T<1 THEN S:=A*T+B;

IF A*T=1 THEN S:=COS(A*T);

IF A*T>1 THEN S:=EXP(-A*T)*COS(A*T);

WRITELN(’A=’,A:8:3,’ B=’,B:8:3,’ T=’,T:8:3);

WRITELN(’РЕЗУЛЬТАТ=’,S:8:3);

END;

2:BEGIN WRITELN(‘ВВЕДІТЬ 2 ЦІЛИХ ЧИСЛА:’);

READLN(X,Y);

IF X mod 2 = 0 THEN WRITELN(X,’-парне число’);

IF Y mod 2 = 0 THEN WRITELN(Y,’-парне число’);

END;

END.

VI.Завдання до практичної роботи №4.

№п/п	ФУНКЦІЯ	УМОВА	ДАНІ
1		1<=t<=2 t<1 t>2	a=-0.5 b=2
2		x<1.3 x=1.3 x>1.3	a=1.5
3		x<1.2 x=1.2 x>1.2	a=2.8 b=-0.3 c=4
4		x<1.4 x=1.4 x>1.4	a=1.65
5		x<1 x=1 1<x<2 x>2	a=2.3
6		x>a x=a x<a	a=2.5
7		bx<1 bx=1 bx>1	b=1.5
8		x>3.5 x<=3.5	——
9		x>1 X<=1	a=20.3
10		x>0.5 x=0.5 x<0.5	t=2.2
11		x<2.8 2.8<=x<=6 x>=6	a=2.6 b=-0.39
12		x>1 x<=1	a=0.9
13		i<4 4<=i<=6 i>6	a=2.1 b=1.8 c=-20.5
14			a=0.3 n=10
15		t<0.1 t=0.1 t>0.1	a=2.5 b=0.4

ВАРІАНТИ ЗАВДАНЬ ЗАДАЧІ 2:

1.Ввести три довільних числа. Знайти найбільше з них та кількість додатніх.

2.Ввести довільне число R. Перевірити чи належить воно інтервалу [1,20].Якщо так ,то обчислити площу круга та довжину кола з радіусом R.

3.Ввести два довільних числа a,b. Якщо a більше b то обчислити їх суму, в противному випадку добуток .

4.Впорядкувати три довільних числа в порядку зростання.

5.Перевірити якій чверті належить точка з заданними координатами. Врахувати осі координатної площини.

6.Ввести три довільних числа. Знайти найменше з них та кількість від'емних.

7.Ввести три довільних цілих числа. Обчислити суму парних.

8.Впорядкувати чотири довільних числа в порядку спадання.

9.Ввести три довільних числа. Перевiрити чи можуть бути вони сторонами трикутника. Якщо так, то знайти його площу.

10.Ввести чотири довільних цілих числа. Обчислити добуток непарних.

11.Ввести три довільних цілих числа. Перевірити на кратність трьом.

12.Ввести три довільних числа. Перевірити чи можуть бути вони сторонами трикутника. Якщо так, то визначити його тип:прямокутний, гострокутний, тупокутний.

13.Ввести довільне число R. Перевірити чи належить воно інтервалу [5,15]. Якщо так ,то обчислити площу сфери та об'єм кулі з радіусом R.

14.Ввести три довільних числа. Перевірити чи можуть бути вони сторонами трикутника. Якщо так, то знайти периметр, радіус описаного кола та вписаного .

15.Ввести три довільних цілих числа. Перевірити на кратність п'яти.