Инфоурок / Информатика / Презентации / Презентация по информатике с методическим сопровождением "Циклы в языке программирования Pascal"
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Я люблю природу», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 15 ДЕКАБРЯ!

Конкурс "Я люблю природу"

Презентация по информатике с методическим сопровождением "Циклы в языке программирования Pascal"




Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


библиотека
материалов
Циклы Презентация по программированию 2015 год
Часть 1. Виды циклов.
I. Цикл с параметром. Выполняется заранее определенное количество раз. FOR –...
i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGI...
Program n1;   Uses Crt, GraphABC;   var x,y,i:Integer; begin        x:=1;    ...
II. Цикл с постусловием. Выполняется всегда хотя бы один раз. Выполняется пок...
Пример 2. Вывести на экран 64 вертикальные линии. Program n2; Uses Crt, Graph...
WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; III. Цикл с преду...
WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; условие Действие...
Пример 3. Вывести на экран 64 вертикальные линии. Program n3; Uses Crt, Graph...
Часть 2. Графические задачи на циклы.
Задача 1. Составить программу выводящую на экран следующее изображение Progra...
Задача 2. Составить программу выводящую на экран следующее изображение Progra...
Задача 3. Составить программу выводящую на экран следующее изображение Progra...
Часть 3. Расчетные задачи на циклы.
Построить таблицу значений функции y = 3 sin x + cos 2x на интервале [-1 ; 1]...
Построить таблицу значений функции, на интервале [-10 ; 10] с шагом Δх = 1. З...
Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat...
Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat...
Задача 4. Составить программу вычисления среднего арифметического числовой по...
Задача 5. Дано целое число N (N>0). Используя один цикл найти сумму 1+ 1/2 +...
Задача 6. Написать программу выводящую на экран все двузначные числа сумма ци...
Блок-схема к задаче 5 начало D,1,9 E,0,9 d+e=10 Вывод d*10+e конец Тело цикла...
Задача 7. (Вычисление суммы бесконечного ряда с определенной точностью). Вычи...
Задача 8. Вычислить площадь фигуры ограниченной линиями: X=1, X=4, Y=0, . Pro...
Задача 9. Найти количество цифр в числе введенном с клавиатуры. Program n8; U...
Часть 4. Всегда ли нужны циклы.
Задача 10. Найти сумму целых четных чисел от 2 до 100. Program n10; Uses crt;...
Program n10; Uses crt; var s:Real; begin Clrscr; s:=(2+100)/2*50; writeln('s=...
29 1

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

№ слайда 1 Циклы Презентация по программированию 2015 год
Описание слайда:

Циклы Презентация по программированию 2015 год

№ слайда 2 Часть 1. Виды циклов.
Описание слайда:

Часть 1. Виды циклов.

№ слайда 3 I. Цикл с параметром. Выполняется заранее определенное количество раз. FOR –
Описание слайда:

I. Цикл с параметром. Выполняется заранее определенное количество раз. FOR – для TO – до DO - выполнить ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ действие; FOR i:=1 TO N DO действие; FOR i:=1 TO N DO BEGIN действие1; действие2; END; FOR i:=N DOWNTO 1 DO действие; Виды циклов. 1 если переменная i убывает если в теле цикла несколько действий если в теле цикла одно действие

№ слайда 4 i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGI
Описание слайда:

i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGIN действие1; действие2; END; FOR i:=1 TO N DO действие1; действие2; Блок-схема цикла с параметром. Виды циклов. 2

№ слайда 5 Program n1;   Uses Crt, GraphABC;   var x,y,i:Integer; begin        x:=1;    
Описание слайда:

Program n1;   Uses Crt, GraphABC;   var x,y,i:Integer; begin        x:=1;             // устанавливаем координату  Х первой линии        For i:=1 to 64 do begin        // перебираем от 1 до 64                                       Line (x,0,x,400);   // рисуем очередную линию                                       x:=x + 10; // увеличиваем координату на 10                                     end; end. Пример 1. Вывести на экран 64 вертикальные линии. Виды циклов. 3

№ слайда 6 II. Цикл с постусловием. Выполняется всегда хотя бы один раз. Выполняется пок
Описание слайда:

II. Цикл с постусловием. Выполняется всегда хотя бы один раз. Выполняется пока условие ложно. REPEAT – повторять UNTIL – до тех пор ПОВТОРЯТЬ действие1; действие2; ДО ТЕХ ПОР (ПОКА УСЛОВИЕ ЛОЖНО); REPEAT действие1; действие2; UNTIL (ПОКА УСЛОВИЕ ЛОЖНО); Виды циклов. 4

№ слайда 7 Пример 2. Вывести на экран 64 вертикальные линии. Program n2; Uses Crt, Graph
Описание слайда:

Пример 2. Вывести на экран 64 вертикальные линии. Program n2; Uses Crt, GraphABC; var x:Integer; begin     x:=1;       repeat            Line (x,0,x,400);            x:=x+10;      until (x>640)  end. Виды циклов. 5 повторять до тех пор пока условие ложно

№ слайда 8 WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; III. Цикл с преду
Описание слайда:

WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; III. Цикл с предусловием. Может не выполнится не разу. Выполняется пока условие истинно. WHILE – пока DO – выполнять ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ НАЧАЛО действие1; действие2; КОНЕЦ; Виды циклов. 6

№ слайда 9 WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; условие Действие
Описание слайда:

WHILE (УСЛОВИЕ ИСТИННО) DO BEGIN действие1; действие2; END; условие Действие 1 Действие 2 да нет WHILE (УСЛОВИЕ ИСТИННО) DO действие1; действие2; условие Действие 1 Действие 2 да нет Виды циклов. 7

№ слайда 10 Пример 3. Вывести на экран 64 вертикальные линии. Program n3; Uses Crt, Graph
Описание слайда:

Пример 3. Вывести на экран 64 вертикальные линии. Program n3; Uses Crt, GraphABC; var x:Integer; begin      x:=1;        while(x<640) do begin                                         Line (x,0,x,400);                                       x:=x+10;                                  end; end. Виды циклов. 8 повторять пока Х меньше 640

№ слайда 11 Часть 2. Графические задачи на циклы.
Описание слайда:

Часть 2. Графические задачи на циклы.

№ слайда 12 Задача 1. Составить программу выводящую на экран следующее изображение Progra
Описание слайда:

Задача 1. Составить программу выводящую на экран следующее изображение Program n1; Uses Crt, GraphABC; var x,i:Integer; begin x:=1; For i:=1 to 64 do begin line(320,400,x,1); x:=x+10; end; end. Более короткое решение: Program n1; Uses Crt, GraphABC; var x:Integer; begin For x:=1 to 64 do line(320,400,x*10,1); end. Графические задачи на циклы. 9

№ слайда 13 Задача 2. Составить программу выводящую на экран следующее изображение Progra
Описание слайда:

Задача 2. Составить программу выводящую на экран следующее изображение Program n2; Uses Crt, GraphABC; var x,y:Integer; begin x:=1; y:=1; repeat Line (x, 0 , 0 , y); x:=x + 16; y:=y + 10; until (x>640); end. В теле цикла могут изменяться две переменные Графические задачи на циклы. 10

№ слайда 14 Задача 3. Составить программу выводящую на экран следующее изображение Progra
Описание слайда:

Задача 3. Составить программу выводящую на экран следующее изображение Program n3; Uses Crt,GraphABC; var i,j,x,y:Integer; Begin clrscr; y:=10; for i:=1 to 12 do begin x:=10; for j:=1 to 20 do begin circle (x,y,10); x:=x+30; end; y:=y+30; end; end. Вывод i-ой строки Изменение координаты Y строки Графические задачи на циклы 12

№ слайда 15 Часть 3. Расчетные задачи на циклы.
Описание слайда:

Часть 3. Расчетные задачи на циклы.

№ слайда 16 Построить таблицу значений функции y = 3 sin x + cos 2x на интервале [-1 ; 1]
Описание слайда:

Построить таблицу значений функции y = 3 sin x + cos 2x на интервале [-1 ; 1] с шагом Δх = 0,1. Задача 1. Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat y:= 3*sin(x) + cos(2*x); writeln ('x= ',x:7:5,' y= ',y:7:5); x:=x+dx; until (x>1); end. Расчетные задачи на циклы 13

№ слайда 17 Построить таблицу значений функции, на интервале [-10 ; 10] с шагом Δх = 1. З
Описание слайда:

Построить таблицу значений функции, на интервале [-10 ; 10] с шагом Δх = 1. Задача 2. Построить таблицу значений функции на интервале [-1; 1] с шагом Δх = 0,1 если функция имеет вид: x+1, при x<-0.5 Y= x2 , при -0.5<=x<=0.5 x -2, при x>0.5 Задача 3. repeat if (x<-0.5) then y:=x+1; if (x>=-0.5) and (x<=0.5) then y:=x*x; if (x>0.5) then y:=x-2; writeln ('x= ',x:7:5,' y= ',y:7:5); x:=x+dx; until (x>1); repeat if (x<>1) then begin y:= (x+1)/(1-x); writeln ('x= ',x:7,' y= ',y:7:5); end; x:=x+dx; until (x>10); Расчетные задачи на циклы 14

№ слайда 18 Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat
Описание слайда:

Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat if (x<>0) then begin y:= 1/x; writeln ('x= ',x:7:5,' y= ',y:7:5); end; x:=x+dx; until (x>1); end. Небольшое отступление: Построить таблицу значений функции y = 1/х на интервале [-1; 1] с шагом 0,1 Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat if (x<>0) then begin y:= 1/x; writeln ('x= ',x,' y= ',y:7:5); end; x:=x+dx; until (x>1); end. Изменим формат вывода Нуля нет! А в место него число в минус шестнадцатой степени. Расчетные задачи на циклы 15

№ слайда 19 Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat
Описание слайда:

Program n1; Uses Crt; var x,y,dx:real; begin ClrScr; x:= -1; dx:=0.1; repeat if (abs(x)>1e-12) then begin y:= 1/x; writeln ('x= ',x:7:5,' y= ',y:7:5); end; x:=x+dx; until (x>1); end. Пусть все числа, по модулю меньшие 0,000000000001 будут для нас нулями. Вот одно из возможных решений данной проблемы: Расчетные задачи на циклы 16

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

Задача 4. Составить программу вычисления среднего арифметического числовой последовательности. Где количество элементов и сами элементы вводятся с клавиатуры. Program n4; Uses Crt; var i,n:integer; a,s,sr:real; Begin ClrScr; write('N=');readln(n); s:=0; for i:=1 to n do begin write( ‘ Введи [ ‘ , i , ‘ ] = ‘ );Readln(a); s:=s+a; end; sr:=s/n; writeln(‘Среднее арифметическое = ',sr:10:5) end. Математическая запись задачи Результат выполнения программы Расчетные задачи на циклы 17

№ слайда 21 Задача 5. Дано целое число N (N&gt;0). Используя один цикл найти сумму 1+ 1/2 +
Описание слайда:

Задача 5. Дано целое число N (N>0). Используя один цикл найти сумму 1+ 1/2 + 1/3 +…+1/N Program n1; Uses crt; var s:real; i,n:Integer; begin Clrscr; Write(‘Введи n=');Readln(n); s:=0; For i:=1 to N do s:=s+1/i; writeln('s=',s:10:5); End. Результат очень легко проверить в ручную Расчетные задачи на циклы 18

№ слайда 22 Задача 6. Написать программу выводящую на экран все двузначные числа сумма ци
Описание слайда:

Задача 6. Написать программу выводящую на экран все двузначные числа сумма цифр которых равна 10. program n6; Uses Crt; var e,d:integer; begin ClrScr; for d:=1 to 9 do for e:=0 to 9 do if d+e=10 then writeln(d*10+e); end. Расчетные задачи на циклы 19

№ слайда 23 Блок-схема к задаче 5 начало D,1,9 E,0,9 d+e=10 Вывод d*10+e конец Тело цикла
Описание слайда:

Блок-схема к задаче 5 начало D,1,9 E,0,9 d+e=10 Вывод d*10+e конец Тело цикла Внутренний цикл Внешний цикл да нет Расчетные задачи на циклы 20

№ слайда 24 Задача 7. (Вычисление суммы бесконечного ряда с определенной точностью). Вычи
Описание слайда:

Задача 7. (Вычисление суммы бесконечного ряда с определенной точностью). Вычислите значение суммы ряда с точностью Е=0,02 Сумма вычисляется до тех пор, пока очередное слагаемое не станет меньше точности Е Program n7; Uses crt; var s,e:real; i:integer; begin clrscr; s:=0; i:=1; e:=0.02; Repeat s:=s+1/i; Writeln('i=',i,' слагаемое',1/i); i:=i+1; until (e>1/i); writeln('S=',s:10:5); end. Расчетные задачи на циклы 21

№ слайда 25 Задача 8. Вычислить площадь фигуры ограниченной линиями: X=1, X=4, Y=0, . Pro
Описание слайда:

Задача 8. Вычислить площадь фигуры ограниченной линиями: X=1, X=4, Y=0, . Program n8; Uses Crt; Var x,h,s:Real; Begin ClrScr; h:=(4-1)/1000; x:=1; Repeat s:=s+h*1/x; x:=x+h; Until x>4; writeln('Площадь = ',S:10:5); end. Ширина прямоугольника h:=(4-1)/1000; Высота прямоугольника 1/x Площадь одного прямоугольника h*1/x Расчетные задачи на циклы 22

№ слайда 26 Задача 9. Найти количество цифр в числе введенном с клавиатуры. Program n8; U
Описание слайда:

Задача 9. Найти количество цифр в числе введенном с клавиатуры. Program n8; Uses Crt; Var n:Real; k:Integer; Begin ClrScr; Write ('N= ');readln(n); k:=0; Repeat n:=int(n/10); k:=k+1; Until n<0.1; writeln('Кол-во = ',k:5); end. Расчетные задачи на циклы 23 Если n имеет тип integer то эту строку можно записать так: n:=n div 10;

№ слайда 27 Часть 4. Всегда ли нужны циклы.
Описание слайда:

Часть 4. Всегда ли нужны циклы.

№ слайда 28 Задача 10. Найти сумму целых четных чисел от 2 до 100. Program n10; Uses crt;
Описание слайда:

Задача 10. Найти сумму целых четных чисел от 2 до 100. Program n10; Uses crt; var i,s:Integer; begin Clrscr; s:=0; For i:=2 to 100 do if (i mod 2 = 0) then s:=s+i; writeln('s=',s:10); End. Всегда ли нужны циклы 23

№ слайда 29 Program n10; Uses crt; var s:Real; begin Clrscr; s:=(2+100)/2*50; writeln(&#039;s=
Описание слайда:

Program n10; Uses crt; var s:Real; begin Clrscr; s:=(2+100)/2*50; writeln('s=',s:10:5); End. Вспомним формулу суммы n членов арифметической прогрессии Всегда ли нужны циклы 24 Найдем количество n членов в этой последовательности: an=a1+d(n-1) 100=2+2(n-1) 100=2+2n-2 100=2n n=50 Подставим значения в формулу суммы

Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 20 декабря. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДБ-110474
Курсы профессиональной переподготовки
133 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 20 декабря
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>