Циклы в Паскале
презентация к уроку по информатике и икт (8 класс)

Слайд 1

Слайд 2

Program zadacha ; Var a, b, c, d, e: integer; Begin Writeln ( ‘ введите 5 чисел ’); Readln (a, b, c, d, e); If a>7 then writeln (a); If b>7 then writeln (b); If c>7 then writeln (c); If d>7 then writeln (d); If e>7 then writeln (e); end .

Слайд 3

Циклы в языке Паскаль. Цикл с предусловием.

Слайд 4

Виды циклов

Слайд 5

ЦИКЛ С ПРЕДУСЛОВИЕМ (ЦИКЛ - ПОКА) Пока условие – истинно , выполняется тело цикла. Тело цикла может быть простым или составным оператором. While <условие> do <тело цикла>;

Слайд 6

КАКОЕ ЗНАЧЕНИЕ ПРИМЕТ ПЕРЕМЕННАЯ Х В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ АЛГОРИТМА: 1) x :=3; while x<10 do x:=x+3; x:=x+1; writeln (x); 2) x :=3; while x<10 do begin x:=x+3; x:=x+1; end ; writeln (x );

Слайд 7

Даны 5 различных чисел, найти и вывести на экран числа больше 7. Program zadacha ; Var a, i: integer; Begin i := 1; Writeln (' введите 5 чисел'); while i <6 do begin Readln (a); If a>7 then writeln ('a=', a); i := i +1 ; end ; end .

Слайд 8

ЦИКЛ С ПОСТУСЛОВИЕМ ( ЦИКЛ – ПОВТОРЯЕМ ДО ТЕХ ПОР ПОКА или ДО ) . Повторяется выполнение тела цикла до истинности условия. Тело цикла с постусловием выполняется хотя бы один раз.

Слайд 9

Repeat <оператор>; <оператор>; . . . <оператор> Until <условие>;

Слайд 10

ЦИКЛ С ПАРАМЕТРОМ (ЦИКЛ - ДЛЯ) for i:=In to Ik do < тело цикла >; for i:=In downto Ik do < тело цикла >;

Слайд 11

ЦИКЛ С ПАРАМЕТРОМ (ЦИКЛ - ДЛЯ) i – параметр цикла – простая переменная порядкового типа; In – выражение того же типа, определяющее начальное значение параметра; Ik – выражение того же типа, определяющее конечное значение параметра; Цикл повторяется, пока значение параметра лежит в интервале между In и Ik .

Слайд 12

Задача №1 Ввести с клавиатуры ряд чисел, признак окончания ввода – число 0. Найти сумму чисел введённых чисел .

Слайд 13

Program Summa_While ; Var chislo , S: integer; Begin S := 0; Write (‘ Введи число ’); Readln ( chislo ); While chislo <> 0 do begin Write (‘ Введи число ’); Readln ( chislo ); S := S + chislo ; end ; Writeln (‘ Сумма = ’, S); Readln End . Program Summa_Repeat ; Var chislo , S: integer; Begin S := 0; Repeat Write (‘ Введи число ’); Readln ( chislo ); S := S + chislo ; Until chislo = 0 ; Writeln (‘ Сумма = ’, S); Readln End .

Слайд 14

Домашнее задание. Написать две программы к задаче , используя цикл с предусловием и постусловием: Дана последовательность из 10 целых чисел. Определить, имеется ли в ней число 13.

Слайд 15

Задача №2 Ввести с клавиатуры ряд чисел, признак окончания ввода – число 0. Найти сумму отрицательных чисел, введённых с клавиатуры .

Слайд 16

Program Summa_Repeat ; Const R=0; Var chislo , S: integer; Begin S:= 0; Repeat Write (‘ Введи число ’); Readln ( chislo ); if chislo <0 then S := S + chislo ; Until chislo = R; Writeln (‘ Сумма = ’, S); Readln End .

Слайд 17

Задача №3 Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число 1000. Найти и напечатать целую часть каждого числа.

Слайд 18

Program Trunc _ While ; Const W =1000; Var chislo : real; Begin Write (‘ Введи число ’); Readln ( chislo ); While chislo <> W do begin Writeln (‘ Целая часть = ’, Trunc ( chislo )); Write (‘ Введи число ’); Readln ( chislo ) end ; Readln End .

Слайд 19

Изменить программу так, чтобы она находила: дробную часть чисел; произведение чисел, меньших 22; сумму чисел, которые попадают в промежуток [10, 50 ]. среднее арифметическое введенных чисел. Подумай и реши!

Слайд 20

Вводить с клавиатуры числа до тех пор, пока не будет введено число "100". Найти: количество четных чисел (таких, у которых остаток от деления на 2=0); сумму отрицательных чисел ; произведение чисел, попадающих в интервал [5; 15]; Задача №4

Слайд 21

Вводить с клавиатуры символы до тех пор, пока не будет введен пробел. Определить, сколько было введено маленьких английских букв. Изменить программу так, чтобы она находила количество введенных чисел. Домашняя работа