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

Категория: Информатика
Нажмите для полного просмотра!
Вложенные циклы, слайд №1Вложенные циклы, слайд №2Вложенные циклы, слайд №3Вложенные циклы, слайд №4Вложенные циклы, слайд №5Вложенные циклы, слайд №6Вложенные циклы, слайд №7Вложенные циклы, слайд №8Вложенные циклы, слайд №9Вложенные циклы, слайд №10Вложенные циклы, слайд №11Вложенные циклы, слайд №12Вложенные циклы, слайд №13Вложенные циклы, слайд №14

Вы можете ознакомиться и скачать Вложенные циклы. Презентация содержит 14 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации


Слайд 1


Вложенные циклы, слайд №1
Описание слайда:

Слайд 2





Повторение
Описание слайда:
Повторение

Слайд 3





Повторение
Описание слайда:
Повторение

Слайд 4





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

Слайд 5





Задача 1.
Написать программу, которая находит 
и выводит на печать все четырехзначные числа abcd, числа a, b, c, d - различные цифры,
для которых выполняется условие:   
ab — cd = a + b + c + d.
Описание слайда:
Задача 1. Написать программу, которая находит и выводит на печать все четырехзначные числа abcd, числа a, b, c, d - различные цифры, для которых выполняется условие: ab — cd = a + b + c + d.

Слайд 6





1 способ. Перебор всех четырехзначных чисел и проверка для каждого из них выполнения условий.
Var x, a, b, c, d: integer;
Begin
     for x := 1000 to 9999 do
         begin
             a := x div 1000;
             b := x div 100 mod 10;
             c := x div 10 mod 10;
             d := x mod 10;
             if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and
                 (c<>d) and(a*10+b)-(c*10+d)=a+b+c+d then writeln (x);
         end;
End.
Описание слайда:
1 способ. Перебор всех четырехзначных чисел и проверка для каждого из них выполнения условий. Var x, a, b, c, d: integer; Begin for x := 1000 to 9999 do begin a := x div 1000; b := x div 100 mod 10; c := x div 10 mod 10; d := x mod 10; if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and(a*10+b)-(c*10+d)=a+b+c+d then writeln (x); end; End.

Слайд 7





2 способ. Перебор всех чеиырех цифр числа и проверка для каждого набора цифр выполнения условий.
Var x, a, b, c, d: integer;
Begin
     for a:=1 to 9 do
        For b:=0 to 9 do
            For c:=0 to 9 do
                For d:= 0 to 9 do
                    if (a<>b) and (a<>c) and (a<>d) and 
                        (b<>c) and (b<>d) and (c<>d) and 
                        ((a*10+b)-(c*10+d)=a+b+c+d) 
                              then writeln (a, b, c, d);
End.
Описание слайда:
2 способ. Перебор всех чеиырех цифр числа и проверка для каждого набора цифр выполнения условий. Var x, a, b, c, d: integer; Begin for a:=1 to 9 do For b:=0 to 9 do For c:=0 to 9 do For d:= 0 to 9 do if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and ((a*10+b)-(c*10+d)=a+b+c+d) then writeln (a, b, c, d); End.

Слайд 8





3 способ. Попробуем сократить перебор, для этого преобразуем второе условие      
10a + b — (10c + d) = a + b + c + d; 
9(a — c) = 2(c + d); 
(a — c)/(c + d) = 2/9
Проанализировав первое условие, получаем, 
что a = с + 2, d = 9 - c, 
следовательно  0 <= c <= 7.
Описание слайда:
3 способ. Попробуем сократить перебор, для этого преобразуем второе условие 10a + b — (10c + d) = a + b + c + d; 9(a — c) = 2(c + d); (a — c)/(c + d) = 2/9 Проанализировав первое условие, получаем, что a = с + 2, d = 9 - c, следовательно 0 <= c <= 7.

Слайд 9






Var a, b, c, d: integer; 
Begin
	 for c:=0 to 7 do 
         begin
              a := c + 2; 
              d := 9 - c; 
           	  for b := 0 to 9 do 
     	      if (b <> c) and (b <> a) and (b <> d) 
                        then  write (a, b, c, d);
          end; 
End.
Описание слайда:
Var a, b, c, d: integer; Begin for c:=0 to 7 do begin a := c + 2; d := 9 - c; for b := 0 to 9 do if (b <> c) and (b <> a) and (b <> d) then write (a, b, c, d); end; End.

Слайд 10





 Задача 2.
 Задача 2.
Если мы сложим все цифры какого-либо числа, затем все цифры найденной суммы и будем повторять много раз, мы, наконец, получим однозначное число (цифру), называемое цифровым корнем данного числа. 
Например, цифровой корень числа 34697 равен 2 
(3 + 4 + 6 + 9 + 7 = 29;  2 + 9 = 11;  1 + 1 = 2).
 Составим программу для нахождения цифрового корня натурального числа.
Описание слайда:
Задача 2. Задача 2. Если мы сложим все цифры какого-либо числа, затем все цифры найденной суммы и будем повторять много раз, мы, наконец, получим однозначное число (цифру), называемое цифровым корнем данного числа. Например, цифровой корень числа 34697 равен 2 (3 + 4 + 6 + 9 + 7 = 29; 2 + 9 = 11; 1 + 1 = 2). Составим программу для нахождения цифрового корня натурального числа.

Слайд 11


Вложенные циклы, слайд №11
Описание слайда:

Слайд 12





Var n, k, s: longint; 
Var n, k, s: longint; 
Begin
    read (n); 
    s := n;
   	while s > 9 do
        begin
          k := s; 
          s := 0;    		          
          Repeat 
              s := s + k mod 10; 
              k := k div 10; 
          Until k = 0; 
        end;
   writeln ('цифровой корень числа ', n, ‘ равен ', s); 
End.
Описание слайда:
Var n, k, s: longint; Var n, k, s: longint; Begin read (n); s := n; while s > 9 do begin k := s; s := 0; Repeat s := s + k mod 10; k := k div 10; Until k = 0; end; writeln ('цифровой корень числа ', n, ‘ равен ', s); End.

Слайд 13


Вложенные циклы, слайд №13
Описание слайда:

Слайд 14





2. Задание 
Что будет выведено на экране монитора после выполнения следующего фрагмента программы: 
а := 28; 
for i:=1 tо a div 2 do   
         if a mod i = 0 then  writeln (i); 
 Решение какой задачи выражает этот фрагмент программы?
Описание слайда:
2. Задание Что будет выведено на экране монитора после выполнения следующего фрагмента программы: а := 28; for i:=1 tо a div 2 do if a mod i = 0 then writeln (i); Решение какой задачи выражает этот фрагмент программы?



Похожие презентации
Mypresentation.ru
Загрузить презентацию