Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация по инфогрматике на тему "Операторы циклов с условием в Паскале" (7-9 кл)
  • Информатика

Поделитесь материалом с коллегами:

Операторы циклов с условиями
Цикл – это структура, в которой некоторая серия команд выполняется несколько...
В языке программирования паскаль существует три типа циклов: FOR – цикл с за...
Оператор цикла с постусловием REPEAT 	; ; … ; UNTIL ; Вначале выполняется тел...
Пример 1. Program f1; Var i : integer; begin For i:=1 to 25 do 	begin 	 Write...
Цикл c предусловием WHILE  DO 		Begin 			; 		End;
Задание: Вывести на экран все целые числа от 10 до 100 . Program f11; Var i :...
Пример 2. Program f2; Var I : integer; 	S : integer; Begin 	S := 0 ; 	For i:=...
Задание: Найти сумму натуральных чисел от 50 до 75 Program f22; Var i : integ...
Пример 3. Program f3; Var n, i : integer; begin Writeln (‘введите число n’);...
Задание: Найти все числа от 33 до 555, которые кратны 13.   Program f33; Var...
Пример. Program f4 Var Y : real; 	x : integer ; Begin For x := -5 to 5 do beg...
Program z; Var i : integer; 	 S: real; begin S:=0; For i:=1 to 10 do begin...
Задание: Составьте программу вычисления суммы ряда:
1 из 14

Описание презентации по отдельным слайдам:

№ слайда 1 Операторы циклов с условиями
Описание слайда:

Операторы циклов с условиями

№ слайда 2 Цикл – это структура, в которой некоторая серия команд выполняется несколько
Описание слайда:

Цикл – это структура, в которой некоторая серия команд выполняется несколько раз.

№ слайда 3 В языке программирования паскаль существует три типа циклов: FOR – цикл с за
Описание слайда:

В языке программирования паскаль существует три типа циклов: FOR – цикл с заданным числом повторений (цикл с параметром) REPEAT – цикл с постусловием WHILE – цикл с предусловием

№ слайда 4 Оператор цикла с постусловием REPEAT 	; ; … ; UNTIL ; Вначале выполняется тел
Описание слайда:

Оператор цикла с постусловием REPEAT <Оператор 1>; <Оператор 2>; … <Оператор n>; UNTIL <условие>; Вначале выполняется тело цикла, затем проверяется условие. Цикл выполняется ПОКА условие ЛОЖНО. Как только условие становится ИСТИНЫМ, действие цикла прерывается.

№ слайда 5 Пример 1. Program f1; Var i : integer; begin For i:=1 to 25 do 	begin 	 Write
Описание слайда:

Пример 1. Program f1; Var i : integer; begin For i:=1 to 25 do begin Writeln (‘Привет ‘); end; end. Program f1; Var i : integer; Begin i:=1; REPEAT Writeln (‘Привет ‘); i:=i+1; UNTIL i>25; end. Вывести на экран 25 раз слово "Привет".

№ слайда 6 Цикл c предусловием WHILE  DO 		Begin 			; 		End;
Описание слайда:

Цикл c предусловием WHILE <условие> DO Begin <Операторы>; End;

№ слайда 7 Задание: Вывести на экран все целые числа от 10 до 100 . Program f11; Var i :
Описание слайда:

Задание: Вывести на экран все целые числа от 10 до 100 . Program f11; Var i : integer; begin For i:=10 to 100 do begin Writeln (i); end; end. Program f11; Var i : integer; Begin i:=10; REPEAT Writeln (i); i:=i+1; UNTIL i>100; end.

№ слайда 8 Пример 2. Program f2; Var I : integer; 	S : integer; Begin 	S := 0 ; 	For i:=
Описание слайда:

Пример 2. Program f2; Var I : integer; S : integer; Begin S := 0 ; For i:=1 to 23 do begin S := S+i; end; Writeln ( ‘ S= ‘ , S ) ; End. Найти сумму чисел от 1 до 23. Program f2; Var I : integer; S : integer; Begin S := 0 ; i:=1; REPEAT S := S+i; i:=i+1; UNTIL i>23; Writeln ( ‘ S= ‘ , S ) ; End.

№ слайда 9 Задание: Найти сумму натуральных чисел от 50 до 75 Program f22; Var i : integ
Описание слайда:

Задание: Найти сумму натуральных чисел от 50 до 75 Program f22; Var i : integer; S : integer; Begin S := 0 ; i:=50; REPEAT S := S+i; i:=i+1; UNTIL i>75; Writeln ( ‘ S= ‘ , S ) ; End.

№ слайда 10 Пример 3. Program f3; Var n, i : integer; begin Writeln (‘введите число n’);
Описание слайда:

Пример 3. Program f3; Var n, i : integer; begin Writeln (‘введите число n’); Readln (n); For i:=1 to n do begin If n mod i=0 then Writeln (i, ‘ ‘); end; End. Вывести на экран делители числа N. Program f3; Var n, i : integer; begin Writeln (‘введите число n’); Readln (n); i:=1; REPEAT If n mod i=0 then Writeln (i, ‘ ‘); i:=i+1; UNTIL i>n; end.

№ слайда 11 Задание: Найти все числа от 33 до 555, которые кратны 13.   Program f33; Var
Описание слайда:

Задание: Найти все числа от 33 до 555, которые кратны 13.   Program f33; Var i : integer ; Begin i := 35; REPEAT If i mod 13 = 0 then write ( i , ‘ ‘) ; i:=i+1; UNTIL i>555; End.

№ слайда 12 Пример. Program f4 Var Y : real; 	x : integer ; Begin For x := -5 to 5 do beg
Описание слайда:

Пример. Program f4 Var Y : real; x : integer ; Begin For x := -5 to 5 do begin Writeln ( 0.5*x-2 ) ; end; End. Вывести на экран значения функции y=0,5x-2 для x от -5 до 5. Program f4 Var Y : real; x : integer ; Begin x := -5; REPEAT Writeln ( 0.5*x-2 ) ; X:=x+1; UNTIL x>5; End.

№ слайда 13 Program z; Var i : integer; 	 S: real; begin S:=0; For i:=1 to 10 do begin
Описание слайда:

Program z; Var i : integer; S: real; begin S:=0; For i:=1 to 10 do begin S:=S+1/i; end; Writeln (‘Сумма чисел = ‘, S); end. Пример. Вычислить сумму ряда: Program z; Var i : integer; S: real; begin S:=0; i:=1; REPEAT S:=S+1/i; i:=i+1; UNTIL i>10; Writeln (‘Сумма чисел = ‘, S); end.

№ слайда 14 Задание: Составьте программу вычисления суммы ряда:
Описание слайда:

Задание: Составьте программу вычисления суммы ряда:

Выберите курс повышения квалификации со скидкой 50%:

Автор
Дата добавления 06.10.2015
Раздел Информатика
Подраздел Презентации
Просмотров150
Номер материала ДВ-035013
Получить свидетельство о публикации

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх