Иллюстрированный самоучитель по Basic, вводный курс

Решения

  • Арифметика в Бейсике. Оператор присваивания. Выводим результаты.

    Задача 5 | 10* (25+11)^.5 | Задача 6 | 1/(2+3/(4+5/ (6+7/8))) | Задача 12 | 4 | Задача 19 | 1 | Задача 20 | 0 | Оператор присваивания | Задача 23 | Нет. Нет знака равенства. | Задача 28 | Да. | Задача 29 | Нет. Переменные связаны двумя знаками равенства. | Задача 30 | Нет. Слева от знака равенства стоит арифметическое выражение.
  • Стандартные функции Бейсика. Вывод данных в заданном месте экрана. Вводим данные. Операторы DATA и READ.

    Задача 59 | (Х"7+7^Х)"(1/7) | Задача 60 | (A+SIN (В^2) Л3) / (COS (25) +ABS (I/TAN (60))) | Вывод данных в заданном месте экрана | Задача 67 | CLS | LOCATE 10, 35:?"СУММА КУБОВ" | LOCATE 12, 38:? 2"3+3Л3+4"3+5"3 | Задача 68 | CLS | LOCATE 11, 35:? " °**+*" | LOCATE 12, 35:? "^СЕРЕДИНА*" | LOCATE 13, 35:?
  • Линейный алгоритм. Графика в Бейсике.

    Задача 76 | 1 Полет к ближайшей звезде CLS | ' Длина светового года S = 3*10π5*365*24*60*60 9 Количество секунд полета NSEC = S/100 | ' Количество часов полета NHOUR = NSEC/3600 | ' Количество суток полета NDAYS = NHOUR/24 | ' Количество лет полета NYEARS = NDAYS/365 | ' Вывод результата LOCATE 25, 12 | ?"С такой скоростью звездолет долетит до звезды за"; NYEARS;
  • Разветвляющийся алгоритм. Условный переход.

    Задача 111 | 1 Бегущий узор 1: PRINT "***" PRINT " °** | PRINT " *н | PRINT " *" | PRINT " *" | PRINT " °**" | PRINT "***" | GOTO 1 | END | Условный переход | Задача 117 | 1 Чет-нечет | CLS | INPUT "Введите целое число"; N | IF N MOD 2=0 THEN LOCATE 12, 35: PRINT "Это число четное" | ELSE LOCATE 12, 35: PRINT "Это число нечетное" | END | Задача 120 | Переменная X примет следующие значения: | х=1 | Х=2
  • Циклический алгоритм

  • Символы и строки

    Задача 222 | 1 Шифровка | CLS | ' Запрос количества букв в шифруемом слове | INPUT "Сколько букв в слове"; N | 1 Объявление массива для зашифрованного слова | DIM D$ (N) | FOR 1=1 TO N | ' Побуквенный запрос исходного слова | PRINT "Введите"; I; "букву";
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.