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*.O1 ' Второй месяц
N3=N2+N2*.O1 ' Третий месяц
N4=N3+N3*.O1 ' Четвертый месяц
N5=N4+N4*.O1 ' Пятый месяц
N6=N5+N5*.O1 ' Шестой месяц
N7=N6+N6*.O1 ' Седьмой месяц
N8=N7+N7*.O1 ' Восьмой месяц
N9=N8+N8*.O1 ' Девятый месяц
N10=N9+N9*.01 ' Десятый месяц
Nll=N10+N10*.01 ' Одиннадцатый месяц
N12=N11+N11*.O1 ' Двенадцатый месяц ' Вывод результата
PRINT "Через год у меня на счету будет"; N12; "$" END
Конечно, красивее было бы решение с циклами. Когда их изучите, решите эту задачу снова.


Содержание раздела