Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Оператор GOTO. Оператор GOTO прост, однако не стоит им злоупотреблять





 

Оператор GOTO прост, однако не стоит им злоупотреблять. Приведём пример программы которая пишет на экран «Привет!» и спрашивает у пользователя разрешения сделать это снова. Если пользователь ответит утвердительно («Да» или «да»), то программа снова напишет на экране «Привет!»

 

Snova:´Помечаем ряд

PRINT “Привет!»

INPUT “Желаешь ещё?»; O$

IF O$=”ДА» OR O$=”да“ THEN GOTO snova

 

В данной программе пометили ряд словом Snova: После слова нужно двоеточие. Можно помечать ряды цифрами. Одинаковых цифр быть не может.

 

Рассмотрим программу, которая проверяет верность пароля. Пометим ряды цифрами.

 

10 INPUT “Введи пароль“; PAROOL$

20 IF PAROOL$=”Abrakadabra” THEN GOTO 50

30 PRINT “Пароль неверный!“

40 GOTO 10

50 PRINT “Пароль верный!“

 

Номера рядов использовались в более старых версиях Бейсика. Нумерация шла через 10, чтобы можно было вставить между ряд. В современных версиях нумерация необязательна, например предыдущую программу можно записать без нумерации следующим образом:

 

INPUT “Введи пароль“; PAROOL$

IF PAROOL$<>”Abrakadabra” THEN PRINT “Пароль неверный!

LOOP UNTIL PAROOL$=”Abrakadabra”

PRINT “Пароль верный!“

 

Приведём пример программы, которая позволяет выучить таблицу умножения.

Поскольку программа большая, её удобно запускать по- шагам, используя клавиши F8 и F4.

F8 выполняет один ряд программы.

F4 позволяет смотреть текст на экране.

 

PRINT "Эта программа позволяет выучить таблицу умножения" INPUT "Какое число умножаем?"; ARV   home:   FOR I = 1 TO 10 back: 'Это обозначение ряда PRINT ARV; "*"; I; "="; INPUT ОТVЕT '...Ждём ответа   'Если ответ неверный пишем заново условие и считаем количество неверных ответов. IF ARV * I <> VASTUS THEN PRINT "Неверно! Попробуй ещё!" Valesid = Valesid + 1 'Считаем количество неверных ответов GOTO back END IF   'Сюда попадаем, если ответ верный NEXT I     'здесь проверяется, были ли ошибки IF Valesid <> 0 THEN CLS   PRINT "Сделал ошибки. Начнём сначала."   'Обнуляем количество неверных ответов Valesid = 0 GOTO home END IF   'Сюда попадаем, если все 10 ответов были верны PRINT "Молодец!"  






Дата добавления: 2015-09-07; просмотров: 394. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


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


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

Виды и жанры театрализованных представлений   Проживание бронируется и оплачивается слушателями самостоятельно...

Что происходит при встрече с близнецовым пламенем   Если встреча с родственной душой может произойти достаточно спокойно – то встреча с близнецовым пламенем всегда подобна вспышке...

Реостаты и резисторы силовой цепи. Реостаты и резисторы силовой цепи. Резисторы и реостаты предназначены для ограничения тока в электрических цепях. В зависимости от назначения различают пусковые...

Studopedia.info - Студопедия - 2014-2025 год . (0.011 сек.) русская версия | украинская версия