Ответы на вопросы (параграф 26):

2) Управляющий алгоритм в системе без обратной связи может быть исключительно линейным (последовательным- называйте, как угодно). Т.е  в алгоритме не важно состояние объекта управления. Примером из жизни может являться работа лампы  в моем (морском) аквариуме: Вкл-Выкл-Вкл-Выкл ( каждый час).

3) Совсем по-другому обстоит дело с управляющим алгоритмом при наличии обратной связи: поскольку принимается во внимание информация от объекта управления о его состоянии, возможности алгоритма расширяются. Такой алгоритм может быть циклическим (поиск нужной радиостанции); ветвящимся ( регулирование перекрестка).

4) Системами с программным управлением называют системы, в которых роль управляющего объекта выполняет непосредственно компьютер. Для функционирования системы важна как прямая, так и обратная связь, а также алгоритм на языке программирования в памяти компьютера. Если вы представляете себе, что такое автоматизированное производство, конвейер или автопилот, вы поймете, о чем я:)

5) Пусть "УЧИТЕЛЬ - КЛАСС"  - система управления. Управляющий объект здесь - учитель, объект управления - класс. Управляющее воздействие учителя - контроль дневников, выставление оценок, опросы по теме урока и все то, что контролирует деятельность учеников. Обратная связь - успеваемость и усвоение материала, которое является важным показателем для учителя.

6) Теперь пофантазируем: пусть учитель на уроке устроил опрос "по цепочке". Он рассадил детей в два ряда (по одному) и вызывает каждого по очереди то с первого, то со второго ряда к доске. Алгоритм выглядит так:
ЕСЛИ ВЫЗВАННЫЙ К ДОСКЕ УЧЕНИК ОТВЕЧАЕТ, ТО ПОСТАВИТЬ ОТМЕТКУ ЗА ОТВЕТ. ЕСЛИ НЕТ, ВЫЗВАТЬ УЧЕНИКА С ДРУГОГО РЯДА.

Задача на треугольники:

Оговариваю переменные - d,e,f

Program Triangle;

Var d,e,f: integer;

Begin

Writeln('Vvedite 3 chisla');

Readln(d,e,f);

If (d<e+f) and (e<d+f) and (f<d+e) then Writeln('F=1')

Else Writeln('F=0');

Readln;

End.

Задача на нахождение степени числа Х (произвольного):

Program Unknown;

Var x,y,l,m: integer;

Begin

Writeln('Vvedite x,y');

Readln(x,y);

m:=x;

for l:=2 to y do

x:=x*m;

Writeln('x^',y,'=',x);

Readln;

End.

Ответы на вопросы:

1) Возможно программирование полного и неполного ветвления: в первом случае с помощью "if...then" (если... то) и "else" (иначе), во втором без "else".

2) Составным оператором называется последовательность операторов, которая заключена между "Begin" и "End"- служебными словами. Составной оператор используется при нескольких последовательных операторах на одной из ветвей оператора.

№ 6 (Работа с дробями):

Program Fraction;

Var a,b,c,d,e,f:integer;

Begin

Writeln('Vvedite znachenya chislitelya i znamenatelya pervoy drobi');

Readln(a);

Readln(b);

Writeln('Vvedite znachenya chislitelya i znamenatelya vtoroy drobi');

Readln(c);

Readln(d);

e:=a*b+c*d;

f:=b*d;

Writeln(' itogovaya summa');

Writeln(e,'/',f);

Readln;

End.

№ 7 (Поиск значения Y):

Program Search;

Var x,y:integer;

Begin

Writeln('Vvedite znachenye x');

Readln(x);

y:=(1-x*x+5*x*x*x*x)*(1-x*x+5*x*x*x*x);

Writeln('y=',y);

Readln;

End.