В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Заполнение случайными числами:
Const N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
Randomize;
R:=0;
For i:= 1 to N do
Begin
A[i]:=random*(2*N+1)-N;
R:=R-A[i];
Write(A[i]:0:1,' ')
End;
WriteLn;
WriteLn('R = ',R);
End.
Ввод с клавиатуры:
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
R:=0;
For i:= 1 to N do
Begin
Read(A[i]);
R:=R-A[i];
End;
WriteLn('R = ',R);
End.
(¬A v B) /\ (B v ¬C)
(¬A + B) & (B + ¬C)
¬AB + ¬A¬C + BB + B¬C
¬AB + ¬A¬C + B + B¬C
(¬AB + B) + B¬C + ¬A¬C
(¬A + 1)B + B¬C + ¬A¬C
B + B¬C + ¬A¬C
B(1 + ¬C) + ¬A¬C
B + ¬A¬C
9 путей , просто берешь и считаешь . Как обяснить я хз
Машина Поста имеет шесть операций. Для удобства записи алгоритма введем следующие обозначения:
-> шаг влево;
<- шаг вправо;
V поставить отметку;
Х стереть отметку;
?a;b проверить наличие отметки. Если её нет, переход на а, иначе переход на b;
! останов
Пример записи команды:
6. V 11
Эта команда имеет номер 6. В ней проставляется отметка, после чего делается переход к команде 11.
Алгоритм "2 ИЛИ НЕ" реализует логическую функцию "ИЛИ" с отрицанием. Её значение истинно только тогда, когда оба операнда ложны.
На первом рисунке представлена блок-схема, которая составлена по современным канонам, когда операция перехода в явном виде не используется. На втором рисунке сделано упрощение за счет исключения повторяющихся фрагментов и проставлены номера команд при реализации алгоритма для машины Поста.
Сама программа имеет следующий вид:
1. ? 2 ; 7
2. -> 3
3. ? 4 ; 8
4. -> 5
5. ? 6 ; 11
6. V 11
7. -> 8
8. -> 9
9. ? 11 ; 10
10. X 11
11. !