Разделы презентаций


Циклические алгоритмы. Реализация циклов в Object Pascal

Содержание

ПланПонятие «цикл»Цикл с предусловием в Object PascalЦикл с постусловием в Object PascalЦикл с параметром в Object Pascal

Слайды и текст этой презентации

Слайд 1Циклические алгоритмы. Реализация циклов в Object Pascal

Циклические алгоритмы. Реализация циклов в Object Pascal

Слайд 2План
Понятие «цикл»
Цикл с предусловием в Object Pascal
Цикл с постусловием в

Object Pascal
Цикл с параметром в Object Pascal

ПланПонятие «цикл»Цикл с предусловием в Object PascalЦикл с постусловием в Object PascalЦикл с параметром в Object Pascal

Слайд 3 Цикл – это группа последовательных действий, завершающаяся переходом при выполнении

некоторого условия на первую команду этой группы.

Цикл – это группа последовательных действий, завершающаяся переходом при выполнении некоторого условия на первую команду этой группы.

Слайд 4Два основных вида циклов:
1. Цикл с известным числом повторений.

2. Циклы

с неизвестным количеством повторений.

Два основных вида циклов:1. Цикл с известным числом повторений.2. Циклы с неизвестным количеством повторений.

Слайд 5Структура цикла
Начало: подготовка цикла
Проверка: определяет момент выхода из цикла
Тело цикла:

содержит рабочую часть и продвижение (обновление параметра или величины, его

заменяющей)
Структура циклаНачало: подготовка циклаПроверка: определяет момент выхода из циклаТело цикла: содержит рабочую часть и продвижение (обновление параметра

Слайд 6Задача о «монетах»
Начало: …
Проверка: в кармане есть монеты?
Тело цикла: взять

монету из кармана

! Организовать цикл с известным числом повторений и

цикл с неизвестным числом повторений
Задача о «монетах»Начало: …Проверка: в кармане есть монеты?Тело цикла: взять монету из кармана! Организовать цикл с известным

Слайд 72. Цикл с предусловием в Object Pascal
while do ;

Пока

условие выполнять
Серия
Конец –цикл

2. Цикл с предусловием в Object Pascalwhile do ;Пока условие выполнять	СерияКонец –цикл

Слайд 8Const e=0.001;
Var s:real; n:integer;
begin
s:=0; n:=1;
while 1/n>e do
begin

s:=s+1/n;
inc(n);
end;
writeln('summ = ',s);
end.
Задача: найти

сумму ряда
S = 1+1/2+1/3+…+1/n c точностью до e=0,001
Const e=0.001;Var s:real; n:integer;begin s:=0; n:=1; while 1/n>e do begin  s:=s+1/n;  inc(n); end; writeln('summ =

Слайд 93. Цикл с постусловием в Object Pascal
repeat



until

;
Выполнять
Серия
Пока условие

3. Цикл с постусловием в Object Pascalrepeat 		 until ;Выполнять СерияПока условие

Слайд 10Задача: среднее арифметическое введенных чисел
Var s,a:real; n:integer;
begin
s:=0; n:=0;
repeat

readln(a); s:=s+x; inc(n);
until a=0;
writeln('srednee = ',s/n);
end.

Задача: среднее арифметическое введенных чиселVar s,a:real; n:integer;begin s:=0; n:=0;repeat  readln(a);  s:=s+x;  inc(n); until a=0;

Слайд 114. Цикл с параметром в Object Pascal
for := to


do ;
Для i от n до m выполнять

Серия
Конец –цикл

Да

Нет

i:=n,m

4. Цикл с параметром в Object Pascal for := to  				do ;Для i от n до

Слайд 12 Задача: найти сумму чисел от 1 до N
Var n, s,

i : integer;
begin
s:=0;
writeln('vvedite N');
readln(n);
for i:=1 to

n do
s:=s+n;
writeln('sum = ',s);
readln;
end.
Задача: найти сумму чисел от 1 до NVar n, s, i : integer;begin s:=0; writeln('vvedite N'); readln(n);

Слайд 13Другая форма оператора
for := downto
do ;

Другая форма оператораfor := downto  				do ;

Слайд 14Задача: вывести на экран символы в обратном порядке
Var i :

integer;
begin
for i:=255 downto 0 do
write(chr(i),' ');
readln;
end.

Задача: вывести на экран символы в обратном порядкеVar i : integer;begin for i:=255 downto 0 do write(chr(i),'

Обратная связь

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

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика