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

1.

2.

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

3. Вспомним программу, которая выводит столбец таблицы умножения любого целого числа N на числа от 1 до 10.

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

4. Найдите 5 ошибок в программе:

stolbec;
VAR i, N, P: integer;
Begin
Read(P);
FOR i:=1 TO 10
P=i*N;
WRITELN ( i , ‘ * ’ , N , ’=‘ , P)
end;
End

5. Проверь себя:

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»

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

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

8.

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.

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

10.

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.

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

12.

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.

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

14.

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.

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

полтинник (0,5 руб),
если на 100 рублей надо
купить 100 голов скота.

16.

{Обозначим через 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.
Таким образом, получаем:}

17.

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

18.

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.

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

20. Домашнее задание:

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