Практическая работа программирование алгоритмов с ветвлением

Практическая работа №5

Тема: Программирование алгоритмов с ветвлением

Цель: Формирование навыка решения задач с помощью оператора ветвления

Задание 1. (уровень сложности 1)

Написать программу. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник.

program treygolnik;

var a, b: real;

begin

write ('Введите первый угол (в градусах): ');

readln (a);

write ('Введите второй угол (в градусах): ');

readln (b);

if (a+b 180) and (a+b 0) then

writeln ('Такой треугольник существует!');

else

writeln ('Такого треугольника не существует!');

readln;

end.

Задание 2 (уровень сложности 1)

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

Задание 3 (уровень сложности 2)

Найти ошибки в записи программы

Написать программу решения квадратного уравнения по формуле дискриминанта. Учесть, что если дискриминант равен нулю, то уравнение не имеет решения (использовать оператор ветвления).

Квадратное уравнение:

ax²+bx+c=0

Дискриминант:

D=b²-4ac

Корень квадратного уравнения:

program discr;

var a, b, c, d, x1, x2: real;

begin

write ('Введите a: ');

readln(a);

write ('Введите b: ');

readln(b);

write ('Введите c: ');

readln(c);

d:=sqr(b)-4*a*c;

writeln ('D = ', d:8:2);

if d 0 then

writeln ('Уравнение не имеет решений')

else

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln ('Уравнение имеет два корня: ');

writeln ('X1=', x1:8:2);

writeln ('X2=', x2:8:2);

else

if d = 0 then

writeln ('Уровнение имеет один корень: ', -b/(2*a):8:2)

end;

readln

end.

Задание 4 (уровень сложности 2)

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

Задание 5 (уровень сложности 3)

Написать программу. Даны два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы координатами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки (x1, y1) и (x2, 0), для второго – (x3, y3), (x4, 0). Составить программу, определяющую, пересекаются ли данные прямоугольники, и вычисляемую площадь общей части, если они пересекаются.

Контрольные вопросы:

1. Что такое пошаговая детализация?

2. Из каких команд могут состоять вспомогательные алгоритмы последнего уровня детализации?

3. Чем отличается полное ветвление от неполного?

Критерии оценивания:

Оценка 3: задачи 1-2;

Оценка 4: задачи 3-4;

Оценка 5: задача 5.