Яка послідовність оцифрування звуку? Які пристрої при цьому використо- ву таке частота дискретизації? У яких олиш вують?

Создавая циклы с условием для Робота , можно использовать 10 команд проверки условий:

– 8 команд вида [слева/справа/снизу/сверху] [стена/свободно]

– 2 команды вида клетка [закрашена/чистая]

На этом занятии будем выполнять задания, в которых не известно, сколько раз надо выполнять повторяющиеся действия

Пример 1. Составьте алгоритм, закрашивающий все внутренние клетки, прилегающие к стене. Длины стен неизвестны. 

Особое внимание обратите на то, что программа должна давать верный результат при любых длинах стен. Проверять работо программы надо несколько раз, создавая различные варианты стартовых обстановок, например, при длине стены 1 клетка, при длине стены 8 клеток.

На рисунках представлены стартовая обстановка и результат.



Вариант решения:

использовать Робот

алг 

нач

нц пока слева свободно

закрасить;влево

кц

нц пока снизу свободно

закрасить;вниз

кц

нц пока снизу стена

закрасить;

Var
  x,y:integer;
  vcp,dx,dy:real;
begin
  Write('Возраст Тани='); Read(x);
  Write('Возраст Мити='); Read(y);
  vcp:=(x+y)/2;
  dx:=x-vcp; dy:=y-vcp;
  Writeln('Средний возраст равен ',vcp);
  if dx>0 then begin
    Writeln('Таня старше среднего возраста на ',dx,' лет,');
    Writeln('а Митя младше среднего возраста на ',-dy,' лет.')
  end
  else
    if dx=0 then Writeln('Таня и Митя ровесники')
    else begin
      Writeln('Таня младше среднего возраста на ',-dx,' лет,');
      Writeln('а Митя старше среднего возраста на ',dy,' лет.')
    end
end.

Тестовое решение:
Возраст Тани=15
Возраст Мити=12
Средний возраст равен 13.5
Таня старше среднего возраста на 1.5 лет,
а Митя младше среднего возраста на 1.5 лет.