ГДЗ: Параграф §4.4 / Информатика 8 класс

Анализ выполнения оператора

Задание сформулировано не полностью, так как не приведен сам условный оператор, но согласно контексту вопроса, если в результате выполнения условного оператора переменной \( a \) присваивается значение 8, то после выполнения этой операции переменная \( a \) будет иметь значение 8.

Программа 'Дополнение до 100'

Программа должна:

• Сгенерировать случайное число \( a \) (в Паскале для этого используются функции генерации случайных чисел).
• Вычислить разницу \( d = 100 - a \).
• Запросить у пользователя ввести число, на которое, по его мнению, нужно дополнить \( a \) до 100 (например, в переменную \( user\_answer \)).
• Сравнить \( user\_answer \) с \( d \) с помощью условного оператора.

Алгоритм:

Program Task14;
var a, user_answer, d: integer;
begin
Randomize;
a := Random(100) + 1; { Генерируем число от 1 до 100 }
d := 100 - a;
Writeln('Число: ', a);
Write('Введите, на сколько его нужно дополнить до 100: ');
Readln(user_answer);
if user_answer = d then
Writeln('Верно! ', a, ' + ', user_answer, ' = 100.')
else
Writeln('Ошибка. Нужно дополнить на ', d, '.');
end.

Программа 'Автомат'

Для трёхзначного числа \( N = c_1 c_2 c_3 \):

• Первая цифра \( c_1 = N \text{ div } 100 \).
• Вторая цифра \( c_2 = (N \text{ div } 10) \text{ mod } 10 \).
• Третья цифра \( c_3 = N \text{ mod } 10 \).
• Суммы: \( S_1 = c_1 + c_2 \); \( S_2 = c_2 + c_3 \).

Алгоритм:

Program Task16;
var N, c1, c2, c3, S1, S2: integer;
begin
Write('Введите трехзначное число: ');
Readln(N);
c1 := N div 100;
c2 := (N div 10) mod 10;
c3 := N mod 10;
S1 := c1 + c2;
S2 := c2 + c3;
if S1 > S2 then
Writeln(S2 * 10 + S1) { Выводим S2S1, если S2 < S1 }
else
Writeln(S1 * 10 + S2); { Выводим S1S2, если S1 <= S2 }
end.

Программа 'Цвет полей шахматной доски'

Цвет поля определяется четностью суммы его координат: \( x+y \). Если суммы координат двух полей имеют одинаковую четность, то поля одного цвета.

• Поле 1: \( C_1 = x_1 + y_1 \).
• Поле 2: \( C_2 = x_2 + y_2 \).
• Поля одного цвета, если \( C_1 \text{ mod } 2 = C_2 \text{ mod } 2 \).

Алгоритм:

Program ChessBoardColor;
var x1, y1, x2, y2: integer;
begin
Write('Введите координаты 1-го поля (x1 y1): '); Readln(x1, y1);
Write('Введите координаты 2-го поля (x2 y2): '); Readln(x2, y2);
if (x1 + y1) mod 2 = (x2 + y2) mod 2 then
Writeln('Поля одного цвета')
else
Writeln('Поля разного цвета');
end.

Анализ программы с логической операцией or

Условие: \( (s \ge 10) \lor (t > 10) \). Вывод 'Да' происходит, если хотя бы одно из двух простых условий истинно.

Для пары (10, 5) из учебника в таблице вывод 'Да'.

Анализ вложенного ветвления

Проанализируем фрагмент:

• Если \( a < 5 \): \( c := 1 \).
• Иначе (то есть \( a \ge 5 \)): Проверяется второе условие:
• Если \( a > 5 \): \( c := 2 \).
• Иначе (то есть \( a = 5 \)): \( c := 3 \).

Применение операторных скобок

Для объединения нескольких операторов присваивания под одним условием используется составной оператор begin ... end. Для данного задания требуется объединить операторы, которые должны выполняться вместе, хотя исходный фрагмент, видимо, подразумевает последовательное выполнение четырех независимых if операторов. Если предполагается, что эти операторы были частью какого-то внешнего условного оператора, то их группировка:

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

Если же цель была вложить их: (Наиболее вероятно, что в задании ошибка и имелось в виду последовательное ветвление, которое уже было бы записано с begin/end, если бы нужно было выполнить несколько действий)

Программа 'Ближайшая точка'

Расстояние от точки \( (x, y) \) до начала координат \( (0, 0) \) равно \( \sqrt{x^2 + y^2} \). Сравнивать можно квадраты расстояний, чтобы избежать извлечения корня.

