Занятие 6 |
Без темы | ||
<< Занятие 5 | Занятие 6 >> |
![]() Отличие этого оператора от оператора цикла с предусловием: проверка |
Автор: Чернов А.Ф.. Чтобы познакомиться с картинкой полного размера, нажмите на её эскиз. Чтобы можно было использовать все картинки для урока педагогики, скачайте бесплатно презентацию «Занятие 6.ppt» со всеми картинками в zip-архиве размером 138 КБ.
Сл | Текст | Сл | Текст |
1 | Занятие 6. Оператор цикла с | 8 | тело цикла повторяется еще раз, после чего |
предусловием. Оператор цикла с | снова проверяется соблюдение условия. | ||
постусловием. Цель : Показать сходство и | 9 | При описании циклов с постусловием | |
различие вложенных циклов в языках | необходимо принимать во внимание | ||
программирования QBasic и Turbo Pascal | следующее: - перед первым выполнением | ||
7.0. | цикла условие его окончания (или | ||
2 | Проверка задания. 1. Определить | продолжения) должно быть определено; - | |
значение переменной S после выполнения | тело цикла должно содержать хотя бы один | ||
следующих операторов: s=0:n=5 For i=2 То | оператор, влияющий на условие окончания | ||
n: s=s+100 \ i :next s:=0; n:=5 For i:=2 | (продолжения), иначе цикл будет | ||
То n Do s:=s+100 Div i Ответ:S=128 2. А) | бесконечным; - условие окончания цикла | ||
правильно Б) неправильно, так как | должно быть в результате выполнено. - Для | ||
начальное значение меньше конечного. | досрочного выхода из цикла используют в | ||
Вопросы. Как записывается оператор цикла с | QBasic операторы EXIT DO (LOOP), в Turbo | ||
параметром? Как он работает? Как | Pascal 7.0 функции EXIT, BREAK. | ||
записывается полный условный оператор? Как | 10 | Составить программу планирования | |
он работает? Как записывается неполный | закупки товара в магазине на сумму, не | ||
условный оператор? Как он работает? | превышающую заданную величину. Решение х, | ||
3 | Цикл с предусловием. While … Wend | k — соответствующие цена и количество | |
While ... Do. Цикл с предусловием | товара, р — заданная предельная сумма, s — | ||
используется для программирования | общая стоимость покупки. Начальное | ||
процессов, в которых число повторений | значение общей стоимости покупки (s) равно | ||
оператора цикла не известно, а задается | нулю. Значение предельной суммы | ||
некоторое условие его окончания. | считывается с клавиатуры. Необходимо | ||
Выполнение оператора цикла с предусловием | повторять запрос цены и количества | ||
начинается с проверки условия, записанного | выбранного товара, вычислять его | ||
после слова while. Если оно соблюдается, | стоимость, суммировать ее с общей | ||
то выполняется <тело цикла>, а затем | стоимостью и выводить результат на экран | ||
вновь проверяется условие и т.д. Как | до тех пор, пока она не превысит | ||
только на очередном шаге окажется, что | предельную сумму р. В этом случае на экран | ||
условие не соблюдается, то выполнение | нужно вывести сообщение о превышении: | ||
<тела цикла> прекратится. | 11 | 'Prim9; DEFINT C, K, P, S CLS INPUT | |
4 | Дано натуральное число n. Посчитать | "пред сумма = "; P S = 0 DO | |
количество цифр в числе. Подсчет | INPUT "цена тов и его кол-во = | ||
количества цифр начнем с последней цифры | "; C, K S = S + C * K PRINT | ||
числа. Увеличим счетчик цифр на единицу. | "стоимость покупки ="; S LOOP | ||
Число уменьшим в 10 раз (тем самым мы | UNTIL S > P PRINT "суммарная | ||
избавляемся от последней цифры числа). | стоим. Покупки > предел. Суммы " | ||
Далее с получившимся числом проделаем ту | END. Program prim9; uses crt; var | ||
же последовательность действий и т.д., | c,k,p,s:integer; begin clrscr; write('пред | ||
пока число не станет равным нулю. | сумма = ');readln(p); s:=0; repeat | ||
Примечание. В теле цикла обязательно | writeln('цена тов и его кол-во ='); | ||
должен быть оператор, влияющий на | readln(c,k); s:=s+c*k; writeln('стоимость | ||
соблюдение условия, в противном случае | покупки =',s); until s>p; | ||
произойдет зацикливание. | writeln('суммарная стоим. Покупки > | ||
5 | QB. TP. ‘PRIM1 DEFLNG M – N DEFINT k | предел. Суммы '); readln; end. QB. TP. | |
CLS Вводим целое число. INPUT”N=”; N | 12 | Самостоятельно. Осуществите досрочный | |
Запоминаем его и счетчику цифр M=N: K=0 | выход из цикла при условии, что Вы | ||
Пока m<>0 делать цикл. WHILE | приобрели вещи на сумму Р/2. If S>p/2 | ||
M<>0 "уменьшаем" число на | then exit do if (s>p/2) then break; | ||
последнюю K=K+1: M=M \ 10 WEND Вывод | 13 | Алгоритм Евклида — это алгоритм | |
количества цифр PRINT “ В числе “;N;” – | нахождения наибольшего общего делителя | ||
“;K ;” цифр” END. Program prim1; uses crt; | (НОД) двух целых неотрицательных чисел. | ||
Var m, n: Longint; k: Integer; {счетчик | Алгоритм Евклида нахождения НОД основан на | ||
цифр} Begin clrscr; Writeln(' Введите | следующих свойствах этой величины. Пусть х | ||
N='); Readln(n); присваиваем начальное | и у одновременно не равные нулю целые | ||
значение. m: = n; k:=0; While m<>0 | неотрицательные числа и пусть x >= y, | ||
Do Begin цифру, т.е. в 10 раз. k:=k+1; m:= | тогда если у=0, то НОД(х,у) = х, а если | ||
m Div 10; { Inc(k) } End; Writeln('В числе | у<>О, то для чисел х, у и r, где r — | ||
',n,' - ',k,' цифр!'); Readln; End. | остаток от деления х на у выполняется | ||
6 | Оператор цикла с постусловием DO-LOOP | равенство НОД(х, у)=НОД(у, r). Например, | |
Repeat (повторять) Until (до тех пор, | пусть х=48, а у=18, найдем их наибольший | ||
пока). Наибольшими в QBasic возможностями | общий делитель. | ||
обладает следующая конструкция циклов типа | 14 | X. Y. . Результаты. 48. 18. x>y. | |
DO-LOOP. DO и LOOP - верхная и нижняя | . 48 mod 8=12. 18. x<y. | ||
границами цикла, позволяют тестировать | Нод(48,18)=нод(12,18). 12. 18 mod 12=6. | ||
условие завершения цикла в верху цикла, в | x>y. Нод(12,18)=нод(12,6). 12 mod 6=0. | ||
низу цикла, в обоих местах или нигде. Если | 6. x=0. Нод(12,6)=нод(0,6). 0. 6. . | ||
цикл должен повториться по TRUE, то | Нод(0,6)=6. | ||
используйте управляющее слово WHILE. Если | 15 | ‘prim3 Program prim3; uses crt; DEFINT | |
цикл должен повториться по FALSE, то | X,Y Var х, у: Integer; Begin CLS clrscr; | ||
используйте управляющее слово UNTIL. | Вводим два целых неотрицательных числа. | ||
7 | Для программной реализации в Turbo | INPUT”X=,Y=”;X,Y | |
Pascal 7.0 циклических процессов с | Writeln('x:=,y:=');Readln(x,y); DO Repeat | ||
неизвестным числом повторений существует | IF X>Y THEN X=X mod Y ELSE Y=Y mod X If | ||
еще один оператор — оператор цикла с | x>y Then x:=x Mod у Else y:=y Mod х; До | ||
постусловием, который имеет следующий вид: | тех пор, пока одно из чисел не станет | ||
Repeat <оператор 1>; <оператор | равно нулю. LOOP UNTIL x=0 or Y=0 Until | ||
2>; <оператор n>; Until | (х=0) Or (y=0); Вывод НОД - без условного | ||
<условие>; где Repeat (повторять), | оператора, так как одно из чисел равно | ||
Until (до тех пор, пока …). | нулю. PRINT”NOD(A,B)=”;X+Y | ||
8 | Отличие этого оператора от оператора | Writeln('НОД=',х+у)); Readln; End End. QB. | |
цикла с предусловием: проверка условия | TP. | ||
производится после очередного выполнения | 16 | Задание. Дана последовательность | |
тела цикла. Это обеспечивает его | операторов: а =1 : b=1 а:=1; b:=1; while | ||
выполнение хотя бы один раз. Данный | a+b<8 while a+b<8 do а=а+1: b=b+2 | ||
оператор цикла предполагает наличие | Begin а:=а+1; b:=b+2 End; wend: s:=a+b | ||
нескольких операторов в теле цикла, | s:=a+b Сколько раз будет повторен цикл, и | ||
поэтому служебные слова Begin и End не | какими будут значения переменных а, b, и s | ||
нужны. Последовательность операторов, | после завершения этой последовательности | ||
входящих в тело цикла выполняется один | операторов? Определить значение переменной | ||
раз, после чего проверяется соблюдение | s после выполнения следующих операторов: | ||
условия, записанного следом за служебным | s=0 : i:=l s:=0; i:=l; DO Repeat s=s+5 Div | ||
словом Until. Если условие не соблюдается, | i : i=l-l s:=s+5 Div i; i:=l-l; LOOP Until | ||
цикл завершается. В противном случае — | i<=1 Until i<=1; | ||
Занятие 6.ppt |
«Занятия по оригами» - Воодушивить педагогов испытывать радость от познания и открытий. Блок №6 февраль «Цветы». Блок " Насекомые " Занятие " Божья коровка ". «Семейство бельчат». Совершенствовать координацию тонких пальцев. Чтение литературы, отгадывание загадок, заучивание стихов. Беседы, цель которых – познакомить детей с живыми и неживыми объектами.
«Занятия спортом» - Дети. План реализации исследовательской работы. Самые желаемые виды спорта в нашем селе. Но, к сожалению, наше желание заниматься спортом серьезно и профессионально, не может в полной мере реализовываться в условиях нашего села. Взрослые. Главный вопрос, который нас волнует – какие условия существуют для занятия спортом в нашем селе?
«Музыкальные занятия» - Єтапы основного блока музыкального занятия. Метод использования схематической партитуры. Дети с аутизмом лучше общаются с предметами, чем с людьми. Для визуализации длительности звука используем разнообразные предметы: ленточки, полоски, линейки, палочки разной длины. Разнообразие шумовых и ударных инструментов велико: треугольники, бубенцы, колокольчики, бубны, тамбурины, деревянные коробочки, маракасы, барабаны и многие другие.
«Занятия физикой» - «Решаем вместе». Субъективные. «Готовимся к контрольным и зачетам». Использование ИКТ на уроках физики обусловлено причинами. Термодинамика. Ли Якокка. Использование компьютерных технологий при проведении элективных курсов. ИСПОЛЬЗОВАНИЕ КОМПЬЮТЕРНЫХ ТЕХНОЛОГИЙ ПРИ ПРОВЕДЕНИИ ЛАБОРАТОРНЫХ РАБОТ в 7 классах.
«Занятия математикой» - А.Н. Уайтхед. А.Н. Колмогоров. Высшее назначение математики состоит в том, чтобы находить скрытый порядок в хаосе, который нас окружает. М.В. Ломоносов. Г. Галилей. Леонардо да Винчи. Н. Винер. С.Д. Пуассон.
«Занятия для детей» - Проблемно- ориентированный анализ деятельности в ДОУ. Эффективность выбора приемов и методов воспитания и обучения. Рациональность проведения данного вида деятельности в течение дня. Изменились ли задачи по ходу занятия? Уровень практических навыков у детей. Анализ педагогом собственного занятия. Взаимосвязь в работе воспитателей и специалистов. 17.