Объяснение:При построении таблиц истинности есть определенная последовательность действий.
1. Определить количество строк в таблице:
· количество строк = 2n+1, где n – количество логических переменных.
2. Определить количество столбцов в таблице:
· количество столбцов = количеству логических переменных + количество логических операций.
3. Построить таблицу истинности с указанным количеством строк и столбцов, ввести названия столбцов таблицы в соответствии с последовательностью выполнения логических операций с учетом скобок и приоритетов (¬, &, V);
Const n=20; var a,b:array[1..n] of integer; i,j,k,m,c:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(51)-25; write(a[i]:5); end; writeln; j:=0; for i:=1 to n do if a[i]<0 then begin j:=j+1; b[j]:=a[i]; end; m:=j; for k := 1 to m-1 do for i := 1 to m-k do if (b[i]<b[i+1]) then begin c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c; end; writeln('Вс массив:'); for i:=1 to m do write(b[i]:5); writeln; j:=0; for i:=1 to n do if a[i]<0 then begin j:=j+1; a[i]:=b[j]; end; writeln('Полученный массив:'); for i:=1 to n do write(a[i]:5); writeln; end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) { Определения длины средней линии трапеции, если известны длины оснований трапеции. } var a,b : real;
begin readln(a,b); writeln('длина средней линии = ',(a+b)/2); end.
{ Вычисления площади трапеции, если известны ее основания и высота. } var a,b,h : real;
begin readln(a,b,h); writeln('площадь трапеции = ',(a+b)/2*h); end.
{ Вычисления расстояния между двумя точками на координатной плоскости } var x1,y1,x2,y2 : real;
begin write('Координаты 1 точки '); readln(x1,y1); write('Координаты 2 точки '); readln(x2,y2); writeln('Расстояние между точками = ',sqrt(sqr(x1-x2)+sqr(y1-y2))); end.
{ Вычисления периметра треугольника, если известны координаты его вершин } var x1,y1,x2,y2,x3,y3,a,b,c : real;
{ В углу прямоугольного двора размером a*b стоит прямоугольный дом размером c*d. Подсчитать площадь дома, свободную площадь двора и длину забора. } var a,b,c,d,sh : real;
begin write('Размеры двора '); readln(a,b); write('Размеры дома '); readln(c,d); sh:=c*d; //площадь дома writeln('площадь дома = ',sh); writeln('свободная площадь двора = ',a*b -sh); writeln('длина забора = ',(a+b)*2 -(c+d)); end.
Объяснение:При построении таблиц истинности есть определенная последовательность действий.
1. Определить количество строк в таблице:
· количество строк = 2n+1, где n – количество логических переменных.
2. Определить количество столбцов в таблице:
· количество столбцов = количеству логических переменных + количество логических операций.
3. Построить таблицу истинности с указанным количеством строк и столбцов, ввести названия столбцов таблицы в соответствии с последовательностью выполнения логических операций с учетом скобок и приоритетов (¬, &, V);
· приоритеты: ( ), ¬, &, V.
4. Заполнить столбцы входных переменных наборами значений.
5. Заполнить таблицу истинности, выполняя логические операции в соответствии с приоритетами действий.
Возьмем для примера логическое выражение: ¬(A&B)
и построим таблицу истинности для этого составного высказывания.
Количество строк: 22+1=5, количество столбцов: 2+2=4.
Далее заполняем варианты исходных высказываний А и В. Теперь заполняем другие столбцы по порядку логических операций.
А
В
A&B
¬( A&B)
0
0
0
1
0
1
0
0
1
0
0
0
1
1
1
0
Закрепление изученного материала
Разберем следующие выражения.
1) В&(АVВ)
Количество логических переменных: 2. Логических операций: 2.
Значит, строк в таблице 22+1=5, столбцов 2+2=4.
A
B
AVB
В&(АVВ)
0
0
0
0
0
1
1
1
1
0
1
0
1
1
1
1
2) А&(A˅B˅C)
Количество логических переменных: 3. Логических операций: 3
Значит, строк в таблице 23+1=9, столбцов 3+3=6.
А
В
С
A˅B
(A˅B)˅C
А&((A˅B)˅C)
0
0
0
0
0
0
0
0
1
0
1
0
0
1
0
1
1
1
0
1
1
1
1
1
1
0
0
1
1
0
1
0
1
1
1
0
1
1
0
1
1
1
1
1
1
1
1
1