• Квадрат расстояния для 1-й точки: \( d_1^2 = x_1^2 + y_1^2 \).
• Квадрат расстояния для 2-й точки: \( d_2^2 = x_2^2 + y_2^2 \).

Алгоритм:

Program ClosestPoint;
var x1, y1, x2, y2, d1_sq, d2_sq: integer;
begin
Write('Введите координаты 1-й точки (x1 y1): '); Readln(x1, y1);
Write('Введите координаты 2-й точки (x2 y2): '); Readln(x2, y2);
d1_sq := x1*x1 + y1*y1;
d2_sq := x2*x2 + y2*y2;
if d1_sq < d2_sq then
Writeln('1-я точка ближе')
else if d2_sq < d1_sq then
Writeln('2-я точка ближе')
else
Writeln('Точки равноудалены');
end.

Программа 'Обмен значений'

Для обмена значений двух переменных необходима третья (временная) переменная \( temp \).

• Проверить условие \( x > y \).
• Если условие истинно, выполнить обмен: \( temp := x \); \( x := y \); \( y := temp \).

Алгоритм:

Program SwapIfGreater;
var x, y, temp: integer;
begin
Write('Введите x и y: '); Readln(x, y);
if x > y then
begin
temp := x;
x := y;
y := temp;
end;
Writeln('x=', x, ', y=', y);
end.

Задача 'Определение дня недели'

(Предполагается, что в задаче № 11 § 3.5 требовалось определить день недели по его номеру \( N \in [1; 7] \), где 1 — понедельник).

Программа должна использовать последовательность условных операторов или оператор case для вывода названия дня недели.

Фрагмент алгоритма с вложенным if-else:

if N = 1 then Writeln('Понедельник')
else if N = 2 then Writeln('Вторник')
else if N = 3 then Writeln('Среда')
...
else if N = 7 then Writeln('Воскресенье')
else Writeln('Некорректный номер');

Программа 'Допуск на аттракцион'

Условие допуска: \( (R \ge 140) \land (R \le 195) \), где \( R \) — рост посетителя в сантиметрах.

Алгоритм:

Program RollerCoasterAccess;
var R: integer;
begin
Write('Введите рост в см: '); Readln(R);
if (R >= 140) and (R <= 195) then
Writeln('Допуск разрешен')
else
Writeln('Допуск запрещен');
end.

Программа 'Свойства трёхзначного числа'

Для трёхзначного числа \( n = c_1 c_2 c_3 \):

• \( c_1 = n \text{ div } 100 \)
• \( c_3 = n \text{ mod } 10 \)
• \( c_2 = (n \text{ div } 10) \text{ mod } 10 \)

а) Определение «перевёртыша»: Число является «перевёртышем», если \( c_1 = c_3 \).

б) Одинаковые цифры: Среди цифр есть одинаковые, если \( (c_1 = c_2) \lor (c_2 = c_3) \lor (c_1 = c_3) \).

Алгоритм:

Program NumberProperties;
var n, c1, c2, c3: integer;
begin
Write('Введите трехзначное число: '); Readln(n);
c1 := n div 100;
c2 := (n div 10) mod 10;
c3 := n mod 10;
Writeln('--- а) Перевёртыш ---');
if c1 = c3 then
Writeln('Перевёртыш')
else
Writeln('Нет');
Writeln('--- б) Одинаковые цифры ---');
if (c1 = c2) or (c2 = c3) or (c1 = c3) then
Writeln('Да')
else
Writeln('Нет');
end.

Программа 'Тип треугольника'

1. Условие существования треугольника: Должно выполняться неравенство треугольника: \( (a + b > c) \land (a + c > b) \land (b + c > a) \).

2. Определение типа:

• Равносторонний: \( a = b = c \).
• Равнобедренный: \( (a = b) \lor (b = c) \lor (a = c) \). (При этом не равносторонний).
• Разносторонний: \( a \ne b \land b \ne c \land a \ne c \).

Алгоритм:

Program TriangleType;
var a, b, c: integer;
begin
Write('Введите длины сторон a, b, c: '); Readln(a, b, c);
if (a + b <= c) or (a + c <= b) or (b + c <= a) then
Writeln('Не существует')
else
begin
if (a = b) and (b = c) then
Writeln('Равносторонний')
else if (a = b) or (b = c) or (a = c) then
Writeln('Равнобедренный')
else
Writeln('Разносторонний');
end;
end.