Линейный алгоритм. Графика в Бейсике.
Задача 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