Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.09.2018 00:25
- Информатика
- remove_red_eye 14138
- thumb_up 24
Ответы и объяснения 1
function toBool(a: integer): boolean;
begin
toBool := a > 0;
end;
var
a, b, ans: boolean;
i, j: word;
begin
writeln('Таблица истинности - true', #13, 'Вычисление значения функции - false');
readln(ans);
case (ans) of
true:
begin
writeln();
writeln('a':4, 'b':7, 'not a':10, 'not b':7, 'f':5);
for i := 0 to 1 do
for j := 0 to 1 do
writeln(toBool(i):6, '|', toBool(j):6, '||', not toBool(i):6, '|', not toBool(j):6, '|', (not toBool(i) or not toBool(j)):6);
end;
false:
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
writeln('f = ', not a or not b);
end;
end;
end.
- 26.09.2018 16:59
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.