Download
1 / 17

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


  • 89 Views
  • Uploaded on

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

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' Основные алгоритмические структуры: линейные, разветвляющиеся,  циклические' - raphael-ford


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

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


Пример: программа, выводящая на экран сообщение: «Привет! Меня зовут Саша!»

Линейная структура программы.

REM Первая программаPRINT “Привет! Меня зовут Саша!”END


Пример: программа, складывающая два числа

REM Сумма двух чиселa = 5b = 6c = a + bPRINT "Результат: ", cEND

REM СуммадвухчиселDIM a, b, c AS INTEGERa = 5b = 6c = a + bPRINT "Результат: ", cEND


Пример: Вычислите площадь прямоугольника по его сторонам.

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


Пример: Вычислить выражение  прямоугольника по его сторонам.

CLS

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


Пример: Вычислите длину окружности и площадь круга по данному радиусу.

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


Ветвление в алгоритмах и программах.

Пример: Проверить, равно ли введенное число некоторому значению, и в случае равенства выдать  на экран сообщение о равенстве чисел.

REM сравнить число со каким-то значениемINPUT "Введите а", аIF a=7 THEN PRINT "Числа равны"END


Пример: Определить большее из двух чисел, вывести его на экран, затем - увеличить его в двое и вывести результат на экран

REM определить большее из двух чисел...INPUT "Введите а", аINPUT "Введите b", bIF a>b THENPRINT "Большее число: ", aс=2*aELSEPRINT "Большее число: ", bс=2*bEND IFPRINT "результат: ", cEND


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


Пример: Решение квадратного уравнения.Решение квадратного уравнения зависит от значения дискриминанта.

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


Структура "Выбор". уравнения.

Пример: Выдать словесное значение числа

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


1 100
Циклы в алгоритмах и программах. уравнения.Пример: Вывести на экран все числа от 1 до 100. Для этого можно было бы написать следующую программу:

REM Выводчиселот 1 до 100PRINT 1PRINT 2PRINT 3PRINT 4...PRINT 98PRINT 99PRINT 100END

REM Выводчиселот 1 до 100FOR I=1 TO 100PRINT INEXTEND


Пример: Вычислить сумму двухзначных натуральных чисел.

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


Пример: вычислить факториал числа а (записывается так: а!). Факториал - это произведение чисел от 1 до а. Например, 5! (факториалпяти) - это 5!=1*2*3*4*5

REM Вычислитьфакториалчислаa=5f=1FOR I=1 TO af=f*INEXTPRINT fEND


циклы с предусловием числа а (записывается так: а!). Факториал - это произведение чисел от 1 до а. Например, 5! Пример: Вывести все натуральные числа меньше данного.

REM Выводвсехчиселменьшеданногоa=0chislo=10DO WHILE a<chisloPRINT aa=a+1LOOPEND


Пример цикла, который будет выполнятся бесконечное число раз:

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


циклы с постусловием выполнятся бесконечное число раз:Пример: Вычислите сумму цифр в числе.

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


ad