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

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

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика
Циклы
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;...
1 из 12

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

№ слайда 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% скидкой при обучении по программам профессиональной переподготовки.

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

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

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

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

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

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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