Алгоритмы Алгоритмы Базовые структуры. Виды алгоритмов линейный Циклический Разветвляющийся. - презентация

1 Алгоритмы Алгоритмы Базовые структуры

2 Виды алгоритмов линейный Циклический Разветвляющийся

3 Линейные алгоритмы

4 СЛЕДОВАНИЕ ( ЛИНЕЙНЫЕ)

5 Какие операторы используются в Pascal для решения задач на алгоритмы следования? Read, readln Write, writeln := Математические выражения СЛЕДОВАНИЕ ( ЛИНЕЙНЫЕ)

6 Program SUMMA; Var X,Y,Z: integer; Begin Write(Введите два числа ); Readln(X,Y); Z:=X+Y; Write(Z); End. Команды следования на Паскале Program SUMMA;заголовок программы Var X,Y,Z: integer;описание переменных Beginначало программы Write(Введите два числа );вывод на экран Readln(X,Y);ввод значений X и Y Z:=X+Y;присваивание суммы Write(Z);вывод результата End.

7 Разветвляющиеся алгоритмы

8 ВЕТВЛЕНИЕ (РАЗВЕТВЛЯЮЩИЙ)

9 Ввод a x:= a+8x:= a-8 Вывод x начало конец a> 9 ВЕТВЛЕНИЕ да-нет

10 если - то если ословие то действия все не полный если – то - иначе ословие то действия 1 иначе действия 2 все полный Команды ветвление

11 УСЛОВИЯ В ВЕТВЛЕНИЯХ Знаки НазначениеЗнаки Назначение >Больше>=Больше или равно <Меньше<=Меньше или равно =равно<>Не равно В качестве ословий используются выражения содержащие знаки

12 Вопросы, которые надо задавать при определении связи в математической модели для ветвлений 1. Какое ословие надо проверить? 2. Какие действия надо выполнять если ословие выполняется? 3. Какие действия надо выполнять если ословие не выполняется? Математическая модель

13 ВЕТВЛЕНИЕ Дано: x Рез-тат: y Связь: 1)X<1 2)+, y:=4 3)-, y:=3

14 if ословие then действие; if ословие then действия else действия; Перед else ; ( точка с запятой ) не ставится Команды ословия на языке Паскаль

15 if then else if 1 then 2 else 3; Команды ословия на языке Паскаль 1. Какое ословие надо проверить? 2. Какие действия надо выполнять если ословие выполняется? 3. Какие действия надо выполнять если ословие не выполняется? ;

16 ВЕТВЛЕНИЕ Дано: x Рез-тат: y Связь: 1)X<1 2)+, y:=4 3)-, y:=3 var x,y:real; begin x:=-10; writeln(' Введите число'); readln(x); if x<1 then y:=4 else y:=3; write('y=',y:4:2); end.

17 Составные ословия на языке Паскаль if ословие then begin действие; … действие; end else begin действие; … действие; end; Перед else ; ( точка с запятой ) не ставится Команды ословия на языке Паскаль

18 Примеры команды если If x > 0 then y := sin(x); If a > b then begin a := 2*a; b := 1 end else b := 2*b; Команды ословия на языке Паскаль

19 Даны два числа. Меньшее из них замените полусуммой этих чисел, а большее – их произведением. var a,b,x,y:real; begin write(введите два числа); readln(a,b); x:=a*b; {запомним значение произведения} y:=(x+y)/2;{запомним значение полусуммы} if a>b then begin b:=y; a:=x end else begin a:=y; b:=x end; writeln ( a=,a:0:2, b=,b:0:2); end. ВЕТВЛЕНИЕ. Задача

20 Циклические алгоритмы

21 ЦИКЛИЧЕСКИЙ АЛГОРИТМ циклическим Алгоритм, предусматривающий многократное повторение одного и того же действия над новыми данными, называется циклическим проверка осло начале цикла Для цикла пока – проверка ословия происходит в начале цикла Тело цикла Тело цикла – это шаги алгоритма, которые повторяются несколько раз. Параметры цикла Параметры цикла – величина, от ко- торой зависит число повторений Цикл пока

22 1 1. Составить алгоритм вычисления суммы n первых натуральных чисел ЦИКЛЫ

23 2 2. Составить алгоритм нахождения n слагаемых вида X+i, где i:=1,2,3,…,40, a n – данное число ЦИКЛЫ

24 Вопросы, которые надо задавать при определении связи в математической модели для циклов 1. Какое ословие надо проверить? 2. Какая величина является параметром цикла? 3. Какие параметры надо установить в начале цикла (начальные значения переменных) 4. Какие действия повторяются ? ЦИКЛЫ P.S. В каком порядке отвечать не имеет значения. Важно в ословии найти ответы на все вопросы.

25 Вычислить значение функции у=2 sin x на интервале от а)-10 до 10 для целых чисел Циклы. Задачи Дано: x, вещ Рез-тат: у, вещ Связь: Цикл 1)x<10 2)x:=x+1 3)x:=-10 4)y:=2*sin(x) печать x, y x:=x+1 x:=-10 x<=10 x:=x+1 y:=2*sin(x) x,y

26 Формат команды: WHILE логическое выражение DO оператор; Команды цикла ПОКА на языке Паскаль 3 WHILE 1 DO begin 4 2 end;

27 Вычислить значение функции у=2 sin x на интервале от а)-10 до 10 для целых чисел Циклы. Задачи Дано: x, вещ Рез-тат: у, вещ Связь: Цикл 1)x<10 2)x:=x+1 3)x:=-10 4)y:=2*sin(x) печать x, y x:=x+1 x:=-10 x<=10 x:=x+1 y:=2*sin(x) x,y WHILE DO begin end; var x,y:real; begin x:=-10; writeln(' x ',' y'); while x<=10 do begin y:=2*sin(x); writeln(x:4:2,y:7:2); x:=x+1; end;

28 Формат команды: WHILE логическое выражение DO оператор; program summa; vars:real; n:integer; begin s:=0; n:=0; while n<1000 dobegin n:=n+1; s:=s+1/nend; writeln(s); readln end. ПРИМЕР: Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+…1/N Команды цикла ПОКА на языке Паскаль

29 1. Вычислить значение функции у=2 sin 2 x на интервале от а)-13 до 13 для целых чисел б) на интервале -3 до 3 2. Ученик в первый день выучил 5 английский слов. В каждый следующий день он выучивал на 2 слова больше, чем в предыдущий. Сколько английских слов выучит ученик в 10-ый день занятий? Циклы. Задачи

30 ЦИКЛЫ

31 program prim10; var n,x,max,i: integer; begin writeln(Введиде N, количество чисел); readln(n); i:=1; max:=-32000; while imax then max:=x; i:=i+1; end; writeln(максимальное число в последовательности, max ); end. Программа нахождения максимального числа среди чисел веденных с клавиатуры