Question

Задача на составление алгоритма неполного ветвления Даны три целых числа А,В,С. Найти количество положительных чисел в исходном наборе. РЕШИТЬ НА КУМИРЕ.

Answer 1

Ответ:

Если не разделять понятия неотрицательных и положительных, то этот код:

Var

A,B,C,P,O:integer;

Begin

P:=0;

O:=0;

WriteLn('Введи три числа');

ReadLn(A,B,C);

if A>=0 then P:=P+1

else O:=O+1;

if B>=0 then P:=P+1

else O:=O+1;

if C>=0 then P:=P+1

else O:=O+1;

WriteLn('Положительных чисел ',P);

WriteLn('Отрицательных чисел ',O)

End.

Если разделять, то этот:

Var A,B,C,P,O,N:integer;

Begin

P:=0;

O:=0;

N:=0;

WriteLn('Введи три числа');

ReadLn(A,B,C);

if A=0 then N:=N+1

else

if A>0 then P:=P+1

else O:=O+1;

if B=0 then N:=N+1

else

if B>0 then P:=P+1

else O:=O+1;

if C=0 then N:=N+1

else

if C>0 then P:=P+1

else O:=O+1;

WriteLn('Положительных чисел ',P);

WriteLn('Отрицательных чисел ',O);

WriteLn('Нулей ',N)

End.

Объяснение:

Answer 2

Алгоритм для решения задачи на составление неполного ветвления может выглядеть следующим образом: 1. Ввести значения трех целых чисел А, В, С. 2. Создать переменную count и присвоить ей значение 0 (начальное количество положительных чисел). 3. Проверить, является ли число А положительным: - Если А > 0, увеличить count на 1. 4. Проверить, является ли число В положительным: - Если В > 0, увеличить count на 1. 5. Проверить, является ли число С положительным: - Если С > 0, увеличить count на 1. 6. Вывести значение переменной count - количество положительных чисел в исходном наборе. Например, если вводимые значения А, В, С равны 2, -5, 7 соответственно, то алгоритм будет работать следующим образом: 1. Ввод: А = 2, В = -5, С = 7. 2. Создание переменной count и присвоение ей значения 0. 3. Проверка числа А: 2 > 0, count = 0 + 1 = 1. 4. Проверка числа В: -5 > 0, условие не выполняется. 5. Проверка числа С: 7 > 0, count = 1 + 1 = 2. 6. Вывод: Количество положительных чисел в исходном наборе = 2. Таким образом, алгоритм находит и выводит количество положительных чисел в заданном наборе.