powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите разобраться с прогой в QBasic
3 сообщений из 3, страница 1 из 1
Помогите разобраться с прогой в QBasic
    #33727975
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Надо написать прогу нахождения максимального числа из трех чисел, введённых с клавы.
1. Вот прога для нахождения максимального числа из двух чисел. Она нормуль работает.
10 INPUT A, B
20 M = A
30 IF M < B THEN M = B
40 PRINT M
50 END

2. А вот эта самая прога нахождения максимального числа из трех чисел, введённых с клавы.
10 INPUT A, B, C
20 LET X = A
30 LET Y = B
40 GOSUB 200
50 LET X = Z
60 LET Y = C
70 GOSUB 200
80 PRINT Z
90 STOP
200 REM Поиск максимума из двух чисел. Аргументы X,Y. Результат Z.
210 IF X > Y THEN LET Z = X ELSE LET Z = Y
220 RETURN
Но она почему-то глючит (после набора трех чисел, она возвращает в Бейсик и высвечивает строку 90 STOP). В чем ошибка?

С уважением, Евгений
...
Рейтинг: 0 / 0
Помогите разобраться с прогой в QBasic
    #33728437
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В команде STOP. Замени ее на END.
...
Рейтинг: 0 / 0
Помогите разобраться с прогой в QBasic
    #33728657
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White OwlВ команде STOP. Замени ее на END.
Спасибо большое!:):):) Все заработало!!!
Но я нашёл более оригинальный способ:
CLS
PRINT "Введите поочередно 3 числа с клавиатуры:"
INPUT a
INPUT b
INPUT c

IF a > b AND a > c THEN PRINT "наибольшее -"; a
IF b > a AND b > c THEN PRINT "наибольшее -"; b
IF c > b AND c > a THEN PRINT "наибольшее -"; c
PRINT


Еще раз спасибо!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите разобраться с прогой в QBasic
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]