1285956
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5.520 руб.;
- курсы повышения квалификации от 1.200 руб.
Престижные документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 70%

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаПрезентацииЗадачи. Циклы на языке Паскаль.

Задачи. Циклы на языке Паскаль.

библиотека
материалов
REPEAT  UNTIL  ; Цикл с пост условием WHILE   DO         begin               ...
Задача №1 program example; var    sum:real;    n:real; BEGIN    sum:=0;    n...
Задача №3 Var  I, n,x,sum: integer; Begin   Write('Введите N=');   Readln(n);...
Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В. ...
Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый след...
Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов. Числа Фибонач...
Домашнее задание Дано натуральное число. Вывести на экран все натуральные чис...
№1 program FromOneToN; var i, n: word; begin readln(n); for i := 1 to n do be...

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

1 слайд
Описание слайда:

2 слайд REPEAT  UNTIL  ; Цикл с пост условием WHILE   DO         begin               
Описание слайда:

REPEAT <тело цикла> UNTIL  <условие>; Цикл с пост условием WHILE  <условие> DO         begin                  <тело цикла>          end; Цикл с пред условием for i:= 1 to n do Цикл с параметром Циклы в Паскале

3 слайд Задача №1 program example; var    sum:real;    n:real; BEGIN    sum:=0;    n
Описание слайда:

Задача №1 program example; var    sum:real;    n:real; BEGIN    sum:=0;    n:=1;    while n <= 30 do         begin            sum:=sum+n;            n:=n+0.5;          end;    writeln('Сумма равна: ',sum); END. Ответ: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30 Задача №2 Program Summa; Var   S:real;       N:integer; Begin   S:=0;N:=0;   repeat     N:=n+1;     S:=s+1/n   Until n>1000;   Writeln(s);   Readln End. Ответ: Подсчета суммы первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N

4 слайд Задача №3 Var  I, n,x,sum: integer; Begin   Write(&#039;Введите N=&#039;);   Readln(n);
Описание слайда:

Задача №3 Var  I, n,x,sum: integer; Begin   Write('Введите N=');   Readln(n);   Sum:=0;   For I:=1 to n do    Begin     Write('Введите число');     Readln(x);     if x<0 then sum:=sum+x   end;     writeln('сумма =', sum);   End. Ответ: Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.

5 слайд Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В. 
Описание слайда:

Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В.    Воспользуемся для этого алгоритмом Евклида: будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равны. Program NOD; Var  a,b:integer; Begin   Write ('введите два натуральных числа')   Readln(a,b)   While a<>b do If a>b then a:=a-b else b:=b-a;   Writeln('НОД=',a); End.

6 слайд Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый след
Описание слайда:

Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км. Program prim_10; Var S:real;     N:integer; Begin   S:=10;N:=1;   While s<20 do    Begin     N:=n+1;     S:=s*0.1   End;   Writeln(' дневной пробег больше 20 км на ',n,' день');   S:=10;N:=1;   While s<100 do    Begin     N:=n+1;     S:=s+s*0.1 {накапливаем суммарный пробег}   End;   Writeln('за ',n,' пробежит больше 100 км'); End.

7 слайд Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов. Числа Фибонач
Описание слайда:

Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов. Числа Фибоначчи – это элементы числовой последовательности 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих. Числа Фибоначчи program fib_01; var i, ch, ch1, ch2, n :integer; {i - счетчик чисел Фибоначчи;n - количество чисел Фибоначчи; ch - число Фибоначчи;ch1, ch2 - вспомогательные переменные алгоритма поиска чисел Фибоначчи} begin write('n='); readln(n); ch:=0; {алгоритм поиска чисел Фибоначчи} ch1:=1; for i:=1 to n do begin ch2:=ch1; ch1:=ch; ch:=ch1+ch2; write (ch:5) {надо вывести на экран все числа Фибоначчи, поэтому оператор вывода находится внутри цикла} end; end.

8 слайд Домашнее задание Дано натуральное число. Вывести на экран все натуральные чис
Описание слайда:

Домашнее задание Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно. 2. Вывести на экран кубы чисел от A до B.

9 слайд №1 program FromOneToN; var i, n: word; begin readln(n); for i := 1 to n do be
Описание слайда:

№1 program FromOneToN; var i, n: word; begin readln(n); for i := 1 to n do begin write(i, ' '); end ; end. №2 var a, b: integer; begin write('A: '); readln(a); write('B: '); readln(b); if a < b then for a := a to b do writeln (a * a * a); end.

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

К учебнику: Информатика. Учебник для 8 класса.  Босова Л.Л., Босова А.Ю. 2-е изд., испр. - М.: 2014. - 160 с.

К уроку: 3.5.4. Различные варианты программирования циклического алгоритма

Номер материала: ДБ-013608

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

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс «1С: Предприятие 7.7»
Курс «3D Studio MAX»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

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

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

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

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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