Как Петя Бейсиков Тоню Соображалкину программировать учил

ПРОГРАММА РЕШЕНИЯ САМОГО ПРОСТОГО УРАВНЕНИЯ

— Чтобы решить такое уравнение, институты кончать не надо.

— Не надо. Единственное, надо помнить, что проверяется равенство А нулю. Если равно, то проверяем значение В, и только в случае, если и это значение тоже равно нулю, уравнение будет иметь решение, даже бесконечно много решений. Если же В нулю не равно, то все — решения нет. Ведь что бы ни умножать на нуль, результат не может быть отличным от нуля.

— Да, приятно вспомнить молодость, когда это все казалось непостижимой премудростью.

— Программа составлена по такой простой блок-схеме:

Контрольную всегда начинай с блок-схемы

А сама программа выглядит так:

10 PRINT “ПРОГРАММА РЕШАЕТ УРАВНЕНИЕ А*Х=В"

20 REM ПЕРЕМЕННАЯ А-КОЭФФ. А; В-КОЭФФ. В

30 PRINT PRINT "ВВЕДИТЕ КОЭФФИЦИЕНТ А";

40 INPUT А

50 PRINT "ВВЕДИТЕ КОЭФФИЦИЕНТ В"; INPUT В

55

60 REM ПОСЛЕ ВВОДА А И Б СРАВНИВАЕМ А С 0

70 RЕМ ЕСЛИ А=0, ТО ВЫВОДИМ РЕЗУЛЬТАТ

80 RЕМ В ЗАВИСИМОСТИ ОТ ТОГО B=0 ИЛИ НЕТ

90 IF А<>0 THEN 150

100 IF B<>0 THEN 130

110 PRINT "ОТВЕТ: X ПРОИЗВОЛЬНОЕ ЧИСЛО"

120 60 ТО 160

130 PRINT "ОТВЕТ: РЕШЕНИЯ НЕТ"

140 60 ТО 160

150 PRINT "ОТВЕТ: Х=";В/А

155

160 PRINT PRINT "КОНЕЦ РАБОТЫ — ВВЕДИТЕ 0"

170 INPUT К

180 IF К<>0 THEN 30

190 STOP

200 END

Смотри, в блок-схеме я у каждого блока приписал номер строки, с которой начинается выполнение этого блока в программе.

— Ну что ж. Начинаем изучать твою программу. В первой строке я ничего особенного не вижу. Выводится на экран сообщение, и все дела. А вот вторая строка начинается странно…