Розгалуження Переклад алгоритмів з розгалуженням на мову програмування

Завдання До даних задач складемо: 1. Алгоритми (блок-схему або алгоритм на навчальній алгоритмічній мові); 2. Програми (з використанням повної або короткої формах розгалуження)

Завдання 1 Чи поміститься квадрат зі стороною а в колі радіусом R? R a

Завдання 1 Алгоритм, програма Алг Квадрат_в_колі; Арг a, R: дійсн; Рез поміститься, не поміститься: текст; Поч Ввести а, R якщо 4R 2 >=a 2 +a 2 то вивід 'Квадрат помiститься в колi інакше вивід 'Квадрат не помiститься в колi Кін Program Rvadrat_v_koli; uses Crt; Var a, R:real; Begin ClrScr; WriteLn('Введiть '); Write('Cторону квадрата A='); ReadLn(a); Write('Радiус кола R='); ReadLn(R); if 4*R*R>=a*a+a*a then writeLn('Квадрат помiститься в колi ') else writeLn('Квадрат не помiститься в колi '); readLn; End.

Завдання 2 Перевірте виконання нерівності A<B<C для введених чисел.

Завдання 2 Алгоритм, програма Алг Нерівність; Арг a, b,c: дійсн; Рез виконується, не виконується: текст; Поч Ввести а, b, c якщо ( A<B) і (B<C) то вивід Нерівність виконується інакше вивід Нерівність не виконується Кін Program Nerivnist; uses Crt; Var a, b, c:real; Begin ClrScr; WriteLn('Введiть числа А, В, С '); ReadLn(a); ReadLn(b); ReadLn(c); if (a<b) and (b<c) then writeLn('Нерiвнiсть виконується') else writeLn('Нерiвнiсть не виконується'); readLn; End.

Завдання 3, 4 (Для самостійного опрацювання) Перевірте чи існує трикутник зі сторонами a, b, c. Перевірте чи введене число ненульове.

Завдання 3, 4 До даних задач складіть: 1. Алгоритми (блок-схему або алгоритм на навчальній алгоритмічній мові); 2. Програми (з використанням повної або короткої формах розгалуження)