|
|
9 класс практическая. Ветвление в вычислительных алгоритмах
Практическое задание №21
Тема: Ветвление в вычислительных алгоритмах
1 уровень сложности
|
Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу иначе ничего не делать. Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм для A=5, A=-4, A=0.
|
2 уровень сложности
|
1. Точка А задана координатами X,Y. Разработать схему алгоритма, который устанавливает значение флага F=1, если точка принадлежит заштрихованной области (см. рисунок 1) и значение флага F=0 в противном случае. Вывести значение F. Протестировать алгоритм для точек (1.5,2), (0,0), (-1.5, 1), (1,-1.2), (-2,-1).
var x,y: real;
begin
write('Введите координату точки x: ');
readln(x);
write('Введите координату точки y: ');
readln(y);
if ((x>0)and(y>0)) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.
2. Точка А задана координатами X,Y. Разработать схему алгоритма, который устанавливает значение флага F=1, если точка принадлежит заштрихованной области (см. рисунок 2) и значение флага F=0 в противном случае. Вывести значение F. Протестировать алгоритм для точек (2.5, 2), (1,1), (0,0), (1,0), (2,-1).
|
3 уровень сложности (найти ошибку в коде и проверить алгоритм)
|
1. Треугольник задан длинами сторон А, В, С. Разработать схему алгоритма, определяющую, существует ли данный треугольник. Если треугольник существует, то установить значение флага F=1, иначе F=0. Для решения этой задачи использовать сложные логические условия. Протестировать алгоритм для следующих исходных данных:
а) A=3, B=4, C=5
б) A=1, B=1, C=1
в) A=0, B=4, C=5
г) A=-3, B=6, C=5
д) A=2, B=1, C=8
var a,b,c: integer;
begin
write('Введите длину стороны A: ');
readln(a);
write('Введите длину стороны B: ');
readln(b);
write('Введите длину стороны C: ');
readln(c);
if ((a>0) and (b>0) and (c>0)) then
if ((athen writeln ('Треугольник существует.')
else writeln ('Треугольник не существует.')
else writeln ('Треугольник не существует.')
end.
| |
|
|
Скачать 168.63 Kb.