X

Код презентации скопируйте его

Ширина px

Вы можете изменить размер презентации, указав свою ширину плеера!

Знай и люби операторы цикла

Скачать эту презентацию

Презентация на тему Знай и люби операторы цикла

Скачать эту презентацию

Cлайд 1
Зpp PA S C A L Зpp PA S C A L
Cлайд 2
Зpp PA S C A L Зpp PA S C A L
Cлайд 3
Организует многократное исполнение тела цикла Зpp PA S C A L Организует многократное исполнение тела цикла Зpp PA S C A L
Cлайд 4
СЧЁТЧИК( или параметр) цикла – искусственно вводимый объект для организации р... СЧЁТЧИК( или параметр) цикла – искусственно вводимый объект для организации работы цикла; настройка начального и конечного значения счётчика задаёт количество раз работы цикла; ТЕЛО ЦИКЛА – оператор(может быть составной) для многократного исполнения; ПРОХОД ПО ЦИКЛУ – однократное исполнение тела цикла; ЗАЦИКЛИВАНИЕ – бесконечное исполнение цикла (это очень плохо!); Зpp PA S C A L
Cлайд 5
For := to do ; Зpp PA S C A L For := to do ; Зpp PA S C A L
Cлайд 6
Счётчик – объект перечисляемого типа! Шаг изменения счётчика задается атомати... Счётчик – объект перечисляемого типа! Шаг изменения счётчика задается атоматически +1(с to) или -1(с downto)! Пусть А-нач. Знач. Счётчика, В-кон. Знач. Счётчика; тогда количество проходов по телу цикла с to с downto А=В 0 0 АВ 0 А-В+1 В теле цикла изменять значение счётчика нельзя! Работает правило begin……….end для тела цикла Зpp PA S C A L
Cлайд 7
For i:=1 to 99 do write(i*i:6); For j:=50 downto 1 do writeln(2*j); A:=2;b:=1... For i:=1 to 99 do write(i*i:6); For j:=50 downto 1 do writeln(2*j); A:=2;b:=102; For k:=a to b do if (k mod 3)=0 then p:=p+1; For l:=‘a’ to ‘я’ do write(ord(l):5); For m:=1 to length(str) do writeln(copy(str),m,1); For n:=‘z’ to ‘a’ do str:=str+n; SUM:=0; For p:=10 to 101 do begin read(S);SUM:=SUM+S end; write(SUM); For r=32 to 255 do writeln(chr(r),’-’,r:4); Progress:=1; Q:=1.21; For t:=33 downto 1 do write(progress*Q); For s:=1 to 128 do If (s mod 10)=0 then write(‘*’) else write(‘ ‘); Зpp PA S C A L
Cлайд 8
Program letter; Var fr:string; buk:char; i,j,L:byte; Label Mm; Begin write(‘в... Program letter; Var fr:string; buk:char; i,j,L:byte; Label Mm; Begin write(‘введи фразу’); readln(fr); write(‘введи букву’);readln(buk); L:=length(fr); j:=0; Mm: i:=pos(buk,fr); If io then begin j:=j+i; write(j:4); fr:=copy(fr,i+1,L-i); goto Mm end; Write(‘end’); End. Зpp PA S C A L
Cлайд 9
Условие ЛОЖНО? начальная установка ТЕЛО ЦИКЛА Условие ИСТИННО? да Выход из ци... Условие ЛОЖНО? начальная установка ТЕЛО ЦИКЛА Условие ИСТИННО? да Выход из цикла да Логика работы цикла: - пока условие ИСТИННО ттттвыполняется тело цикла; - ЛОЖНОСТЬ условия ьььь завершает цикл;
Cлайд 10
Задача 1 Автомат для оплаты услуг принимает монеты любого достоинства и выдае... Задача 1 Автомат для оплаты услуг принимает монеты любого достоинства и выдает сдачу. Надо прекратить прием монет, как только денежная сумма станет не меньше суммы оплаты услуг, и выдать сдачу. Задача 2 Построить расписание движения автобуса, если известно время начала и конца работы маршрута, длительность рейса в один конец ,время отдыха на конечных остановках. Задача 3 Для уравнения с двумя неизвестными подобрать корень с заданной точностью( например , 0.001).
Cлайд 11
while do ; Например: While x >= y do begin x:=x-1;y:=y+1; end; while do ; Например: While x >= y do begin x:=x-1;y:=y+1; end;
Cлайд 12
X :=10; y :=2; while X>=Y do begin X :=X-1;Y :=Y+1 end; 9 Тело цикла исполнит... X :=10; y :=2; while X>=Y do begin X :=X-1;Y :=Y+1 end; 9 Тело цикла исполнится 5 раз ! Выход из цикла Запуск цикла истина 3 истина 8 4 истина 7 5 истина 6 6 истина 5 7 ложь действия X>=Y X Y 10 2
Cлайд 13
X :=2; Y:=2; while X>=Y do begin X :=X-1;Y :=Y+1 end; Запуск цикла 2 2 истина... X :=2; Y:=2; while X>=Y do begin X :=X-1;Y :=Y+1 end; Запуск цикла 2 2 истина 1 3 ложь Выход из цикла Тело цикла исполнится 1 раз ! действия X>=Y X Y
Cлайд 14
X:=2; y:=2; while X>=Y do begin X:=X+1;Y:=Y+1 end; 2 2 Запуск цикла истина 3 ... X:=2; y:=2; while X>=Y do begin X:=X+1;Y:=Y+1 end; 2 2 Запуск цикла истина 3 3 истина 4 4 истина 5 5 истина 6 6 истина 7 7 Произошло зацикливание ! Цикл не завершается действия X>=Y X Y
Cлайд 15
X :=2; Y :=3; while X>=Y do begin X :=X+1;Y :=Y+1 end; Запуск цикла 2 3 ложь ... X :=2; Y :=3; while X>=Y do begin X :=X+1;Y :=Y+1 end; Запуск цикла 2 3 ложь Выход из цикла Тело цикла не исполнится ни разу ! действия X>=Y X Y
Cлайд 16
Необходимо обеспечить запуск цикла: тело цикла исполнится хотя бы один раз, е... Необходимо обеспечить запуск цикла: тело цикла исполнится хотя бы один раз, если при запуске цикла условие ИСТИННО! Необходимо обеспечить завершение цикла: в ходе работы цикла условие должно изменить свое значение на ЛОЖЬ! 3. Количество проходов по телу цикла задается : -начальной установкой переменных, участвующих vvв цикле; -изменением значений переменных в теле цикла;
Cлайд 17
S := 0; While S < 100 do begin read(money); S : = S + money; END; score := 0;... S := 0; While S < 100 do begin read(money); S : = S + money; END; score := 0; While score < 33 do begin read(in); if in > 0 then score := score + 1; end; x := 0; eps :=0.01; While F1-F2 >eps do begin F2:=F1; F1:=x*x*x +x*x +5*x -12; x := x+eps; end; i := 1; a := a0; While i50 do begin a:=a+1; if a mod 2= 0 then i := i+1; write( a:5);
Cлайд 18
Разменный автомат имеет набор монет достоинством k1, k2 и k3, причем k1>k2>k3... Разменный автомат имеет набор монет достоинством k1, k2 и k3, причем k1>k2>k3, k3= 1 рубль. Предложить вариант размена заданной денежной суммы, которая поступает от клиента в виде набора купюр,с минимальным количеством выдаваемых монет. Признак окончания ввода купюр – введена сумма в 0 рублей.
Cлайд 19
1- В цикле WHILE условие ПРОДОЛЖАЕТ цикл. 2- Количество проходов по телу цикл... 1- В цикле WHILE условие ПРОДОЛЖАЕТ цикл. 2- Количество проходов по телу цикла bbbзаранее ттнеизвестно. 3- Логика работы цикла: -- пока условие ИСТИННО ттттbbbbbbbbbbbbbbbbвыполняется тело цикла; -- ЛОЖНОСТЬ условия ьььь ииииbbbbbbbbbbbbbbbbзавершает цикл; 4 - Для тела цикла работает правило операторных скобок
Скачать эту презентацию
Наверх