1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
ПочитайЛогическая функция - это функция, в которой переменные принимают только два значения:логическая единица или логический ноль. Истинность или ложность сложных суждений представляет собой функцию истинности или ложности простых. Эту функцию называют булевой функцией суждений 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>
Они злоумышленники. Их цель навредить человеку или какой нибудь компании,нанеся им материальные убытки в виде поломанной техники или обесценивания товара
Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.