<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin var y:=Range(2,36,2).Select(i->i*i).ToArray; y.Println end.
<u>Результат</u>
4 16 36 64 100 144 196 256 324 400 484 576 676 784 900 1024 1156 1296
Const nx=30;mx=30;
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;<span>end.</span>
<span>Те́кстовый файл — компьютерный файл, содержащий текстовые данные. Текстовым файлам противопоставляются двоичные файлы, в которых содержатся данные, не рассчитанные на интерпретацию в качестве текстовых.</span>
ПочитайЛогическая функция - это функция, в которой переменные принимают только два значения:логическая единица или логический ноль. Истинность или ложность сложных суждений представляет собой функцию истинности или ложности простых. Эту функцию называют булевой функцией суждений f (a, b).Любая логическая функция может быть задана с помощью таблицы истинности, в левой части которой записывается набор аргументов, а в правой части - соответствующие значения логической функции. При построении таблицы истинности необходимо учитывать порядок выполнения логических операций.Порядок выполнения логических операций в сложном логическом выражении:<span>инверсия;конъюнкция;дизъюнкция;импликация;эквивалентность.</span><span>Для изменения указанного порядка выполнения операций используются скобки.Алгоритм построения таблиц истинности для сложных выражений:<span>Определить количество строк:<span>количество строк = 2n + строка для заголовка,</span><span>n - количество простых высказываний.</span>Определить количество столбцов:<span>количество столбцов = количество переменных + количество логических операций;</span>
определить количество переменных (простых выражений);определить количество логических операций и последовательность их выполнения.Заполнить столбцы результатами выполнения логических операций в обозначенной последовательности с учетом таблиц истинности основных логических операций.</span><span><span>Пример: Составить таблицу истинности логического выражения:</span><span>D = ¬ А & (B Ú C).</span><span><u>Решение:</u> Ù</span>Определить количество строк:<span>на входе три простых высказывания: А, В, С поэтому n=3 и количество строк = 23 +1 = 9.</span>Определить количество столбцов:простые выражения (переменные): А, В, С;промежуточные результаты (логические операции):
¬ А - инверсия (обозначим через E);
B Ú C - операция дизъюнкции (обозначим через F);
а также искомое окончательное значение арифметического выражения:
D = ¬ А & (B Ú C). т.е. D = E & F - это операция конъюнкции.Заполнить столбцы с учетом таблиц истинности логических операций.<span><span>AB CE<span>F</span>E & F</span><span> 0 0 0 1 0 0</span><span> 0 0 1 1 1 1</span><span> 0 1 0 1 1 1</span><span> 0 1 1 1 1 1</span><span> 1 0 0 0 0 0</span><span> 1 0 1 0 1 0</span><span> 1 1 0 0 1 0</span><span> 1 1 1 0 1 0</span></span>
Построение логической функции по ее таблице истинности:<span>Попробуем решить обратную задачу. Пусть дана таблица истинности для некоторой логической функции
Z(X,Y):</span><span><span> X Y Z</span><span> 0 0 1</span><span> 0 1 0</span><span> 1 0 1</span><span> 1 1 0</span></span>Составить логическую функцию для заданной таблицы истинности.Правила построения логической функции по ее таблице истинности:Выделить в таблице истинности те строки, в которых значение функции равно 1.Выписать искомую формулу в виде дизъюнкции нескольких логических элементов. Число этих элементов равно числу выделенных строк.Каждый логический элемент в этой дизъюнкции записать в виде конъюнкции аргументов функции.Если значение какого-либо аргумента функции в соответствующей строке таблице равно 0, то этот аргумент взять с отрицанием.<u>Решение.</u>В первой и третьей строках таблицы истинности значение функции равно 1.Так как строки две, получаем дизъюнкцию двух элементов: ( ) V ( ).Каждый логический элемент в этой дизъюнкции запишим в виде конъюнкции аргументов функции X и Y: (X & Y) V (X & Y).Берем аргумент с отрицанием если его значение в соответствующей строке таблицы равно 0 и получаем искомую функцию:
Z (X, Y) =(¬ X & ¬Y) V (X & ¬Y).
</span></span>
Program formula
var
x,y,z:integer;
begin
t:=0.5;
z:=6;
y:=t+2*z;
x:=(3*(y*y))/(4*z-2*(t*t));
writeln (x);
end.