Question

Составьте блок-схему для процедуры:

procedure NOD(var z: integer; x, y: integer);
begin
while (x > 0) and (y > 0) do
if x > y then x := x mod y
else y := y mod x;
z := x + y
end;

Answer 1

Ответ:Начало]

|

[Ввод x, y]

|

[Начало цикла while]

|

[Проверка условия (x > 0) and (y > 0)]

|

[Если условие выполнено, то проверяем условие x > y]

|

[Если x > y, то x := x mod y]

|

[Иначе, y := y mod x]

|

[Конец ветвления условия]

|

[Конец цикла while]

|

[Сложение x и y, присвоение результата переменной z]

|

[Вывод результата z]

[Конец]

Объяснение: