<span>В блок-схеме условие ветвления изображается в ромбе, из которого выходят две стрелки:
«Да» - указывает на команды, которые будут выполняться, если условие соблюдено;
«Нет» - указывает </span>на команды, которые будут выполняться, если условие не соблюдено.
И началась слепая вайна между памятью и процом.проц соображал но забывал свои ходы. а память смотрела и запоминала врага. я думаю проц.
var
a, b, c: real;
procedure Traingle(a, b, c: real); {Процедура с входными параметрами - размерами сторон}
begin
if (a = b) or (a = c) or (b = c) then writeln('Истинно') {Если хотя бы две из трех сторон равны, то треугольник равнобедренный}
else writeln('Ложно');
end;
begin
writeln('Введите стороны треугольника a, b, c');
readln(a, b, c);
Traingle(a, b, c);
end.
Таблица истинности для импликации выглядит так:
A | B | A->B
0 | 0 | 1
0 | 1 | 1
1 | 0 | 0
1 | 1 | 1
Таблица истинности для эквивалентности выглядит так:
A | B | A->B
0 | 0 | 1
0 | 1 | 0
1 | 0 | 0
1 | 1 | 1
Теперь составляем нужную нам таблицу истинности.
A = 216 = 128 + 64 + 16 + 8 = 11011000
B = 30 = 16 + 8 + 4 + 2 = 00011110
C = 170 = 128 + 32 + 8 + 2 = 10101010
A | B | C | ~(A->B) | ~(C->A) | B<->~(C->A) | f
1 | 0 | 1 | 1 | 0 | 1 | 1
1 | 0 | 0 | 1 | 0 | 1 | 1
0 | 0 | 1 | 0 | 1 | 0 | 0
1 | 1 | 0 | 0 | 0 | 0 | 0
1 | 1 | 1 | 0 | 0 | 0 | 0
0 | 1 | 0 | 0 | 0 | 0 | 0
0 | 1 | 1 | 0 | 1 | 1 | 0
0 | 0 | 0 | 0 | 0 | 1 | 0
f = 11000000(2) = 128 + 64 = 192
Строим таблицу истинности (вложение 1) и затем проводим решение путем сравнения таблиц (вложение 2).
Уточнение к шагу 4. Только одна комбинация из двух единичных аргументов, один из которых В, колонка которого уже известна.