Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Ответ:
1.
uses Robot;
begin
Task('w3');
while wallfromdown do right
end.
2.
uses Robot;
begin
Task('w8');
while wallfromdown do right;
left;
while wallfromdown do
begin
paint;
left
end
end.
Язык на котором реализовать требуется?
Ответ:
F = X ∨ ¬Y
Объяснение:
F = X v ¬(X -> Y) & ¬(Z) & ¬(Y) v ¬(Y & ¬(X & Z))
Заменим знаки операций более привычными и тогда будет проще.
F = X + ¬(X -> Y) * ¬Z * ¬Y + ¬(Y * ¬(X * Z))
Операцию импликации замени эквивалентом
F = X + (¬X + Y) * ¬Z * ¬Y + ¬(Y * ¬(X * Z))
Выражение (¬X + Y) * ¬Z * ¬Y равно ¬X * ¬Y * ¬Z из-за Y * ¬Y = 0.
К выражению ¬(Y * ¬(X * Z)) применим правило де-Моргана:
¬Y + X*Z. Получаем
F = X + ¬X * ¬Y * ¬Z + ¬Y + X*Z;
X + X * Z = X(1 + Z) = X, тогда
F = X + ¬Y * (¬X * ¬Z + 1) = Х + ¬Y, или в прежних обозначениях
F = X ∨ ¬Y