Чтение RSS
Рефераты:
 
Рефераты бесплатно
 

 

 

 

 

 

     
 
Операторы цикла

Операторы цикла

Задачи целочисленной арифметики

Командой повторения или циклом называется такая форма организации действий, при которой одна и та же последовательность действий повторяется до тех пор, пока сохраняется значение некоторого логического выражения. При изменении значения логического выражения на противоположное повторения прекращаются (цикл завершается).

Для организации цикла необходимо выполнить следующие действия:

перед началом цикла задать начальное значение параметра;

внутри цикла изменять параметр цикла с помощью оператора присваивания;

проверять условие повторения или окончания цикла;

управлять циклом, т.е. переходить к его началу, если он не закончен, или выходить из цикла в противном случае.

Различают циклы с известным числом повторений (цикл с параметром) и итерационные (с пред- и постусловием).

В цикле с известным числом повторений параметр изменяется в заданном диапазоне.

Если в цикле изменяется простая переменная, то она является параметром цикла; если в цикле изменяется переменная с индексом, то индекс этой переменной является параметром цикла.

Для организации цикла с известным числом повторений в Pascal используется оператор for.

Структура цикла, организованного с помощью этого оператора, имеет вид:

  For I := A To B Do Begin End;

или

  For I := A DownTo B Do Begin End;

Здесь I — параметр, изменяющийся в цикле; A, B — выражения порядкового типа, обозначающие начальное, конечное значение параметра цикла. Шаг изменения номера параметра цикла равен 1, если в заголовке цикла стоит To (т.е. реально следующее значение параметра цикла вычисляется с помощью функции succ); и -1 — при DownTo (вычисление производится с помощью функции pred).

Порядок выполнения цикла с шагом 1 следующий: вычисляются значения начального и конечного значений параметра цикла; параметр если I принимает начальное значение; если I меньше или равно конечному значению, исполняется тело цикла; значение параметра цикла увеличивается, т.е. I := succ(I); проверяется условие I=B) и при его выполнении цикл повторяется. Выход из цикла осуществляется, если I>B (IB (или A Sum_Max Then Begin Sum_Max := Sum; Ch := I End;

     End;

     WriteLn('Максимальную сумму делителей ', Sum_Max, ' имеет число ',Ch)

  End.

Задача 4. Дано натуральное число n. Получить все простые делители этого числа.

{Программа отыскания простых делителей данного числа}

Program Pr_Del;

 Var N, I, Vsp : Integer;

     Log_Per, Priznak : Boolean;

   Begin

    Write('Введите натуральное число: ');

    ReadLn(N);

     Priznak := True; {Признак того, не является ли введенное число простым}

      {Пока параметр цикла не превысил квадратного корня из данного числа,

       продолжаем поиск простых делителей}

     For I := 2 To Round(Sqrt(N)) Do

       If N Mod I = 0 Then

         Begin

           Priznak := False;   {Введенное число не является простым}

           Log_Per := False;   {Логическая переменная, принимающая значение True,

                                если нашлись делители I, отличные от 1 и I}

           Vsp := 2;

            Repeat

              If (I Mod Vsp = 0) And (I Vsp) Then Log_Per := True;

              Vsp := Vsp + 1

            Until  (Vsp > I Div 2 + 1) Or Log_Per;

            If Not(Log_Per) Then WriteLn(I)  {Если число I простое, печатаем его}

         End;

     If Priznak Then WriteLn(N)

   End.

Предлагаем читателю самостоятельно разобраться с представленным решением.

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://comp-science.narod.ru

 
     
Бесплатные рефераты
 
Банк рефератов
 
Бесплатные рефераты скачать
| Интенсификация изучения иностранного языка с использованием компьютерных технологий | Лыжный спорт | САИД Ахмад | экономическая дипломатия | Влияние экономической войны на глобальную экономику | экономическая война | экономическая война и дипломатия | Экономический шпионаж | АК Моор рефераты | АК Моор реферат | ноосфера ба забони точики | чесменское сражение | Закон всемирного тяготения | рефераты темы | иохан себастиян бах маълумот | Тарых | шерхо дар борат биология | скачать еротик китоб | Семетей | Караш | Influence of English in mass culture дипломная | Количественные отношения в английском языках | 6466 | чистонхои химия | Гунны | Чистон | Кус | кмс купить диплом о language:RU | купить диплом ргсу цена language:RU | куплю копии дипломов для сро language:RU
 
Рефераты Онлайн
 
Скачать реферат
 
 
 
 
  Все права защищены. Бесплатные рефераты и сочинения. Коллекция бесплатных рефератов! Коллекция рефератов!