Практическая работа по информатике "Цикл While" (8 класс)

Практическая работа 5.

Операторы циклов. Цикл While.

Оператор цикла While организует выполнение тела цикла, состоящего из одного оператора, с неизвестным заранее количеством итераций (повторений).

Цикл While называют циклом с пред-условием или с условием продолжения работы. Так как условие продолжения итераций цикла проверяется перед выполнением оператора тела цикла, он может не выполниться ни одного раза.

Общий вид:

While S do      {начало цикла}

                        <оператор>;       {тело цикла}

                         {конец цикла}

Выполнение оператора тела цикла будет повторяться до тех пор, пока истинно (верно) логическое выражение S (проверяемое условие).

Пример 1. Вывести на экран целые чётные числа от 50 до 70 в одной строке через пробел.

var i: integer;                 //объявление переменных

begin

  i:=50;               //начальное значение i

  while i<=70 do              //пока i не больше 70

  begin                            выполняем операторы

    if (i mod 2)=0 then    //если i чётное, то

      write(i, ' ');    выводим его на экран

    i:=i+1                         //увеличиваем i на 1

  end;                              //конец цикла

end.

Пример 2. Вывести на экран целые числа от 20 до 50, кратные 7, каждое на отдельной строке.

var i: integer;                //объявление переменных

begin

  i:=20;              //начальное значение i

  while i<=50 do             //пока i не больше 50

  begin                           выполняем операторы

    if (i mod 7)=0 then   //если i кратно 7, то

      writeln(i);                 выводим его на экран

    i:=i+1                        //увеличиваем i на 1

  end;                             //конец цикла

end.

Пример 3. Вывести на экран целые числа от 20 до 50, не кратные 7, в одной строке через запятую.

var i: integer;                   //объявление переменных

begin

  i:=20;                 //начальное значение i

  while i<=50 do                //пока i не больше 50

  begin                              выполняем операторы

    if (i mod 7)<>0 then   //если i не кратно 7, то

      write(i, ', ');     выводим его на экран

    i:=i+1                          //увеличиваем i на 1

  end;                               //конец цикла

end.

Пример 4. Вычислить сумму целых чисел от 10 до 30, не кратных 3.

var i, s: integer;                  //объявление переменных

begin

  i:=10;                     //начальное значение i

  s:=0;                                   //начальное значение s

  while i<=30 do                    //пока i не больше 30

  begin                                  выполняем операторы

    if (i mod 3)<>0 then       //если i не кратно 3, то

      s:=s+i;                            добавляем его в сумму

    i:=i+1                               //увеличиваем i на 1

  end;                                    //конец цикла

  write('Сумма равна ', s)  //вывод суммы

end.

Пример 5. Вычислить произведение целых чисел от 10 до 30, кратных 4.

var i, p: integer;                  //объявление переменных

begin

  i:=10;                                  //начальное значение i

  p:=1;                                  //начальное значение p

  while i<=30 do                    //пока i не больше 30

  begin                                  выполняем операторы

    if (i mod 4)=0 then            //если i кратно 4, то

      p:=p*i;                           домножаем p на i

    i:=i+1                               //увеличиваем i на 1

  end;                                    //конец цикла

  write('Произведение  равно ', p)  //вывод произве-

end.                                                    дения

Пример 6. Подсчитать количество нечётных целых чисел в диапазоне от 45 до 81.

var i, n: integer;                     //объявление переменных

begin

  i:=45;                                     //начальное значение i

  n:=0;                                     //начальное значение n

  while i<=81 do                       //пока i не больше 81

  begin                                     выполняем операторы

    if (i mod 2)<>0 then             //если i нечётное, то

      n:=n+1;                          увеличиваем счётчик n на 1

    i:=i+1                                  //увеличиваем i на 1

  end;                                       //конец цикла

  write('Нечётных чисел ', n)  //вывод количества

end.                                         нечётных чисел

Задания.

Написать программу, которая выполняет действия, указанные ниже, и сохранить её под именем While в личной папке:

1.  Вывести на экран целые числа в диапазоне от 12 до 75, кратные 15, в одной строке через пробел.

2.  Вывести на экран целые числа от 512 до 560, которые не делятся на 8, каждое на отдельной строке.

3.  Подсчитать количество целых чисел в диапазоне от 80 до 125, кратных 9.

4.  Вычислить сумму целых чисел в диапазоне от 100 до 300,  кратных 30.

5.  Вычислить произведение целых чисел в диапазоне от 7 до 39, кратных 5.

6.  Подсчитать количество целых чисел в диапазоне от 1 до 125, не кратных 5.

7.  Вывести на экран целые числа от 78 до 135, кратные 12, в одной строке через запятую.

8.  Вычислить сумму целых чисел в диапазоне от 625 до 700,  не кратных 25.

9.  Вывести на экран целые числа от 21 до 35, которые не делятся на 7, каждое на отдельной строке.

10.  Вычислить произведение целых чисел в диапазоне от 4 до 15, не кратных 3.

Краткое описание документа:

Практическая работа по информатике на тему "Программирование циклов с заданным условием продолжения работы" в 8 классе. В начале практической работы кратко представлен теоретический материал по теме. Затем разбираются несколько примеров. Почти каждая строка в приведённых программах имеет комментарий.

По аналогии с приведёнными примерами ученикам предлагается выполнить одно из 10 заданий.