вторник, 19 мая 2015 г.

Ответы на вопросы (параграф 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.