Сөзжұмбақ №1 Сұрақтары:
Көлдененіңен:
2
1 Деректер жинағы.
2. Жаңа ғасырдың озық пәні,
3. Монитор экранындағы ең кіші
NOMONT
2
4. Нүктелер мен сызықтардан
түратын олinne
5. Компьютердің миы.
Тігінок:
1
1 Лейбництің механикалық санау
машинасы
2. Ақпарат шығару құрылғысы.
3. Ақпараттың ең кіші өлшем бірлігі.
4. Ақпаратты компьютер экранына
шығару құрылғысы.
5. Компьютерге дейін қолданылған
ақпаратты кодтайтыбетата
на предыдущих уроках мы установили среду кумир, настроили ее для дальнейшей работы и научились задавать стартовую обстановку робота. теперь перейдем непосредственно к составлению алгоритмов для робота с использованием простых команд.
если вам больше нравится информация в формате видеоуроков, то на сайте есть видеоурок робот. простые команды.
у любого исполнителя должна быть система команд (ски — система команд исполнителя). система команд исполнителя — совокупность всех команд, которые может выполнить исполнитель. в качестве примера рассмотрим дрессированную собаку. она умеет выполнять некоторые команды — «сидеть», «лежать», «рядом» и т. п. это и есть ее система команд.
простые команды робота
у нашего робота тоже есть система команд. сегодня мы рассмотрим простые команды робота. всего их 5:
вверх
вниз
влево
вправо
закрасить
результат выполнения этих команд понятен из их названия:
вверх — переместить робота на одну клетку вверх
вниз — переместить робота на одну клетку вниз
влево — переместить робота на одну клетку влево
вправо — переместить робота на одну клетку вправо
закрасить — закрасить текущую клетку (клетку в которой находится робот).
эти команды можно писать с клавиатуры, а можно использовать горячие клавиши (нажав их команды будут вставляться автоматически):
вверх — escape, up (стрелка вверх)
вниз — escape, down (стрелка вниз)
влево — escape, left (стрелка влево)
вправо — escape, right (стрелка вправо)
закрасить — escape, space (пробел)
незнаю правильно или нет,если нет то сорян.
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.