Логики: логическая функция : 3 даны два логических выражения: x(a,b) = a и не b или не a и b y(a,b) = a и b или b найдите логическую функцию f(x,y), такую, что если вместо x и y подставить заданные выше логические выражения, то окажется, что f(x(a,b), y(a,b)) = не a и b. если таких функций несколько – запишите любую из них. если таких функций не существует, запишите в ответ null. в ответе запишите формулу, которая может содержать логические переменные x и y и не более чем две логические операции (не, и, или). запись не должна содержать скобок. пример ввода ответа: не x и не y или не х null
Каждый компьютер имеет свой машинный язык, то есть свою совокупность машинных команд, которая отличается количеством адресов в команде, назначением информации, задаваемой в адресах, набором операций, которые может выполнить машина и др.
При программировании на машинном языке программист может держать под своим контролем каждую команду и каждую ячейку памяти, использовать все возможности имеющихся машинных операций. При этом можно составить такую компактную, маленькую программу, код которой может быть исполнен в любом самом примитивном микроконтроллере, чипе. В этом ценность программирования в кодах машины.
Но процесс написания программы на машинном языке очень трудоемкий и утомительный. Программа получается громоздкой, труднообозримой, ее трудно отлаживать, изменять и развивать.
Поэтому в случае, когда нужно иметь эффективную программу, в максимальной степени учитывающую специфику конкретного компьютера, вместо машинных языков используют близкие к ним машинно-ориентированные языки (ассемблеры).
Объяснение:
Достоинства и Недостатки сам найдешь.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-11,11); a.Println;
// 1
begin
var s:=a.Where(t->t<0);
if s.Count=0 then
Writeln('1. Нет отрицательных элементов')
else
Writeln('1. Первый отрицательный элемент номер ',
a.IndexOf(s.First)+1)
end;
// 2
begin
var s:=a.Select((v,i)->(v,i)).Where(t->(t[0]>0) and t[0].IsEven);
if s.Count=0 then
Writeln('2. Нет четных положительных элементов')
else begin
var r:=s.Last;
Writeln('2. Последний четный положительный элемент номер ',r[1]+1,
', значение ',r[0])
end
end;
// 3
begin
var s:=a.Select((v,i)->(v,i)).Where(t->t[0] mod 5=0);
if s.Count<2 then
Writeln('3. Нет двух элементов, кратных 5')
else
Writeln('3. Номер второго элемента, кратного 5, равен ',
(s.Skip(1).Take(1)).First[1]+1)
end;
// 4
begin
var s:=a.Select((v,i)->(v,i)).Where(t->t[0]=0);
if s.Count<3 then
Writeln('4. Нет трех нулевых элементов')
else begin
s:=s.Skip(1).Take(2);
Writeln('4. Количество положительных элементов между ',
'вторым и третьим нулевыми элементами равно ',
a[s.First[1]+1:s.Last[1]].Where(t->t>0).Count)
end
end;
// 5
begin
var s:=a.IndexesOf(t->t>0).Take(4).Select(t->t+1);
if s.Count<4 then
Writeln('5. Нет четырех положительных элементов')
else begin
Write('5. Номера первых четырех положительных элементов: ');
s.Println
end
end;
// 6
begin
var s:=a.IndexesOf(t->t<0);
if s.Count=0 then
Writeln('6. Нет отрицательных элементов')
else
Writeln('6. Номера первого и последнего отрицательных элементов: ',
s.First+1,' ',s.Last+1)
end;
// 7
begin
var s:=a.IndexesOf(t->t>0);
if s.Count=0 then
Writeln('7. Нет положительных элементов')
else begin
var i1:=s.First;
s:=a.IndexesOf(t->t<0);
if s.Count=0 then
Writeln('7. Нет отрицательных элементов')
else begin
var i2:=s.Last;
Writeln('7. Количество четных элементов между первым ',
'положительным и последним отрицательными элементами: ',
a?[i1+1:i2].Where(t->t.IsEven).Count)
end
end
end
end.