Работа в среде Турбо Паскаль. Чтение и составление программ разветвляю- щихся вычислительных процессов

Разветвляющийся вычислительный процесс.

Условный оператор IF (if)
Полная форма if <условие> then <

Пример 5.1 Определить максимальное число из двух заданных произвольных чисел a

Пример 5.1 (Продолжение).

Program PR_5_1;
var a,b,max:real;
begin
writeln('wwedite tschisla a,b');
read(a,b);
if a>b then max:=a
else max:=b;
writeln('max=',

Пример 5.2 Найти корни квадратного уравнения

Program PR_5_2;
var a,b,c,D,x1,x2:real;
begin
writeln('wwedite tschisla a,b,c');
read(a,b,c);
D:=sqr(b)-4*a*c;
if

Пример 5.2 (Продолжение)

Объяснить работу программы. Построить структурную схему про-
граммы.
Найти корни

Пример 5.2 (Продолжение) (Д.З.)

Блок-схема программы

Блок-схема программы Функция имеет следующий вид

Пример 5.3 Вычислить значения и построить

Пример 5.3 (Продолжение)

Program PR_5_3;
var x,y:real;
begin
writeln ('wwedite X');
read (X); { X iz

Пример 5.1 Смоделировать работу кодового замка.

1. Построить блок-схему прог-раммы и объяснить