Файл: Основы программирования на языке QBasic.pdf

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 13.03.2024

Просмотров: 17

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

Пример 9. Счастливый билет или нет?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

REM Анализ "счастливого" билета

DECLARE FUNCTION LUCK (M AS LONG)

INPUT "Введите номер билета "; N&

IF LUCK(N&) = 1 THEN

  PRINT "Радуйтесь - счастливый"

ELSE

  PRINT "Нет счастья в жизни"

END IF

END

FUNCTION LUCK (M AS LONG)

REM Подсчет и сравнение сумм старших и младших цифр M

REM Если суммы совпадают, то LUCK=1

DIM A(6)

LUCK = 0

IF M < 0 OR M > 999999 THEN

   PRINT "luck : недопустимыйаргумент":   EXIT FUNCTION

END IF

FOR I = 0 TO 5

  A(I) = M MOD 10:  ' Выделение очередной цифры

  M = (M - A(I)) / 10:  ' Удаление обработанной цифры

NEXT I

IF (A(0) + A(1) + A(2) = A(3) + A(4) + A(5)) THEN LUCK = 1

END FUNCTION

Пример 10. Разложение числа на простые множители

1

2

3

4

5

6

7

8

9

10

11

12

13

14

REM Разложение числа на простые множители

CLS

K& = 2: J% = 0

INPUT "Введите целое число: ", M&: M1& = M& / 2

PRINT M&; "=";

M1:

  IF M& MOD K& = 0 THEN

     J = 1: M& = M& / K&: PRINT K&;

     IF M&<> 1 THEN PRINT "*";

  ELSE K& = K& + 1

  END IF

  IF K&<= M1& THEN GOTO M1

  IF J = 0 THEN PRINT " простое число"

END

Заключение

Подведя итог работы, сделаем некоторые выводы. Язык BASIC (расшифровывается как Beginner's All-purpose Symbolic Instruction Code. Его разработчиками выступили Джон Кимини и Томас Куртц в Дартмутском колледже. США, в середине 1960-х годов.

Язык программирования BASIC является достаточно важным в линейке языков высокого уровня и занимает среди них почетное место. С самого начала данный язык задумывали как универсальный для начинающих пользователей, даже средства программирования на BASIC до сих пор включаются в комплект поставки персональных компьютеров, — как обязательный элемент технологии.

Перечислим некоторые достоинства BASIC исходя из позиций массового пользователя):

• простота в синтаксисе;

• простота организации данных, а также самих управляющих структур;

• достаточно полный набор встроенных команд и функций, которые могут легко позволить выполнить различные операции, например - управление текстовым и графическим экраном, или же обработать символьные строки, ошибки и пр).

Среди достоинств BASIC особо следует подчеркнуть наличие возможности работы в режиме интерпретации, когда резко упрощается сам процесс отладки программ: исполнение почти каждой команды можно проверить сразу после ее написания. И ведь правда – достаточно трудно будет найти иной другой язык, программа которого (завершенная программа!) состояла бы только из единственного оператора Print «привет»


Чтобы написать и выполнить такую программу на языке С или Pascal, необходимо оформить текст, скомпилировать программу (создать объектный модуль с расширением ,OBJ); отредактировать ее (создать исполняемый модуль с расширением .ЕХЕ); выполнить программу; переключиться на выходной экран, чтобы увидеть результаты.

Правда, последние шаги выполняются довольно просто (надо нажать пару комбинаций клавиш), но суть дела не меняется.

В среде QBASIC для решения той же задачи вы можете просто набрать PRINT "Здравствуй, Мир!" и нажать {Shift+F5}.

Список использованной литературы

1. Бобровский С. Программирование на языке QBasic для школьников и студентов. - М.: ДЕСС КОМ, 2000. - 207 с.

2. Кетков Ю. Л. GW-, Turbo- и Quick Basic для IBM PC. — М.: Финансы и статистика, 1992. — 240 с.

3. Могилев А.В. Информатика. - М., 1999. - 816 с.

4. Сафронов И.К. Бейсик в задачах и примерах. - СПб.: BHV, 2001. - 215 с.

5. Семашко Г.Л. Программирование для всех. - М.: Наука, 1986. - 325 с.

6. Ставнистый Н.Н. Qbasic в математике. Решение задач с помощью компьютера. Ч1. - М.: СОЛОН-Р, 2001. - 143 с.

7. Федоренко Ю. Алгоритмы и программы на QBASIC. - СПб.: Питер, 2002. - 287 с.

8. Хомоненко А.Д. Основы современных компьютерных технологий. - СПб.: КОРОНА принт, 1998. - 448 с.

9. Чернов Б.И. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль. - М.: Просвещение, 1991. - 192 с.

  1. Чернов Б.И. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль. - М.: Просвещение, 1991. - 192 с. – С. 37.

  2. . Кетков Ю. Л. GW-, Turbo- и Quick Basic для IBM PC. — М.: Финансы и статистика, 1992. — 240 с. – С.109

  3. Хомоненко А.Д. Основы современных компьютерных технологий. - СПб.: КОРОНА принт, 1998. - 448 с. – С. 90-92

  4. Сафронов И.К. Бейсик в задачах и примерах. - СПб.: BHV, 2001. - 215 с. – С 78.

  5. Ставнистый Н.Н. Qbasic в математике. Решение задач с помощью компьютера. Ч1. - М.: СОЛОН-Р, 2001. - 143 с. – С.56.