Basic вводный курс

где можно сделать ставки на спорт - сайты букмекеров. |

Решения


Глава 5. Решения
Глава 5. Решения Арифметика в Бейсике Оператор присваивания Выводим результаты Стандартные функции Бейсика Вывод данных в заданном месте экрана Вводим данные Операто...
Арифметика в Бейсике
Арифметика в Бейсике...
Задача 5
10* (25+11)^.5...
Задача 6
1/(2+3/(4+5/ (6+7/8)))...
Задача 12
4...
Задача 19
1...
Задача 20
0  ...
Разветвляющийся алгоритм
Разветвляющийся алгоритм...
Задача 111
1 Бегущий узор 1 : PRINT "***" PRINT " ******* PRINT " *н PRINT " *" PRINT " *" PRINT " *******" PRINT "***" GOTO 1 END &nbs...
Условный переход
Условный переход...
Задача 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 Х=0...
Задача 123
S=6...
Задача 135
Старояпонский календарь CLS ' Запрос года INPUT "Введите год"; YEAR ' Вычисление номера цвета и животного С =( (9910-YEAR) MOD 60)\12 К =(YEAR-3) MOD 12 ' Определение по номеру цвета го...
Циклический алгоритм
Циклический алгоритм...
Задача 140
' Пешеходный переход "зебра" FOR Y = 10 ТО 320 STEP 30 LINE (200, У)-(400, Y+20), 15, BF NEXT Y...
Задача 143
1 Воздушный шарик SCREEN 9 ' Изменение цвета фона COLOR , 1 FOR I = 1 ТО 201 ' Рисование окружности изменяющегося радиуса CIRCLE (320, 175), I, 14 ' Пауза FOR T = 1 ТО 2000: NEXT T ' Стирание окр...
Задача 146
F=l Цикл вообще не будет ни разу исполняться, т. к. начальное значение параметра больше конечного, а шаг по умолчанию принят +1....
Задача 147
1 Да ты крут! CLS INPUT "Введи свой возраст"; N FOR J = 1 ТО N PRINT "ДА ТЫ КРУТ! " FOR T = 1 ТО 5000: NEXT T NEXT J END...
Задача 148
'...
Таблица умножения 1:INPUT "Введите
Таблица умножения 1:INPUT "Введите целое число от 2 до 9"; N IF N<2 OR N>9 THEN ?"От 2 ДО 9!": GOTO 1 ? "Таблица умножения на "; N FOR I = 2 ТО N ? I; "*&q...
Задача 151
1 Электронный секундомер FOR T = 1 TO 3600 LOCATE 12, 38:? T NEXT T END...
Задача 152
' Орнамент с полукольцами SCREEN 9 ' Задание радиусов окружностей R1 = 20: R2 = 10 FOR X = 50 ТО 600 STEP 4*R1 ' Первое полукольцо CIRCLE (X, 175), Rl, 14, 0, 3.14 CIRCLE (X, 175), R2, 14, 0, 3.1...
Задача 156
Правильно, если переменные r, s и н ранее получили значения. Правильно. Правильно. Неправильно. Отсутствует ключевое слово то. Правильно. Неправильно. Цикл выполняться не...
Задача 157
WAR WAR WAR SUNDAY PEACE Так как после окончания цикла параметр имеет значение большее конечного значения параметра, то проверяемое условие r=w ложно, следовательно выполняется следующий оператор...
Задача 169
Будут бесконечно печататься нули. Значение s не меняется, поэтому цикл будет длиться бесконечно....
Задача 173
X=INT(RND(1)*ll)+10...
Задача 175
X =-INT(RND(l)*101)+65...
Задача 179
1 Маленький взрыв RANDOMIZE TIMER SCREEN 9 FOR 1=1 TO 100 X=INT(RND(1)*200)+220 Y=INT(RND(1)*200)+75 C=INT(RND(1)*15)+1 LINE (X, Y)-(320, 175), С NEXT I END...
Задача 188
Rem ось абсцисс Rem ось ординат ' Построение графика Y=SQR{X) SCREEN 9 LINE (0, 175)-(640, 175), 15 LINE (320, 0)-(320, 350), 15 DEF FNY(X)=SQR(X) FOR X = 320 TO 640 Y = 175-30*FNY*((X-320J/30) P...
Задача 190
' Поверхность вращения функции у = 1/1+х" SCREEN 9 LINE (0, 175) - (640, 175), 15 Rem ось абсцисс LINE (320, 0) - (320, 350), 15 Rem ось ординат DEF FNY(X) = 1/(1+хл2) FOR X = 320 ТО 640 STE...
Задача 196
1 Лестница 1 SCREEN 9 FOR X = 0 TO 64 0 STEP 4 0 LINE(X, X*35/64)-(X + 40, (X + 40)*35/64),15,В NEXT X END Так как экран представляет собой не квадрат, а прямоугольник, то, чтобы серия прямоуг...
Задача 197
' Пирамида. Вид сверху SCREEN 9 FOR X = 20 ТО 220 STEP 10 LINE (X, X)-(220-Х, 220-Х),15, В NEXT X END...
Задача 200
1 Лоскутный ковер SCREEN 9 RANDOMIZE TIMER FOR X = 0 TO 640 STEP 10 FOR Y = О ТО 350 STEP 10 ' Выбор случайного цвета для закраски кв. лоскута С = INT(RNDd) *15) + 1 '...
Рисунок ание закрашенного квадратика
Рисунок ание закрашенного квадратика LINE (X, Y)-(X + 10, Y + 10), С, BF ' Обводка квадратика белым контуром LINE (X, Y)-(X + 10, Y + 10), 15, В NEXT Y NEXT X END...
Задача 205
1 Хронометр CLS 1 Цикл для часов FOR HOURS = 0 to 23 ' Цикл для минут FOR MINUTES = 0 to 59 ' Цикл для секунд FOR SECONDS = 0 to 59 LOCATE 12, 35 ? HOURS; ":"; MINUTES; ":"; S...
Задача 208
' Вычисление числа Пи методом Монте-Карло CLS : RANDOMIZE TIMER LOCATE 3, 20 PRINT " Вычисление числа Пи методом Монте-Карло" SCREEN 9 '...
Рисунок ание квадрата со стороной
Рисунок ание квадрата со стороной 200 LINE (100, 100)-(300, 300), 14, В ' Рисунок ание вписанной в квадрат окружности радиусом 100CIRCLE (200, 200), 100, 0, , , 1.01 ' Задание общего количества пе...
Задача 212
1 Сумматор CLS ' Запрос с клавиатуры количества суммируемых чисел INPUT "Сколько чисел будем складывать"; N ' Обнуление переменной для накапливания суммы S = 0 FOR 1=1 ТО 5 ? "Введ...
Задача 215
1 Нахождение суммы ряда CLS ' Запрос значений переменных А и В INPUT "Введите значения А и В"; А, В ' Обнуление переменной для накапливания суммы S=0 1 = 0 WHILE (A+I)OB S=S+1/(1+(A+I)Л...
Задача 216
1 Соприкасающиеся окружности 1 Занесение значений радиусов DATA 50, 20, 10, 25, 40, 15, 60 SCREEN 9 ' Задание начальной координаты X Х=0 FOR 1=1 ТО 7 READ R CIRCLE (X+R, 175), R, 14 X=X+2*R NEXT...
Задача 220
1 Разноцветные окружности. Вариант 1 ' Программа с циклом DO...LOOP WHILE SCREEN 9 ' Задание значения первого цвета ч^— 1 DO ' Определение координаты X центра окружности Х=10+40*С CIRCLE (X, X),...
Символы и строки
Символы и строки...
Задача 222
1 Шифровка CLS ' Запрос количества букв в шифруемом слове INPUT "Сколько букв в слове"; N 1 Объявление массива для зашифрованного слова DIM D$ (N) FOR 1=1 TO N ' Побуквенный запрос исхо...
Задача 229
' Палиндром CLS ' Запрос слова с клавиатуры INPUT "Введите ваше слово"; W$ ' Определение длины введенного слова N=LEN(W$): Wl$="" ' Цикл переворачивания исходного слова задом...
Задача 231
1 10 слов DATA STUFF, CAR, SKI, QOIKE, SUN DATA CARD, PRESS, POOH, GULI, COP CLS PRINT "Все слова исходного списка" FOR 1=1 TO 10 READ W$ PRINT W$; " "; NEXT I PRINT : PRINT R...
Задача 235
' Замена буквосочетаний DATA PHOTO, GRAPH, PHILOPHON, COPHE CLS FOR 1=1 TO 4 READ W$ FOR J=l TO LEN(W$) P$=MID$(W$, J, 1): H$=MID$(W$, J + 1, 1) IF P$o"P" THEN PRINT P$; ELSE IF H$o&quo...
Задача 236
'Столбиковая интерпретация массива CLS : RANDOMIZE TIMER INPUT "Сколько чисел будет в массиве"; N DIM S(N) ' Формирование массива FOR 1=1 ТО N S(I)=INT(RND(l)*150)+50 NEXT I ' Графическ...
Задача 239
1 Вычисление среднего квадратичного элементов ' заданного массива . DATA 31, 19, 52, 65, 6, 8, 13, 16, 97, 33 CLS DIM S(10) ' Формирование массива и вывод его элементов на экран FOR 1=1 ТО 10 REA...
Задача 240
' Вывод на экран элементов массива по заданному критерию CLS: RANDOMIZE TIMER INPUT "Сколько чисел будет в массиве"; N DIM S(N) ' Формирование массива и вывод его на экран FOR 1=1 ТО N...
Задача 242
' Вывод массива в строки по 6 элементов, начиная с последнего CLS: RANDOMIZE TIMER INPUT "Сколько чисел будет в массиве"; N DIM S(N) ' Формирование массива и вывод его на экран FOR 1=1...
Задача 245
'Столбиковая интерпретация массива, его максимума и минимума CLS : RANDOMIZE TIMER ' Объявление и формирование массива INPUT "Сколько чисел будет в массиве"; N DIM S(N) FOR 1=1 ТО N S(I...
Задача 247
62 55 29 1 Формула Герона DATA 13, 48, 35, 90, DATA 35, 40, 20, 71, DATA 27, 68, 41, 54, CLS DIM A(5), B(5), C(5), P(5), S(5) FOR 1=1 TO 5: READ A(I): NEXT I FOR 1=1 TO 5: READ B(I): NEXT I FOR 1...
Задача 251
' Расстояния между точками DATA 120, 58, 280, 440, 157, 99, 350, 290, 500,159 DATA 271, 279, 35, 100, 160, 234, 45, 170, 200, 66 DATA 271, 279, 35, 100, 360, 234, 545, 170, 200, 266 DATA 120, 58,...
Задача 256
1 Сборщики компьютеров 1 Понедельник DATA 37, 14, 48, 24, 80, 60, 56 ' Вторник . DATA 77, 34, 45, 23, 45, 39, 51 ' Среда DATA 58, 65, 49, 49, 56, 45, 38 ' Четверг DATA 61, 57, 55, 89, 33, 52, 60...
Задача 267
' Сортировка выбором CLS : RANDOMIZE TIMER INPUT "Сколько чисел будет в массиве"; N ' Объявление, формирование массива и вывод его на экран DIM S(N) FOR 1=1 ТО N S(I)=INT(RND{1)*150)+50...
Задача 269
' Сортировка методом "пузырька" CLS DATA Q,W,E,R,T,Y,U,I,O,P DATA A, S, D, F, G, H, J, K, L, Z DATA X,C,V,B,N,M ' Объявление, формирование и вывод исходного массива на экран N=26: DIM E...
Оператор присваивания
Оператор присваивания...
Задача 23
Нет. Нет знака равенства....
Задача 28
Да....
Задача 29
Нет. Переменные связаны двумя знаками равенства....
Задача 30
Нет. Слева от знака равенства стоит арифметическое выражение....
Задача 35
R=-R...
Задача 36
Х=6, Y=6...
Задача 37
Необходимо ввести вспомогательную переменную д. А=Х X=Y Y=A...
Задача 38
W = K/100 + (К MOD 100) /10 + (К MOD 100) MOD 10...
Задача 39
S=3*1СГ 5*365*24*60*60  ...
Выводим результаты
Выводим результаты...
Задача 45
PRINT ((3^(1/4)+2)Л(1/3))^.5...
Задача 46
PRINT 6^ (1/4)/((5-8~.5)л(1/3))...
Задача 48
PRINT (( (3^.5+3)".5+3)^.5+3)^.5...
Задача 51
Решение для последнего варианта: CLS: PRINT "Результат равен"; 2*3*4*5*6...
Задача 52
CLS: PRINT "Печать":PRINT: PRINT "через":PRINT:PRINT "строку"  ...
Стандартные функции Бейсика
Стандартные функции Бейсика...
Задача 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: ? "*********"  ...
Вводим данные
Вводим данные...
Задача 70
CLS INPUT "Введите, пожалуйста, Ваш год рождения"; YEAR1 INPUT "Введите, пожалуйста, год рождения Вашей мамы"; YEAR2 ? "Ваша мама родила Вас, когда ей было"; YEAR2 -...
Задача 72
CLS INPUT "Введите три стороны треугольника"; А, В, С Р=(А+В+С)/2 S=SQR(P*(P-A)*(Р-В)*(Р-С)) ? "Площадь данного треугольника равна"; S  ...
Операторы DATA и READ
Операторы DATA и READ...
Задача 74
' Исходные данные для прямоугольников ' В каждом DATA координаты диагоналей и цвет DATA 30, 50, 130, 150, 1 DATA 160, 100, 280, 170, 4 DATA 300, 180, 450, 270, 14 1 Считывание данных и построение...
Линейный алгоритм
Линейный алгоритм...
Задача 76
1 Полет к ближайшей звезде CLS ' Длина светового года S = 3*10л5*365*24*60*60 9 Количество секунд полета NSEC = S/100 ' Количество часов полета NHOUR = NSEC/3600 ' Количество суток полета NDAYS =...
Задача 80
Информационный объем книги CLS 1 Количество символов в книге N = 450*60*80 ' Перевод в Мегабайты М = N/1024/1024 ' Количество дискет DISCS = INT(M/1.44)+1 ' Вывод результата ?"Для записи кни...
Задача 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 ' Шестой меся...
Графика в Бейсике
Графика в Бейсике...
Задача 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 ' Иллюминаторы CI...
Задача 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 ' Левая ни...
Задача 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  ...








- Начало -