Операторы цикла в решении типовых задач презентация

1)Научиться составлять программы, используя вложенную структуру циклических операторов;
2)Применять операторы цикла в решении типовых задач.
Цель урока:

Вспомним программу, которая выводит столбец таблицы умножения любого целого числа N на числа от 1 до 10.
Пример: если N=5, то столбец будет такой-
1*5=5
2*5=10
3*5=15 i * N = P, где i изменяется от
…….. 1…10
10*5=50

Найдите 5 ошибок в программе:
stolbec;
VAR i, N, P: integer;
Begin
Read(P);
FOR i:=1 TO 10
P=i*N;
WRITELN ( i , ‘ * ’ , N , ’=‘ , P)
end;
End

Проверь себя:
Program stolbec;
VAR i, N, P: integer;
Begin
Read(N);
FOR i:=1 TO 10 DO
begin
P:=i*N;
WRITELN ( i , ‘ * ’ , N , ’=‘ , P)
end;
End. найдено 5 ошибок – «5»
найдено 4 ошибки – «4»
найдено 3 ошибки – «3»

Составить программу, которая выводит таблицу умножения
(таблицу Пифагора)

Вывод на экран таблицы умножения

var i, j, P : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
P:=i * j;
write (P:5);
end;
writeln;
end;
readln;
end.

Если телом цикла является циклическая структура, то такие циклы называются вложенными

var i, j, P : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
P:=i * j;
write (P:5);
end;
writeln;
end;
readln;
end.

Цикл, содержащий в себе другой цикл, называют внешним, а цикл, содержащийся в теле другого цикла, называют внутренним.

var i, j, P : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
P:=i * j;
write (P:5);
end;
writeln;
end;
readln;
end.

Все операторы внутреннего цикла должны полностью располагаться в теле внешнего цикла

var i, j, P : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
P:=i * j;
write (P:5);
end;
writeln;
end;
readln;
end.

Старинная задача:
Сколько можно купить быков, коров и телят,
если плата за быка 10 рублей, за корову - 5 рублей, за теленка - полтинник (0,5 руб),
если на 100 рублей надо купить 100 голов скота.

{Обозначим через b - количество быков; k - количество коров; t- количество телят. После этого можно записать два уравнения: 10b+5k+0.5t=100 и b+k+t=100. Преобразуем их: 20b+10k+t=200 и b+k+t=100. На 100 рублей можно купить:
- не более 10 быков, т. е. 0<=b<=10
- не более 20 коров, т. е. 0<=k<=20
- не более 200 телят, т. е. 0<=t<=200. Таким образом, получаем:}

For b:=0 to n do
for k:=0 to m do
for t:=0 to w do
Цикл b
Цикл k
Цикл t

Program starzadacha;
var b, k, t: integer;
begin
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('Быков ', b, 'коров ', k ' телят ', t);
readln;
end.

Наберите программу на компьютере и выясните какое количество быков, коров и телят получится

Домашнее задание:
Напишите комментарий к программе «Старинная задача» ИЛИ
Придумайте условие задачи, решить которую можно с помощью вложенных циклов.