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