На этом уроке вы узнаете Что такое

На этом уроке вы узнаете • Что такое вложенные циклы. • Как они применяются в программах. • Как можно сократить количество повторений цикла.

• Для чего используются команды цикла? • Как записывается команда цикла FOR? • Как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел? Количество? • Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел? • Как записывается команда цикла, в которой счетчик цикла уменьшается? • Можно ли изменять значение верхней границы цикла в теле цикла? • Можно ли в теле цикла использовать команду сравнения?

Цикл называется вложенным, если он находится в теле другого цикла. for i: =0 to n do begin for j: =0 to m do begin for k: =0 to w do begin end; Цикл i Внутренний цикл должен полностью находиться в теле внешнего цикла. Цикл j Цикл k

Сколько можно купить быков, коров и телят, если бык стоит 10 рублей, корова -5 рублей, теленок – 0, 5 рубля и на 100 рублей надо купить 100 животных. Решение B – количество быков K - количество коров T- количество телят. После этого можно записать два уравнения: 10 b+5 k+0, 5 t=100 b+k+t=100, Преобразуем их: 20 b+10 k+t=200 b+k+t=100 На 100 рублей можно купить: • Не больше 10 быков, 0≤b≥ 10 • Не больше 20 коров, 0≤k≥ 20 • Не больше 200 телят, 0≤t≥ 200

Program Pokupka 1; Uses Crt; Var b, k, t: integer; Begin Clrscr; for b: =0 to 10 do for k: =0 to 20 do for t: =0 to 200 do if (20*b+10*k+t=200) and (b+k+t=100) then writeln('Bkov ', b, ' korov ', k, ' telyat ', t); readln; end. Сколько раз будет проверяться условие в данной программе? Значение b изменяется 11 раз – от 0 до 10; k - 21, t - 201 Таким образом, условие будет проверяться 11*21*201 = 46431 раз.

11*21*201 = 46431 Если известно количество быков и коров то количество телят можно вычислить по формуле: Program Pokupka 2; t: =100 -(b+k); Uses Crt; Цикл по переменной t можно исключить. Var b, k, t: integer; Begin Количество повторений проверки условия становиться 11*21=231 Clrscr; for b: =0 to 10 do for k: =0 to 20 do begin t: =100 -(b+k); if 20*b+10*k+t=200 then writeln('Bkov ', b, ' korov ', k, ' telyat ', t); end; readln; end.

В кассе есть монеты по 2, 5 и 10 копеек. Сколькими способами можно выдать сдачу на некоторую сумму Sum?

Program Sdacha; Uses Crt; Var Sum, Xmax, Ymax, Zmax, x, y, z, p: integer; Begin Clrscr; Writeln ('Vvedite Summu'); Readln (Sum); p: =0; Xmax: =Sum div 2; Ymax: =Sum div 5; Zmax: =Sum div 10; Writeln (' 2 5 10 Vsego monet'); Writeln ('___________'); for x: =0 to Xmax do for y: =0 to Ymax do for z: =0 to Zmax do if 2*x+5*y+10*z=Sum then begin writeln(x: 3, y: 3, z: 3, x+y+z: 8); p: =p+1; end; If p=0 then writeln('Variantov net') else writeln ('Vsego ', p, ' variantov'); readln; end.

СТО, СОТ и ТОС – трехзначные числа. Определить цифры С, Т и О и вывести их на экран СТО =С*100+Т*10+О

Program Summa; Uses Crt; Var c, t, o, p, Cto, Toc, Cot: integer; Begin Clrscr; Writeln (' CTO+COT=TOC'); Writeln; for c: =1 to 9 do for t: =1 to 9 do for o: =0 to 9 do begin Cto: =c*100+t*10+o; Cot: =c*100+o*10+t; Toc: =t*100+o*10+c; if Cto+Cot=Toc then begin writeln(Cto: 4, Cot: 4, Toc: 4); p: =p+1; end; End; If p=0 then writeln('Variantov net') else writeln ('Vsego ', p, ' variantov'); readln; end.

• Какой цикл можно назвать вложенным? • Какие правила записи вложенных циклов? • Могут ли циклы «пересекаться» друг с другом? • Для чего нужно стараться сократить количество повторений циклов?

1. Определить сколько существует «счастливых» автобусных билетов в одной серии с номерами от 000000 до 999999. «Счастливым» считается билет, сумма первых трех цифр которого равна сумме вторых трех цифр. 2. С клавиатуры вводится 10 различных произвольных чисел. а) Найти разность между наибольшим и наименьшим из них. б) Порядковый номер наибольшего и наименьшего числа. 3. Вычислить: Эту задачу нужно решать с конца, т. е. , использовать цикл с уменьшающимся счетчиком.