Упр.185 ГДЗ Рабочая тетрадь Босова 8 класс 2016 (Информатика)

а) if 1 < x < 2 then begin x:=x+1; y:=0 end; else begin x:=0; y:=y+1; end If (x > 1) and (x < 2) then begin x: =x+1; y: =0 end else begin x: =0; y: =y+1 end; б) if 1 < x and x < 2 then x:=x+1; y:=0; else x:=0; y:=y+1; If (x > 1) and (x < 2) then begin x: =x+1; y: =0 end else begin x: =0; y: =y+1 end; Запишите правильный вариант и составьте блок-схему.

В обоих пунктах ошибка в записи условия и в оформлении операторов Pascal.

В языке Паскаль нельзя писать цепочку неравенств вида $$1<x<2$$. Условие нужно записывать как два сравнения, соединённые логическим and:

$$ (x>1) \land (x<2) $$

Также после then и else при нескольких операторах нужно использовать begin … end, а присваивание записывается через := без пробела внутри знака.

Правильный вариант:

if (x > 1) and (x < 2) then
begin
  x := x + 1;
  y := 0;
end
else
begin
  x := 0;
  y := y + 1;
end;

Блок-схема соответствует этому алгоритму: проверяется условие $$ (x>1) \land (x<2) $$; если оно истинно, выполняются команды $$x:=x+1$$ и $$y:=0$$, иначе — $$x:=0$$ и $$y:=y+1$$.

Ответ

а) и б) правильная запись:

if (x > 1) and (x < 2) then
begin
  x := x + 1;
  y := 0;
end
else
begin
  x := 0;
  y := y + 1;
end;