close

Вход

Забыли?

вход по аккаунту

?

Вложенные циклы Составление программ

код для вставки
•
Для чего используются команды цикла?
•
Как записывается команда цикла FOR
?
•
Как в цикле записать команду присваивания, чтобы она вычисляла сумму чисел? Количество?
•
Какое начальное значение должно быть у переменной, в которой накапливаем произведение чисел?
•
Как записывается команда цикла, в которой счетчик цикла уменьшается?
•
Можно ли изменять значение верхней границы цикла в теле цикла?
•
Можно ли в теле цикла использовать команду сравнения?
Цикл называется вложенным
, если он находится в теле другого цикла.
for i
:=0 to n
do
begin
for j
:=0 to m
d
o
begin
for k
:=0 to w
do
begin
end;
end;
end;
Внутренний цикл должен полностью находиться в теле внешнего цикла.
Цикл k
Цикл j
Цикл i
Сколько можно купить быков, коров и телят, если бык стоит 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
Program Pokupka1;
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('Bkov ',b,' korov ',k,' telyat ', t);
readln;
end.
Сколько раз будет проверяться условие в данной программе?
Значение b
изменяется 11 раз –
от 0 до 10;
k -
21, t -
201 Таким образом, условие будет проверяться 11*21*201
=
46431 раз
.
СТО, СОТ и ТОС –
трехзначные числа.
Определить цифры С, Т и О и вывести их на экран
СТО =С*100+Т*10+О
Program Summa
;
Var c, t, o, p, Cto, Toc, Cot:integer;
Begin p:=0;
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(‘Вариантов нет')
else writeln (‘Всего ', p,' Вариантов');
readln; end.
•
Какой цикл можно назвать вложенным?
•
Какие правила записи вложенных циклов?
•
Могут ли циклы «пересекаться» друг с другом?
•
Для чего нужно стараться сократить количество повторений циклов?
Определить сколько существует «счастливых» автобусных билетов в одной серии с номерами от 000000 до 999999.
«Счастливым» считается билет, сумма первых трех цифр которого равна сумме вторых трех цифр.
Автор
georg88
Документ
Категория
Наука
Просмотров
692
Размер файла
643 Кб
Теги
вложенные, циклы_составление, программ
1/--страниц
Пожаловаться на содержимое документа