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

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

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

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

библиотека
материалов
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...
9 1

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

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

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

№ слайда 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.

Автор
Дата добавления 06.04.2016
Раздел Информатика
Подраздел Презентации
Просмотров2246
Номер материала ДБ-013608
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

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


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

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

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


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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