Программирование. Циклы


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Программирование алгоритмов циклической структуры План:Оператор цикла с параметром For.Оператор цикла с предусловием While.Оператор цикла с постусловием Repeat.Вложенные циклы.Базовые алгоритмы.5.1. Алгоритм организации счетчика.5.2. Алгоритм накопления суммы и произведения.5.3. Алгоритм поиска минимального (максимального) члена последовательности.5.4. Алгоритм табулирования функции одной переменной.5.5. Алгоритм табулирования функции двух переменных. Начальные установки Условие операторы Модификация параметра цикла а + _ Начальные установки Условие операторы Модификация параметра цикла _ + b Рис. 1. Структурные схемы выполнения цикла for счетчик_цикла := начальное_значение_счетчикаto (downto) конечное_значение_счетчика dobegin {тело цикла}end Графическая интерпретация оператора цикла for … to операторы i:=X0,Xn i – счетчик циклаX0 – начальное значение счетчикаXn – конечное значение счетчика 1. Оператор цикла с параметром For Общий вид оператора цикла с параметром s:=i*i Вывод s i:= Начало Пример. Вывести на экран таблицу квадратов первых пяти чисел program Numbers_and_them_squares; var i, s : integer; begin for i := 1 to 5 do begin s := i*i; writeln (i, '*', i, ' = ', s); end; end. условие действия + _ while <условие> dobegin {тело цикла}end; Графическая интерпретация оператора Общий вид оператора цикла с предусловием «пока»: 2. Оператор цикла с предусловием while – i<=100 i:=i+1 + Вывод i i:=1 Начало Конец Пример: Вывести на экран числа от 1 до 100. program Schet_ot_1_do_100;var i : integer;begin i := 1; {начальное значение параметра цикла} while i <= 100 do {перебираем первые 100 чисел} begin writeln (i); {вывод на экран значения i} i := i + 1; {Увеличение параметра цикла на 1} end;end. repeat {тело цикла} until <условие > Графическая интерпретация оператора Общий вид оператора цикла с постусловием «до»: условие действия _ + 3. Оператор цикла с постусловием repeat – Начало i>100 i:=i+1 + Вывод i i:=1 Конец Пример: Вывести на экран числа от 1 до 100. program Schet_ot_1_do_100;var i : integer;begin i := 1; {начальное значение параметра цикла} repeat writeln (i); {вывод на экран значения i} i := i + 1; {увеличение параметра цикла на 1} until i > 100; {перебираем первые 100 чисел}end. Пример. Вывод на экран чисел от 10 до 29. 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 s:=a*10+b Вывод s a:=1,2 b:=0,9 Начало Конец 4. Вложенные циклы program Numbers;var i, s : integer;begin for a := 1 to 2 do {внешний цикл} for b := 0 to 9 do {внутренний цикл} begin s := a*10 + b; writeln (s); end;end. program Skoko_nechetnyx_chisel_ot_30_do_50;var k, i : integer;begin k := 0; { начальное значение счётчика равно 0 } for i := 30 to 50 do begin if k mod 2 <> 0 { Если число не делится на 2, то оно нечётное … } then k := k + 1 {…его надо посчитать, т.е.увеличить счетчик на 1} end; writeln (‘На интервале от 30 до 50 ‘, k, ‘ нечётных чисел’)end. Пример. Найти количество нечётных чисел из интервала от 30 до 50. 5.1. Алгоритм организации счетчика program summa;var a, x, S: real; n: integer;beginwriteln (‘Введите число x = ’); read (x);S := 0; {очищение ячейки для суммирования}for n := 1 to 8 dobegin a := sin(2  n  x); if abs(a) > 0.3 then S := S + a; {суммирование элементов}end;writeln (‘S = ’, S:6:2); {вывод результата на экран} end. Пример. Дана последовательность: , где x – заданное вещественное число. Вычислить сумму членов последова-тельности, которые по модулю больше 0.3. 5.2. Алгоритм накопления суммы и произведения program The_product_of_natural_numbers_from_1_to_5;var p, i : integer;begin p := 1; {вначале произведение равно 1} for i := 1 to 5 do p := p * i; {находим произведение} writeln (’Произведение чисел от 1 до 5 равно ’, p)end. Пример. Найти произведение чисел от 1 до 5. program minimum;var a, min: real; k: integer;beginmin := +1E6;for k := 1 to 10 dobegina := exp(k)  sin(2k+1)/cos(2k+1);if a < min then min := a;end;writeln (‘min = ’, min:6:2);end. Пример. Дана последовательность: ; . Найти минимальный член последовательности. 5.3. Алгоритм поиска минимального (максимального)члена последовательности В случае поиска максимального значения необходимо max := –1E6.....if a > max then max := a; Пример. Вычислить таблицу значений функции: при х, изменяющемся в интервале [-0.5, 2.5] с шагом 0.1, a, b – заданные вещественные числа. x, y x:=x+0.1 Заголовок таблицы + – Начало Конец 5.4. Алгоритм табулирования функции одной переменной program TAB_1;var a, b, x, y: real;Begin writeln (‘Введите исходные данные’); read (a, b); writeln (‘ x y(x)’); x := -0.5; while x <= 2.5 do begin y := ln(abs(x))/(a*a – b*b); writeln (x:8:1, y:8:1) x := x + 0.1; end;end. program TAB_2;var x, y, z: real;begin writeln (‘ x y z(x,y)’);x := – 1; while x <= 1 do begin y := 0;while y <= 1 dobegin z := sin(x) + cos(y); writeln (x:6:1, y:6:1, z:6:1); y := y + 0.1; end; x := x + 0.2; end;end. Пример. Вычислить значение функции: при x, изменяющемся на интервале [-1, 1] с шагом и у, изменяющемся на интервале [0, 1] с шагом . … … … z(-0.8,1.0) 1.0 -0.8 … … … z(-0.8,0.0) 0.0 -0.8 z(-1.0,1.0) 1.0 -1.0 … … … z(-1.0,0.1) 0.1 -1.0 z(-1.0,0.0) 0.0 -1.0 z(x,y) y x Вид таблицы на экране будет следующим: 5.5. Алгоритм табулирования функции двух переменных

Приложенные файлы

  • ppt CiklPascal
    Презентация
    Размер файла: 123 kB Загрузок: 4