ПЕСОЧНИЦА - место для Ваших экспериментов!

Циклы

Материал из ИнтеВики — обучающей площадкой для проведения тренингов программы Intel
Перейти к: навигация, поиск

Изучение сервисов Web 2.0 в рамках курсов повышения квалификации учителей информатики школ г. Магнитогорска

Содержание


Творческое название

Вложенные циклы


Что развивает у ребенка (учащегося)

На данном уроке учащиеся знакомяться с реализацией вложенных циклов,учаться применять полученные теоретические знания на практике,воспитывают в себе дисциплинированность, ответственность, бережное отношение к вычислительной технике..

План

(сколько отводится времени на изучение задачи и в каком классе) на изучение данной задачи отводится 2 часа в 9 классе


Задача

Условие Описательный язык, Блок-схема, Алгоритмический язык.


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

№ п/п описательный язык блок-схема алгоритмический язык
1 Решение

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 Значение b изменяется 11 раз – от 0 до 10; k - 21, t - 201 Таким образом, условие будет проверяться 11*21*201 = 46431 раз.

ссылка на блок-схему Program Pokupka1;

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.

Уровни

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

№ п/п описательный язык блок-схема алгоритмический язык
1 Решение

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 Значение b изменяется 11 раз – от 0 до 10; k - 21, t - 201 Таким образом, условие будет проверяться 11*21*201 = 46431 раз.

ссылка на блок-схему Program Pokupka1;

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.

2 Если известно количество быков и коров, то количество телят можно вычислить по формуле:
t:=100-(b+k);

Цикл по переменной t можно исключить. Количество повторений проверки условия становиться 11*21=231

ссылка на блок-схему Program Pokupka2;

Uses Crt; Var b, k, t:integer; Begin 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? Таблица

№ п/п описательный язык блок-схема алгоритмический язык
1 все и та к понятно ссылка на блок-схему 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+О Таблица

№ п/п описательный язык блок-схема алгоритмический язык
1 здесь тем более понятно ссылка на блок-схему 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]bloghelp

Оценивание

решение простой задачи - 3 балла. решение двух задач - 4 балла. решение всех трёх задач - 5 баллов.

Используемые материалы

опыт учителей, книги, энциклопедии "Турбо Паскаль" Фаронов

Персональные инструменты
Образовательная галактика Intel Программа Intel 'Обучение для будущего' Программа 'Учимся с Intel' Летописи России Инициативы Intel в образовании