ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 10.01.2024
Просмотров: 82
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Практическое задание №21
Тема: Ветвление в вычислительных алгоритмах
| 1 уровень сложности |
|
| 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. |