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

Линейный алгоритм. Графика в Бейсике.

Задача 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;
"лет"
END

Задача 80

Информационный объем книги
CLS
1 Количество символов в книге
N = 450*60*80
' Перевод в Мегабайты
М = N/1024/1024
' Количество дискет
DISCS = INT(M/1.44)+1
' Вывод результата
?"Для записи книги понадобится"; DISCS; "дискет"
END

Задача 85

1 Деньги в банке
CLS
М=22000
N1=M+M*.01 ' Первый месяц
N2=N1+N1*.01 ' Второй месяц
N3=N2+N2*.01 ' Третий месяц
N4=N3+N3*.01 ' Четвертый месяц
N5=N4+N4*.01 ' Пятый месяц
N6=N5+N5*.01 ' Шестой месяц
N7=N6+N6*.01 ' Седьмой месяц
N8=N7+N7*.01 ' Восьмой месяц
N9=N8+N8*.01 ' Девятый месяц
N10=N9+N9*.01 ' Десятый месяц
Nll=N10+N10*.01 ' Одиннадцатый месяц
N12=N11+N11*.01 ' Двенадцатый месяц ' Вывод результата
PRINT "Через год у меня на счету будет"; N12; "$" END

Конечно, красивее было бы решение с циклами. Когда их изучите, решите эту задачу снова.

Графика в Бейсике

Задача 90

' Российский флаг
CLS
SCREEN 9
' Белая полоса
LINE (100, 50)-(500, 130), 15, BF
' Синяя полоса
LINE (100, 130)-(500, 210), 1, BF
' Красная полоса
LINE (100, 210)-(500, 290), 4, BF
END

Задача 97

' Летающая тарелка
SCREEN 9
' Основа тарелки
CIRCLE (320, 175), 200, 2,,,.3
1 Рубка
CIRCLE (320, 70), 100, 2,,,.2
LINE (198, 125)-(220, 70), 2
LINE (420, 70)-(440, 125), 2
' Иллюминаторы
CIRCLE (150, 175), 10, 4
CIRCLE (490, 175), 10, 4
CIRCLE (200, 200), 10, 4
CIRCLE (440, 200), 10, 4
CIRCLE (320, 220), 10, 4
1 Ноги
LINE (320, 235)-(320, 280), 2
LINE (197, 223)-(165, 310), 2
LINE (443, 223)-(475, 310), 2
END

Задача 101

1 Гистерезис
SCREEN 9
' Горизонтальные составляющие
LINE (300, 126)-(500, 126), 13 #
LINE (100, 274)-(300, 274), 13
' Левая верхняя четверть дуги
CIRCLE (300, 200), 100, 13, 1.57, 3.14
' Левая нижняя четверть дуги
CIRCLE (100, 200), 100, 13, 4.71, 0
' Правая верхняя четверть дуги
CIRCLE (500, 200), 100, 13, 1.57, 3.14
1 Правая нижняя четверть дуги
CIRCLE (300, 200), 100, 13, 4.71, 0
1 Закраска
PAINT (300, 200), 14, 13
END

Задача 109

' Елочка
SCREEN 9
PRESET (320, 300)
DRAW "С2 L60 Е26 L25 Е26 L25 Е55 F55 L25 F26 L25 F26 L60"
' Закраска
PAINT (320, 250), 2
' Ствол
LINE (300, 300)-(340, 340), 6, BF
END
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.