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

Получите 5% кэшбэк!

Запишитесь на один из 793 курсов и получите 5% кэшбэк стоимости курса на карту

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

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

Скачать материал
библиотека
материалов
Циклы

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

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.

  • Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
    Пожаловаться на материал
Курс повышения квалификации
Курс профессиональной переподготовки
Учитель математики и информатики
Курс профессиональной переподготовки
Учитель информатики
Скачать материал
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Общая информация
Скачать материал

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.