Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/31: Рейтинг темы: голосов - 31, средняя оценка - 4.94
Дождинка
1

Построить таблицу истинности для логической функции

27.02.2011, 08:15. Просмотров 6353. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите пожалуста решить задачку
(обычный Паскаль)

Построить таблицу истинности для логической функции:

F(A,B,C)=не A & (B v C)

что не правильно у меня в решении?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program boolean;
Var a,b,c: integer;
e: boolean;
Begin
Writeln('введите число');
readln(a);
Writeln('введите число');
readln(b);
Writeln('введите число');
readln (c);
          If (not a)  or (b and c) then
             begin
                  e:=true;
                  writeln(e);
             end
          else
writeln(d);
Readln;
End.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2011, 08:15
Ответы с готовыми решениями:

Проверка программы построения таблицы истинности логической функции F
Помогите пожалуйста в таблице истинности сама не могу разобраться заказа, сделали, но мне кажется...

Построить таблицу истинности, используя 0 и 1
построить таблицу истинности,используя 0 и 1 (X\vee Y\rightarrow X\vee Z)\rightarrow...

Построить таблицу истинности по логическому выражению
Условие: дано логическое выражение (A+B)->(A*A)+(!D*R)->(!B*!B)+A. Упростить его и вывести его...

Построить таблицу истинности для логической функции
построить таблицу истинности для логической функции A+ВС->AB Только черточка наверху... Заранее...

1
332 / 306 / 155
Регистрация: 14.02.2010
Сообщений: 662
27.02.2011, 14:13 2
У вас a,b,c: integer; и Вы их сравниваете в лог функции, еще условие должно быть (not a) and (b or c)
Ну, даже если б Вы огласили a,b,c: boolean; Вы б не смогли значения их вводить с клавиатуры
Примерно так должна была б выглядеть ваша программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var a,b,c: boolean;
    e: boolean;
Begin
a:=false;
b:=true;
c:=false;
 
e:=false;
If (not a)  and  (b or c) then
  begin
   e:=true;
  end;
writeln(e);
Readln;
End.
И ее улучшенная версия
Я так понял не A - https://www.cyberforum.ru/cgi-bin/latex.cgi?\bar{A}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var a,b,c:boolean;
 
function F(a,b,c:boolean):boolean;
begin
 F:= (not a) and (b or c);
end;
 
procedure writ(a,b,c,F:boolean);
begin
writeln('A= ',a:5,' B= ',b:5,' C= ',c:5,' F= ',F);
end;
 
begin
 a:=true; b:=true; c:=true;
 writ(a,b,c,F(a,b,c));
 a:=false; b:=true; c:=true;
 writ(a,b,c,F(a,b,c));
 a:=true; b:=false; c:=true;
 writ(a,b,c,F(a,b,c));
 a:=true; b:=true; c:=false;
 writ(a,b,c,F(a,b,c));
 a:=false; b:=false; c:=true;
 writ(a,b,c,F(a,b,c));
 a:=false; b:=true; c:=false;
 writ(a,b,c,F(a,b,c));
 a:=true; b:=false; c:=false;
 writ(a,b,c,F(a,b,c));
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2011, 14:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Напечатать таблицу истинности для логической функции
Напечатать таблицу истинности для логической функции. (A<>B<>C)↑neA. Где ↑ дизъюнкция.

Построить таблицу истинности
Построить таблицу истинности для данного выражения: \bar{X_1}\cdot X_2\cdot X_3\cdot X_4

Написать программу которая выводит таблицу истинности для логической операции
Напишите программу которая выводит таблицу истинности для логических операций задаваемой...

Написать программу для построения таблицы истинности логической функции
Написать программу для построения таблицы истинности логической функции F - ABC Pascal Нужно,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.