Вариант 1 Самостоятельная работа 23 ГДЗ Самостоятельные и контрольные работы Босова 8 класс (Информатика)
Самостоятельная работа № 23 ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ ВАРИАНТ 1 1. Для каждой записи в левом столбце подберите соответствующее ей составное условие из правого столбца.
Ниже вариант решения задания из учебника Босова, Босова, Бондарева 8 класс, Просвещение:
Самостоятельная работа № 23
ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
ВАРИАНТ 1
1. Для каждой записи в левом столбце подберите соответствующее ей составное условие из правого столбца.
2. Квадраты при игре в крестики-нолики пронумерованы, как показано на рисунке:
1 2 3
4 5 6
7 8 9
Заданы номера трёх квадратов: N1, N2, N3, причём N1
var
N1, N2, N3: integer;
begin
write(taskВведи N1 > task);
readln(N1, N2, N3);
if(N2 - N1 = 3) and (N3 - N2 = 3)
then writeln(taskНа одной вертикалиtask)
else writeln(taskНе на одной вертикалиtask)
end.
Окно вывода:
Введи N1 > 1 5 8
Не на одной вертикали
Введи N1 > 2 5 8
На одной вертикали
Python
print(taskВведи N1 > task)
N1,N2,N3=map(int,(input().split()))
if (N2-N1==3) and (N3-N2==3):
print(taskНа одной вертикалиtask)
else:
print(taskНе на одной вертикалиtask)
Окно вывода:
Введи N1 >
2 5 8
На одной вертикали
Для издания 2025 года:
3. Дополнительное задание. На изучаемом языке программирования запишите программу преобразования исходных данных в соответствии с алгоритмом, представленным блок-схемой.
Паскаль
var
a: integer;
begin
write(taskВведи a > > task);
readln(a);
if a > = 0 then
if a = 0 then a := 18 else a := a + 1
else a := a - 6;
writeln(a);
end.
Python
a=int(input())
if a > =0:
if a==0:a=18
else: a=a+1
else: a=a-6
print(a)
Для издания 2018 года:
3. Дополнительное задание. Сколько ошибок допущено в программе?
program zadacha;
var a: integer;
begin
writein(taskВведите число atask)
readln(a);
if a > =0 then
if a=0 then a:=18 else a:=a+l;
else a:=a-6;
writein (a);
readln
end.
Найдите все ошибки и исправьте их. Опишите на естественном языке или с помощью блок-схемы алгоритм преобразования исходных данных, используемый в данной программе.
Ошибки отмечены красным цветом и комментарием
var
a: integer;
begin
write(taskВведи a > > task);
readln(a);
if a > = 0 then
if a = 0 then a := 18 else a := a + 1 //;
else a := a - 6;
writeln(a);
//readln
end.
Вводится целое число, если оно положительное или равно 0, то если оно равно 0, числу присваивается значение 18, иначе к числу прибавляется 1.
Если число отрицательное, то его значение уменьшается на 6