Розгалуження

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

Завдання

До даних задач складемо: 1.

Алгоритми

(блок-схему або алгоритм на навчальній алгоритмічній мові); 2.

Програми

(з використанням повної або короткої формах розгалуження)

Завдання 1

Чи поміститься стороною

а

квадрат в колі радіусом

R

?

зі

a

R

Завдання 1

Алгоритм, програма

Алг

Квадрат_в_колі;

Арг

a, R:

дійсн

;

Рез

поміститься, не поміститься:

текст

;

Поч Ввести а, R якщо 4R 2 >=a

колi

’ 2 +a 2 то вивід

'Квадрат пом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

для введених чисел.

Завдання 2

Алгоритм, програма

Алг

Нерівність;

Арг

a, b,c:

дійсн

;

Рез

виконується, не виконується:

текст

;

Поч Ввести а, b, c якщо (

A

то вивід

’Нерівність виконується

’ інакше вивід

’Нерівність не виконується

’ Кін

Program Nerivnist; uses Crt; Var a, b, c:real; Begin ClrScr; WriteLn('Введiть числа А, В, С '); ReadLn(a); ReadLn(b); ReadLn(c); if (a

Завдання 3, 4

(Для самостійного опрацювання)

 Перевірте чи існує трикутник зі сторонами

a, b, c

.

 Перевірте чи введене число

ненульове

.

Завдання 3, 4

До даних задач складіть: 1.

Алгоритми

(блок-схему або алгоритм на навчальній алгоритмічній мові); 2.

Програми

(з використанням повної або короткої формах розгалуження)