Файл: Основы программирования на языке QBasic (История появления языка BASIC).pdf
Добавлен: 03.07.2023
Просмотров: 49
Скачиваний: 2
Пример 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 «привет»