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

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

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

Презентация на тему: Циклы

библиотека
материалов
Язык программирования Pascal Повторение Циклы
Оператор цикла for Оператор цикла for имеет одну из двух форм: СИНТАКСИС: 1 ф...
Оператор цикла for СЕМАНТИКА 1 форма: for переменная := начальное значение to...
Оператор цикла FOR 1. For1. Даны целые числа K и N (N > 0). Вывести N раз чис...
Оператор цикла FOR Напечатать свое имя, столько раз сколько тебе лет. Дано: n...
Задание на самоподготовку Задание 1. For2. Даны два целых числа A и B (A 
Оператор цикла FOR Задание 1. For2. Даны два целых числа A и B (A 
Оператор цикла FOR Задание 2. For3. Даны два целых числа A и B (A 
Оператор цикла FOR Задание 3. For4. Дано вещественное число — цена 1 кг конфе...
Оператор цикла FOR Задание 4. Задать произвольное слово. Напечатать на экране...
Оператор цикла FOR For9. Даны два целых числа A и B (A 
Оператор цикла FOR For39. Даны целые положительные числа A и B (A 
Задание на самоподготовку 1. For14. Дано целое число N (> 0). Найти квадрат д...
Оператор цикла while ( цикл с предусловием ) СИНТАКСИС: while  do ;  - выраже...
Оператор цикла while Распечатать квадраты чисел, находящихся в диапазоне от 0...
Оператор цикла while Составьте таблицу значений функции y = 5x2 – 2x + 1 на о...
Задание на оператор while Даны целые положительные числа N и K. Используя тол...
Задание на оператор while Даны целые положительные числа N и K. Используя тол...
Задание на оператор while Дано целое число N (> 1). Найти наибольшее целое чи...
Задание на оператор while Дано целое число N (> 0). Используя операции делени...
Задание на оператор while Начальный вклад в банке равен 1000 руб. Через кажды...
Задание на оператор while Даны два положительных целых числа A и B (1
Оператор цикла repeat Оператор цикла repeat имеет следующую форму: СИНТАКСИС:...
Задание на самоподготовку Задание 1. Определить  число n, при котором сумма к...
Задание на оператор repeat Задание 1. Определить  число n, при котором сумма...
Задание на самоподготовку Задание 2. Напечатать таблицу функций sin x и cos x...
Задание на самоподготовку Задание 3. Вычислить значения функции f(x)= x3 – 3x...
27 1

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

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

Язык программирования Pascal Повторение Циклы

№ слайда 2 Оператор цикла for Оператор цикла for имеет одну из двух форм: СИНТАКСИС: 1 ф
Описание слайда:

Оператор цикла for Оператор цикла for имеет одну из двух форм: СИНТАКСИС: 1 форма. for переменная := начальное значение to конечное значение do оператор (начальное значение < конечное значение) 2 форма. for переменная := начальное значение downto конечное значение do  оператор (начальное значение > конечное значение) Заголовок цикла - текст от слова for до слова do включительно, Тело цикла - оператор после слова do, в том числе составной оператор (begin…end). Параметр цикла - переменная после слова for. СЕМАНТИКА: Для 1 формы цикла со словом to параметр цикла, увеличивается всякий раз на единицу. Для 2 формы со словом downto - параметр цикла уменьшается на единицу. Примеры: for k=3 to 7 do write (k,k*k,’ПРИВЕТ’); for n=9 downto 4 do write (n,2*n,’ответ’);

№ слайда 3 Оператор цикла for СЕМАНТИКА 1 форма: for переменная := начальное значение to
Описание слайда:

Оператор цикла for СЕМАНТИКА 1 форма: for переменная := начальное значение to конечное значение do оператор Шаг 1. При входе в цикл <переменной> присваивается <начальное значение>. Шаг 2. Проверяется условие переменная <= конечное значение Если условие TRUE - исполняется тело цикла Если условие FALSE – цикл завершается, исполняется оператор за телом цикла Шаг 3. После исполнения тела цикла переменная модифицируется переменная:=переменная +1 Шаг 4. Цикл продолжается с шага 2

№ слайда 4 Оператор цикла FOR 1. For1. Даны целые числа K и N (N &gt; 0). Вывести N раз чис
Описание слайда:

Оператор цикла FOR 1. For1. Даны целые числа K и N (N > 0). Вывести N раз число K. Дано: K и N – целые Найти: Write (‘k=‘,k) N-раз program NK; var N,K,I:integer; begin write ('введите целое N='); readln (N); write ('введите целое K='); readln (K); for I:=1 to N do writeln ('K=',K,' I=',I); end.

№ слайда 5 Оператор цикла FOR Напечатать свое имя, столько раз сколько тебе лет. Дано: n
Описание слайда:

Оператор цикла FOR Напечатать свое имя, столько раз сколько тебе лет. Дано: name – имя (текст) V – возраст (целое) Найти: write (name) V - раз program NK; var v,I:integer; name:string; begin write ('введите своё имя Name='); readln (Name); write ('введите свой возраст в годах V='); readln (V); for I:=1 to V do writeln('Name=',Name,' I=',I); end.

№ слайда 6 Задание на самоподготовку Задание 1. For2. Даны два целых числа A и B (A 
Описание слайда:

Задание на самоподготовку Задание 1. For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел. Задание 2. For3. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел. Задание 3. For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. Задание 4. Задать произвольное слово. Напечатать на экране слово N раз. Лесенкой (со сдвигом вправо). Вася Вася Вася

№ слайда 7 Оператор цикла FOR Задание 1. For2. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR Задание 1. For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также их квадраты, кубы и количество N этих чисел. program AIB; var A,B,i,N:integer; begin writeln ('введите А и В - целые A < B'); readln (A,B); for i:=A to B do writeln (i:10, i*i:10, i*i*i:10); N:=B-A+1; writeln ('N=',N); end.

№ слайда 8 Оператор цикла FOR Задание 2. For3. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR Задание 2. For3. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел. program AIB; var A,B,i,N:integer; begin writeln ('введите А и В - целые A < B'); readln (A,B); N:=0; for i:=B-1 downto A+1 do begin writeln (i:10, i*i:10, i*i*i:10); N:=N+1; end; writeln ('N=',N); end.

№ слайда 9 Оператор цикла FOR Задание 3. For4. Дано вещественное число — цена 1 кг конфе
Описание слайда:

Оператор цикла FOR Задание 3. For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. program konf; var i :integer; C:real; begin writeln ('введите цену 1 кг конфет = '); read (C); for i:=1 to 10 do writeln (i, ' кг конфет стоят',i*c:8:2,' рублей'); end.

№ слайда 10 Оператор цикла FOR Задание 4. Задать произвольное слово. Напечатать на экране
Описание слайда:

Оператор цикла FOR Задание 4. Задать произвольное слово. Напечатать на экране слово N раз лесенкой (со сдвигом вправо). Вася Вася Вася program NK; var N,i,k:integer; sl:string; begin write ('введите слово'); readln (sl); write ('введите N>0-целое'); readln (n); for i:=1 to N do begin write('I=',I); for k:=1 to i do write (' '); writeln(sl); end; end.

№ слайда 11 Оператор цикла FOR For9. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR For9. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно. program ABSUM2; var A,B,I,S:integer; begin write ('введите целое A='); readln (A); write ('введите целое B='); readln (B); s:=0; for I:=A to B do s:=s+I*I; writeln('сумма квадратов S=',S); end.

№ слайда 12 Оператор цикла FOR For39. Даны целые положительные числа A и B (A 
Описание слайда:

Оператор цикла FOR For39. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза). program ABSUM2; var A,B,I,K:integer; begin write ('введите целое A='); readln (A); write ('введите целое B='); readln (B); for I:=A to B do begin for K:=1 to I do write(I); writeln; end end.

№ слайда 13 Задание на самоподготовку 1. For14. Дано целое число N (&gt; 0). Найти квадрат д
Описание слайда:

Задание на самоподготовку 1. For14. Дано целое число N (> 0). Найти квадрат данного числа, используя для его вычисления следующую формулу: N2 = 1 + 3 + 5 + … + (2·N − 1). После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до N). 2. For40. Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т. д. 3. For21. Дано целое число N (> 0). Используя один цикл, найти сумму 1 + 1/(1!) + 1/(2!) + 1/(3!) + … + 1/(N!) (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N:    N! = 1·2·…·N). Полученное число является приближенным значением константы e = exp(1).

№ слайда 14 Оператор цикла while ( цикл с предусловием ) СИНТАКСИС: while  do ;  - выраже
Описание слайда:

Оператор цикла while ( цикл с предусловием ) СИНТАКСИС: while <условие> do <оператор>; <Условие> - выражение логического типа. <Оператор> после do называется телом цикла. <Оператор> может быть составным (begin…end) СЕМАНТИКА: 1. Вычисляется <условие>, 2. Если <условие> истинно (TRUE), выполняется тело цикла, в противном случае (FALSE) происходит выход из цикла. Если <условие> всегда истинно, будет зацикливание, например: while 2>1 do write(1); Прервать зацикливание - клавиш <Ctrl-F2> или кнопку«stop» . Тело цикла while в Pascal ABC не может быть пустым.

№ слайда 15 Оператор цикла while Распечатать квадраты чисел, находящихся в диапазоне от 0
Описание слайда:

Оператор цикла while Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2 Дано: XH=0 XK=1 dX=0,2 Найти X2 var k,s:real; begin s := 0; while s <= 1 do begin k := s*s; writeln ('s=',s,' k=',k); s := s + 0.2; end; end.

№ слайда 16 Оператор цикла while Составьте таблицу значений функции y = 5x2 – 2x + 1 на о
Описание слайда:

Оператор цикла while Составьте таблицу значений функции y = 5x2 – 2x + 1 на отрезке [-5; 5]  с шагом     x = 2. Дано: XH= - 5 XK= 5 dX= 2 Найти: y = 5x2 – 2x + 1 var y,x:real; begin x := -5; while x <= 5 do begin y := 5*x*x-2*x+1; writeln ('x=', x ,'y=', y); x := x + 2; end; end.

№ слайда 17 Задание на оператор while Даны целые положительные числа N и K. Используя тол
Описание слайда:

Задание на оператор while Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 2K < N. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число). Даны два положительных целых числа A и B (1<A<B). Вывести все простые числа, расположенные между A и B, в порядке их возрастания, а также количество этих чисел.

№ слайда 18 Задание на оператор while Даны целые положительные числа N и K. Используя тол
Описание слайда:

Задание на оператор while Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Дано: N и K – целые положительные Найти: N div K, N mod K Пусть N=13 K=4 13 – 4 = 9 (9>=4, продолжать) 9 – 4 = 5 (5>=4, продолжать) 5 – 4 = 1 (1<4, завершить) N div K N mov K program divmod; var N,K,N1,S:integer; begin writeln ('введите N и K - целые'); readln (N,K); N1:=N; S:=0; while N1>=K do begin N1:=N1-K; S:=S+1; end; writeln (N,' div ',K,' = ',S); writeln (N,' mod ',K,' = ',N1); end.

№ слайда 19 Задание на оператор while Дано целое число N (&gt; 1). Найти наибольшее целое чи
Описание слайда:

Задание на оператор while Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 2K < N. program NK; var N,K,P: integer; begin writeln ('введите N - целое'); readln (N); P:=1; k:=0; while P<=N do begin p:=2*P; K:=K+1; end; write ('k=',K-1); end.

№ слайда 20 Задание на оператор while Дано целое число N (&gt; 0). Используя операции делени
Описание слайда:

Задание на оператор while Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). program cifra; var N,sifra,ost: integer; begin writeln ('введите N - целое'); readln (N); ost:=N; while ost<>0 do begin sifra:=ost mod 10; write (' ',sifra); ost:=(ost-sifra) div 10; end; end.

№ слайда 21 Задание на оператор while Начальный вклад в банке равен 1000 руб. Через кажды
Описание слайда:

Задание на оператор while Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число). program vklad; var v,p, vk, s, k: real; begin write ('Величина вклада V= '); readln (V); write ('Процент по вкладу P= '); readln (P); write ('Порог вклада Vk= '); readln (VK); k:=0; S:=V; while S<VK do begin S:=S+S*P/100; k:=k+1; end; writeln ('Конечный размер вклада S= ',S); writeln (' через ', k , ' месяцев'); end.

№ слайда 22 Задание на оператор while Даны два положительных целых числа A и B (1
Описание слайда:

Задание на оператор while Даны два положительных целых числа A и B (1<A<B). Вывести все простые числа, расположенные между A и B, в порядке их возрастания, а также количество этих чисел.

№ слайда 23 Оператор цикла repeat Оператор цикла repeat имеет следующую форму: СИНТАКСИС:
Описание слайда:

Оператор цикла repeat Оператор цикла repeat имеет следующую форму: СИНТАКСИС: repeat   <операторы> until <условие> СЕМАНТИКА: 1. <Условие> вычисляется после очередной итерации цикла, 2. Если <условие> истинно (TRUE), то происходит выход из цикла. Тело цикла оператора repeat, выполняется по крайней мере один раз. Оператор repeat используют, когда <условие> нельзя проверить, не выполнив тело цикла. Например: проверка данных при вводе repeat   read(x); until x=0; Если условие всегда ложно (FALSE) происходит зацикливание: repeat   write(1); until 2=1;

№ слайда 24 Задание на самоподготовку Задание 1. Определить  число n, при котором сумма к
Описание слайда:

Задание на самоподготовку Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K. Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:     x              sin(x)          cos(x) --------------------------------- 0.0000        0.0000        1.0000 0.1000        0.0998        0.9950 Задание 3. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом x=0,2.

№ слайда 25 Задание на оператор repeat Задание 1. Определить  число n, при котором сумма
Описание слайда:

Задание на оператор repeat Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K. program sum_sqr; var k, s, n : integer; begin writeln( 'Введите K' ); readln (k); s:=0; n:=0; repeat n := n+1; s:=s+n*n; until s > k; s:= s-n*n; n:=n-1; writeln('N= ', n, ‘ s=' ,s ); end.

№ слайда 26 Задание на самоподготовку Задание 2. Напечатать таблицу функций sin x и cos x
Описание слайда:

Задание на самоподготовку Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:     x              sin(x)          cos(x) --------------------------------- 0.0000        0.0000        1.0000 0.1000        0.0998        0.9950 Program Table; Const xn=0; xk=1; dx=0.1; Var x: Real; Begin x:=xn; Writeln(' x  sin(x)  сos(x)'); Writeln('----------------------------'); While x<=xk Do Begin Writeln(x:8:4,sin(x):8:4,cos(x):8:4); x:=x+dx End; End.

№ слайда 27 Задание на самоподготовку Задание 3. Вычислить значения функции f(x)= x3 – 3x
Описание слайда:

Задание на самоподготовку Задание 3. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом x=0,2. Program Table; Const xn=-2; xk=2; dx=0.2; Var x, fx : Real; Begin x:=xn; Writeln(' x  f(x)'); Writeln('----------------'); x:=xn; repeat fx:=x*x*x-3*x; Writeln(x:8:4,fx:8:4); x := x+dx; until x > xk; end.

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

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

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

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

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

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