1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
a, b: real;
begin
a := 26 mod 11;
b := 3;
b := 6 + a * b;
a := b / 3 * a;
writeln(a);
end.
выдает 24
2) 52
Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
ПочитайЛогическая функция - это функция, в которой переменные принимают только два значения:логическая единица или логический ноль. Истинность или ложность сложных суждений представляет собой функцию истинности или ложности простых. Эту функцию называют булевой функцией суждений f (a, b).Любая логическая функция может быть задана с помощью таблицы истинности, в левой части которой записывается набор аргументов, а в правой части - соответствующие значения логической функции. При построении таблицы истинности необходимо учитывать порядок выполнения логических операций.Порядок выполнения логических операций в сложном логическом выражении:<span>инверсия;конъюнкция;дизъюнкция;импликация;эквивалентность.</span><span>Для изменения указанного порядка выполнения операций используются скобки.Алгоритм построения таблиц истинности для сложных выражений:<span>Определить количество строк:<span>количество строк = 2n + строка для заголовка,</span><span>n - количество простых высказываний.</span>Определить количество столбцов:<span>количество столбцов = количество переменных + количество логических операций;</span>
определить количество переменных (простых выражений);определить количество логических операций и последовательность их выполнения.Заполнить столбцы результатами выполнения логических операций в обозначенной последовательности с учетом таблиц истинности основных логических операций.</span><span><span>Пример: Составить таблицу истинности логического выражения:</span><span>D = ¬ А & (B Ú C).</span><span><u>Решение:</u> Ù</span>Определить количество строк:<span>на входе три простых высказывания: А, В, С поэтому n=3 и количество строк = 23 +1 = 9.</span>Определить количество столбцов:простые выражения (переменные): А, В, С;промежуточные результаты (логические операции):
¬ А - инверсия (обозначим через E);
B Ú C - операция дизъюнкции (обозначим через F);
а также искомое окончательное значение арифметического выражения:
D = ¬ А & (B Ú C). т.е. D = E & F - это операция конъюнкции.Заполнить столбцы с учетом таблиц истинности логических операций.<span><span>AB CE<span>F</span>E & F</span><span> 0 0 0 1 0 0</span><span> 0 0 1 1 1 1</span><span> 0 1 0 1 1 1</span><span> 0 1 1 1 1 1</span><span> 1 0 0 0 0 0</span><span> 1 0 1 0 1 0</span><span> 1 1 0 0 1 0</span><span> 1 1 1 0 1 0</span></span>
Построение логической функции по ее таблице истинности:<span>Попробуем решить обратную задачу. Пусть дана таблица истинности для некоторой логической функции
Z(X,Y):</span><span><span> X Y Z</span><span> 0 0 1</span><span> 0 1 0</span><span> 1 0 1</span><span> 1 1 0</span></span>Составить логическую функцию для заданной таблицы истинности.Правила построения логической функции по ее таблице истинности:Выделить в таблице истинности те строки, в которых значение функции равно 1.Выписать искомую формулу в виде дизъюнкции нескольких логических элементов. Число этих элементов равно числу выделенных строк.Каждый логический элемент в этой дизъюнкции записать в виде конъюнкции аргументов функции.Если значение какого-либо аргумента функции в соответствующей строке таблице равно 0, то этот аргумент взять с отрицанием.<u>Решение.</u>В первой и третьей строках таблицы истинности значение функции равно 1.Так как строки две, получаем дизъюнкцию двух элементов: ( ) V ( ).Каждый логический элемент в этой дизъюнкции запишим в виде конъюнкции аргументов функции X и Y: (X & Y) V (X & Y).Берем аргумент с отрицанием если его значение в соответствующей строке таблицы равно 0 и получаем искомую функцию:
Z (X, Y) =(¬ X & ¬Y) V (X & ¬Y).
</span></span>
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
var
a, b, c, k : integer;
begin
read (a, b, c, k);
if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')
else begin
if a mod k = 0 then writeln ('Числа a');
if b mod k = 0 then writeln ('Числа b');
if c mod k = 0 then writeln ('Числа c');
end;
end.