Робот находится на квадратном поле неизвестного размера.начальное положение робота-центр поля.Составьте алгоритм,по которому робот переместится в левый нижний угол а потом закрасит 9 клеток вдоль нижней стены
Добрый день! С удовольствием помогу вам разобраться с этим вопросом.
Итак, дано логическое выражение F = A&B V (A&B). Чтобы построить таблицу истинности этого выражения, нам необходимо рассмотреть все возможные комбинации значений переменных A и B и определить значение выражения F при каждой комбинации.
Переменные A и B могут принимать два возможных значения: истина (True) или ложь (False). Таким образом, у нас есть 4 возможные комбинации значений:
1. A = True, B = True
2. A = True, B = False
3. A = False, B = True
4. A = False, B = False
Для каждой комбинации значений A и B определим значение выражения F.
1. A = True, B = True:
F = True&True V (True&True)
= True V True
= True
2. A = True, B = False:
F = True&False V (True&False)
= False V False
= False
3. A = False, B = True:
F = False&True V (False&True)
= False V False
= False
4. A = False, B = False:
F = False&False V (False&False)
= False V False
= False
Таким образом, мы построили таблицу истинности для логического выражения F = A&B V (A&B):
| A | B | F |
|-----|-----|-----|
| True| True| True|
| True|False|False|
|False| True|False|
|False|False|False|
Надеюсь, данное пошаговое решение помогло вам понять, как построить таблицу истинности для данного логического выражения. Если у вас возникнут еще вопросы, не стесняйтесь задавать!
//Pascal var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then begin Count := Count + 1; Delete(s,i,1); end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
//FreePascal/Delphi/PascalABC.NET(v3.3.1590) {$MODE OBJFPC} //В PascalABC.NET можно убрать uses SysUtils; //В PascalABC.NET можно убрать var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do try if StrToInt(S[i]) mod 3 = 0 then begin Count := Count + 1; Delete(s,i,1); end; except end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
использовать Робот
алг
нач
цел i = 0
нц пока слева свободно
влево
кц
нц пока снизу свободно
вниз
кц
нц для i от 1 до 8
закрасить
вправо
кц
закрасить
кон