Первая картинка: Необходимо провести Робота по лабиринту из начального положения (◊) в точку A Вторая картинка:Составьте программу закрашивания клеток поля, отмеченных звездочкой. Начальное положение Робота где-то в центре поля.
Код написан на Pascal, как и просили. Все ваши условия приняты во внимание. (Также прикрепил скриншот с кодом и выводом компилятора, вдруг понадобится) Держите:
Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.
Код написан на Pascal, как и просили. Все ваши условия приняты во внимание. (Также прикрепил скриншот с кодом и выводом компилятора, вдруг понадобится) Держите:
uses crt;
var str_row,unicode_row: string;
i,r_num: integer;
function len_str_row (str_row: string): integer;
begin
len_str_row:= length(str_row);
end;
begin
str_row:= '';
unicode_row:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!"#$%&()*+,-./:;<=>[email protected][\]^_`{|}~';
randomize;
for i:= 1 to random(80) do
begin
r_num:= random(length(unicode_row));
str_row:= str_row + copy(unicode_row, r_num, 1);
end;
writeln('Random string - ',str_row);
writeln('The length of this line - ',len_str_row(str_row));
end.