Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Презентация к уроку(Язык программирования Паскаль"Цикл")
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Презентация к уроку(Язык программирования Паскаль"Цикл")

библиотека
материалов
Циклы
I. Цикл с параметром. Выполняется заранее определенное количество раз. FOR –...
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. Цикл с преду...
Пример 3. Вывести на экран 64 вертикальные линии. Program n3; Uses Crt, Graph...
Задача 1. Дано целое число N (N>0). Используя один цикл найти сумму 1+ 1/2 +...
Задача 2. Написать программу выводящую на экран все двузначные числа сумма ци...
Задача 3. (Вычисление суммы бесконечного ряда с определенной точностью). Вычи...
Задача 4. Найти количество цифр в числе введенном с клавиатуры. Program n8; U...
Задача 5. Найти сумму целых четных чисел от 2 до 100. Program n10; Uses crt;...
12 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

№ слайда 1 Циклы
Описание слайда:

Циклы

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

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

№ слайда 3 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 вертикальные линии.

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

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

№ слайда 5 Пример 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. повторять до тех пор пока условие ложно

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

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

№ слайда 7 Пример 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

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

Задача 1. Дано целое число 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. Результат очень легко проверить в ручную

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

Задача 2. Написать программу выводящую на экран все двузначные числа сумма цифр которых равна 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.

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

Задача 3. (Вычисление суммы бесконечного ряда с определенной точностью). Вычислите значение суммы ряда с точностью Е=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.

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

Задача 4. Найти количество цифр в числе введенном с клавиатуры. 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. Если n имеет тип integer то эту строку можно записать так: n:=n div 10;

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

Задача 5. Найти сумму целых четных чисел от 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.


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 27.02.2016
Раздел Информатика
Подраздел Презентации
Просмотров170
Номер материала ДВ-488100
Получить свидетельство о публикации
Похожие материалы

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