Оператор ветвления на языке Паскаль

Задача №2 Написать программу для определения лежит ли точка с указанными координатами Х, У на окружности радиуса R с центром в начале координат. Оператор ветвления(условный оператор) Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж В. Васнецов “Витязь на распутье”, 1882 г. Направо пойдёшь - коня потеряешь, налево пойдёшь – жизнь потеряешь. Скажите, с точки зрения алгоритмизации и программирования, что написано на камне? Разветвляющийся алгоритм – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий. Основные варианты структуры ветвления: если - то; если – то - иначе; нет серия команд 1 да условие да нет серия команд 1 серия команд 2 условие Полная форма Неполная форма Да Нет A > B ? B:=B*2 Оператор ветвления в неполной форме Задача. Если А больше В то В увеличить в два раза Запись команды ветвления на языке программирования Pascal IF (условие) THEN (операторы); IF A>B THEN B:=В*2; A > B ? A - максимальное В - максимальное Да Нет Оператор ветвления в полной форме Задача. Из двух чисел найти максимальное. IF (условие) THEN (операторы) ELSE (операторы); условие записывается с помощью знаков сравнения и принимает два значения: да или нет IF A>B THEN max:=A  ELSE max:=B; Операции Знаки Примеры Равно = А=В {А равно В} Меньше < A А>B {А больше В} Больше либо равно >= A>=B {А больше либо равно В} Не равно <> A<>B {А не равно B} Операции сравнения Составные условие Операции Операции Пример Логическое «и» and (a>b) and (b>c) Логическое «или» or (a>c) or (a>b) Логическое отрицание not not (a>b) Операции Операции Пример Логическое «и» and (a>b) and (b>c) Логическое «или» or (a>c) or (a>b) Логическое отрицание not not (a>b) Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран. Задача № 3: Ввести 2 числа. Вычесть из большего меньшее.Задача № 4: Ввести число. Если оно больше 8, разделить его на 4, если меньше или равно 8, то умножить на 5. If x>0 then y:=x-50 else y:=x+100; If a*b<0 then y:=a*b*(-2) else y:=a*b*3; If A>B then C:=A-B; If x>8 then y:=x/4 else y:=x*5; Запишем решение нашей задачи на Паскале program Zadacha2;var x, y, R: real; begin writeln (‘введите координаты точки x,y’); readln (x,y); if sqr(R)=sqr(x)+sqr(y) then writeln(‘Точка лежит на окружности’);else writeln (‘Точка не лежит на окружности’); end.