Предмет: Информатика,
автор: Olenka9797
Составить программу в паскаль
Приложения:

Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: troveterrar
Предмет: История,
автор: KalainaangelIname
Предмет: Английский язык,
автор: vashanata
Предмет: Химия,
автор: another281
Предмет: Математика,
автор: olesyalogi