Основные алгоритмические структуры: линейные, разветвляющиеся, циклические

1. Основные алгоритмические структуры: линейные, разветвляющиеся,  циклические

2. Пример: программа, выводящая на экран сообщение: «Привет! Меня зовут Саша!» Линейная структура программы. REM Первая программаPRINT “Привет! Меня зовут Саша!”END

3. Пример: программа, складывающая два числа REM Сумма двух чиселa = 5b = 6c = a + bPRINT "Результат: ", cEND REM СуммадвухчиселDIM a, b, c AS INTEGERa = 5b = 6c = a + bPRINT "Результат: ", cEND

4. Пример: Вычислите площадь прямоугольника по его сторонам. REM Площадь прямоугольникаINPUT "Введите сторону а", аINPUT "Введите сторону b", bs = a * bPRINT "Площадь равна: ", sEND

5. Пример: Вычислить выражение  CLS REM Вычисление выраженияINPUT "Введите а", аINPUT "Введите b", bc = SQR(2*a*b)/(a+b)PRINT «Значение: ", сEND

6. Пример: Вычислите длину окружности и площадь круга по данному радиусу. REM Вычисление длины окружности и площади кругаINPUT "Введите радиус ", rPI = 3.14l = 2 * PI * rs= PI * r * rPRINT "Длина окружности равна: ", lPRINT "Площадь равна: ", sEND

7. Ветвление в алгоритмах и программах. Пример: Проверить, равно ли введенное число некоторому значению, и в случае равенства выдать  на экран сообщение о равенстве чисел. REM сравнить число со каким-то значениемINPUT "Введите а", аIF a=7 THEN PRINT "Числа равны"END

8. Пример: Определить большее из двух чисел, вывести его на экран, затем - увеличить его в двое и вывести результат на экран REM определить большее из двух чисел...INPUT "Введите а", аINPUT "Введите b", bIF a>b THENPRINT "Большее число: ", aс=2*aELSEPRINT "Большее число: ", bс=2*bEND IFPRINT "результат: ", cEND

9. REM определить большее из двух чисел...INPUT "Введите а", аINPUT "Введите b", bIF a=b TNENPRINT "Числа равны"с=2*aELSE    IF a>b THEN    PRINT "Большее число: ", a    с=2*a    ELSE    PRINT "Большее число: ", b    с=2*b    END IFEND IFPRINT "результат: ", cEND

10. Пример: Решение квадратного уравнения.Решение квадратного уравнения зависит от значения дискриминанта. REM Решение квадратного уравненияINPUT "Введите коэффициент a: ", аINPUT "Введите коэффициент b: ", bINPUT "Введите коэффициент c: ", cd=b*b-4*a*cIF d<0 THENPRINT "Корней нет"ELSE    IF d=0 THENx=-b/(2*a)    PRINT "корень уравнения: ", x    ELSE    x1=(-b-SQR(d))/(2*a)    x2=(-b+SQR(d))/(2*a)    PRINT "корни уравнения: ", x1, x2    END IFEND IFEND

11. Структура "Выбор". Пример: Выдать словесное значение числа REM Преобразование чисел в словаINPUT "Введите число", aSELECT CASE aCASE 1PRINT "один"CASE 2PRINT "два"CASE 3PRINT "три"...CASE 10PRINT "десять"CASE ELSEPRINT "эточислонемогуперевести"END SELECTEND

12. Циклы в алгоритмах и программах.Пример: Вывести на экран все числа от 1 до 100. Для этого можно было бы написать следующую программу: REM Выводчиселот 1 до 100PRINT 1PRINT 2PRINT 3PRINT 4...PRINT 98PRINT 99PRINT 100END REM Выводчиселот 1 до 100FOR I=1 TO 100PRINT INEXTEND

13. Пример: Вычислить сумму двухзначных натуральных чисел. REM Вычислить сумму двухзначных натуральных чиселFOR I=10 TO 99s=s+INEXTPRINT "Результат = ",sEND

14. Пример: вычислить факториал числа а (записывается так: а!). Факториал - это произведение чисел от 1 до а. Например, 5! (факториалпяти) - это 5!=1*2*3*4*5 REM Вычислитьфакториалчислаa=5f=1FOR I=1 TO af=f*INEXTPRINT fEND

15. циклы с предусловиемПример: Вывести все натуральные числа меньше данного. REM Выводвсехчиселменьшеданногоa=0chislo=10DO WHILE a<chisloPRINT aa=a+1LOOPEND

16. Пример цикла, который будет выполнятся бесконечное число раз: REM зацикливаниеDO WHILE a=aPRINT "Это сообщение будет выводится на экран постоянно"LOOPPRINT "А это сообщение вы не увидите никогда"END

17. циклы с постусловиемПример: Вычислите сумму цифр в числе. REM СуммацифрчислаDIM a, chislo, s AS INTEGERINPUT "Введитечисло: ", chisloa=chisloDOs=s+a MOD 10a=a/10a=INT(a)LOOP UNTIL a=0PRINT "Суммацифрчисла ",chislo ," равна: ", sEND