1. Ознакомьтесь с материалами презентации к параграфу, содержащейся B электронном приложении к учебнику. Используйте эти материалы при подготовке ответов на вопросы и выполнении заданий. 2. Как на языке Паскаль записывается полное и неполное ветвление? 3. Является ли условным оператором следующая последовательность символов? a) if x<y then x:=0 else read (y) 6) if x>=y then x:=0; y:=0 else write (z) B) if x<y<z then a:=a+1 4. Что такое составной оператор? Для чего он используется в условном операторе? 5. Используя составной оператор, упростите следующий фрагмент программы: if a>b then c:=1; if a>b then d:=2; if a<=b then c:=3; if a<=b then d:=4 6. Дано натуральное трёхзначное число. Напишите программу,

1.

Этот вопрос требует ознакомления с материалами презентации к параграфу в электронном приложении к учебнику. Без доступа к этим материалам невозможно дать конкретный ответ. Пожалуйста, обратитесь к указанным материалам для выполнения задания.

2.

В языке Паскаль полное и неполное ветвление записываются следующим образом:

• Полное ветвление:

if условие then
  оператор1
else
  оператор2;

Здесь, если условие истинно, выполняется оператор1, иначе выполняется оператор2.

• Неполное ветвление:

if условие then
  оператор;

Здесь, если условие истинно, выполняется оператор, иначе ничего не происходит.

3.

Рассмотрим каждую последовательность символов:

• a) if x - Является условным оператором, так как содержит условие (x), действие при истинности условия (x:=0) и действие при ложности условия (read (y)).
• б) if x>=y then x:=0; y:=0 else write (z) - Не является условным оператором, так как x:=0; y:=0 не является синтаксически корректным блоком then, требуется begin x:=0; y:=0 end
• в) if x - Не является условным оператором, так как в языке Паскаль нельзя записывать двойные неравенства в условном операторе. Необходимо использовать логические операции (например, (x).

if условие then
begin
 оператор1;
 оператор2;
 ...
end
else
begin
 оператор3;
 оператор4;
 ...
end;

if a > b then
begin
 c := 1;
 d := 2;
end
else
begin
 c := 3;
 d := 4;
end;