Исполнитель робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки. между соседними (по сторонам) клетками может стоять стена, через которую робот пройти не может. у робота есть девять команд. четыре команды — это команды-приказы: вверх вниз влево вправопри выполнении любой из этих команд робот перемещается на одну клетку соответственно: вверх ↑ вниз ↓, влево ← , вправо →. если робот получит команду передвижения сквозь стену, то он разрушится. также у робота есть команда закрасить, при которой закрашивается клетка, в которой робот находится в настоящий момент.ещё четыре команды — это команды проверки условий. эти команды проверяют, свободен ли путь для робота в каждом из четырёх возможных направлений: сверху свободно снизу свободно слева свободно справа свободноэти команды можно использовать вместе с условием «если», имеющим следующий вид: если условие топоследовательность командвсездесь условие — одна из команд проверки условия. последовательность команд — это одна или несколько любых команд-приказов. например, для передвижения на одну клетку вправо, если справа нет стенки, и закрашивания клетки можно использовать такой алгоритм: если справа свободно товправозакраситьвсев одном условии можно использовать несколько команд проверки условий, применяя логические связки и, или, не, например: если (справа свободно) и (не снизу свободно) товправовседля повторения последовательности команд можно использовать цикл «пока», имеющий следующий вид: нц пока условиепоследовательность командкцнапример, для движения вправо, пока это возможно, можно использовать следующий алгоритм: нц пока справа свободновправокцрешение
Ответы
Var s: string; m,pk: real; a: array[1..20] of real; i,k,n: integer; begin write('введите число в системе счисления с основанием [2; 16]: '); readln(s); n: =length(s); for i: =1 to n do begin if s[i] in ['0'..'9'] then a[i]: =ord(s[i])-ord('0') else if s[i] in ['a'..'f'] then a[i]: =ord(s[i])-ord('a')+10 else if s[i] in ['a'..'f'] then a[i]: =ord(s[i])-ord('a')+10 else begin writeln('символ ',s[i],' недопустим! '); exit end end; write('введите основание системы счисления: '); read(k); if (k< 2) or (k> 16) then begin writeln('такое значение недопустимо! '); exit end; m: =a[n]; pk: =k; for i: =n-1 downto 1 do begin m: =m+a[i]*pk; pk: =pk*k end; writeln('десятичный эквивалент введенного числа равен ',m) end. тестовое решение введите число в системе счисления с основанием [2; 16]: 4e32ca введите основание системы счисления: 16 десятичный эквивалент введенного числа равен 5124810
Var s, s2: string; function one(s: string): integer; var i, c: integer; begin c : = 0; for i : = 1 to length(s) do if (s[i] = '1') then c : = c + 1; result : = c; end; begin writeln('введите первое число: '); readln(s); writeln('введите второе число: '); readln(s2); if(one(s) > one(s2)) then write('в первом числе больше единиц') else write('во втором числе больше единиц'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Было 11 яблок. после того, как каждое яблоко разрезали пополам, стало 110 половинок. возможно ли это? обоснуйте свой ответ.
Автор: DodokhodzhaevVladimirovich
Запиши математическое выражение (10+z)2 на языке Паскаль
Автор: d892644813661946
