5. Ветвление. Формат оператора.

Алгоритмическая структура "ветвление" используется для организации выбора, принятия решения. Ветвление в алгоритмах обозначается блоком:

Условие – это логическое выражение, в котором два арифметических выражения или значения связаны операциями отношения. Условие бывает истинно (True) или ложно (False). Если условие истинно, выполняется команда 1, в противном случае – команда 2

В языке Pascal ветвление реализуется оператором

If <условие> Then <оператор 1> Else <оператор 2>;

Например:

If x>2 Then x=x+2 Else x=10*x;

Лабораторная работа№2

52. Даны два числа. Вычислить, какое их них больше.

Решение. Сравнить числа. Если x>y, то ответ “x больше” иначе ответ “y больше”

Алгоритм:

П рограмма

Program WW;

Var x,y: Real;

Begin

WriteLn('Введите два неравных числа: ' );

Write ( ' x = ' ) ; ReadLn(A);

Write ( ' y = ' ) ; ReadLn(В);

If x>y Then WriteLn( x,'- больше') Else WriteLn(y,'- больше');

End.

Примечание. При тестировании программ, содержащих ветвление необходимо придумать несколько тестовых примеров, для того, чтобы проверить работу каждой ветви программы.

53. Даны два числа. Большее из чисел удвоить, меньшее увеличить на 10.

54. Даны действительные числа x,y и z. Вычислить max(x+2y, yz)

55. Выяснить, что из чисел х, у, z только два равны между собой;

Д/з

56. Выяснить, является ли четным числом сумма цифр данного трехзначного числа N

57. Выяснить, принадлежит ли части плоскости, лежащей между прямыми х = m, х = n (m < n);точка с координатами (х, у)

58. Выяснить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа;

59. Выяснить, является ли целое число N четным двузначным числом;

60. Выяснить, является ли треугольник со сторонами а, b, с равносторонним;

61. Выяснить является ли равнобедрен­ным треугольник со сторонами а, b, с;

62. Выяснить есть ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел;

63. Числа с и d выражают длины катетов одного прямоуголь­ного треугольника, а с и d — другого. Являются ли эти треугольники подобными;

64. Даны три стороны одного и три стороны другого треуголь­ника. Являются ли эти треугольники равновеликими, т.е. имеют равные площади;

65. Выяснить данная тройка натуральных чисел а,b, с является ли тройкой Пифагора, т.е. с² = а² + b²;

66. Выяснить все ли цифры данного четырехзначного числа N различны;

67. Выяснить данные числа х, у являются ли координатами точки, лежа­щей в первой координатной четверти;

68. (x₁, y₁) и (х₂, у₂) — координаты левой верхней и правой нижней вершин прямоугольника. Выяснить ,точка А(х, у) лежит внутри этого прямоугольника или на одной из его сторон;

69. Определить, является ли число с средним арифметическим чисел а и b;

70. Выяснить входит ли цифра М в десятичную запись четырехзначного числа N;

71. Определить, читается ли данное четырехзначное число одинаково слева направо и справа налево;

72. Кратна ли 2 сумма двух натуральных чисел;

73. Выяснить, кратно ли числу с произведение натуральных чисел а и b;

74. Выяснить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.