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

Практическая работа №45

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

 

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

 

Обеспечивающие средства: Сборник  описаний  практических работ по программированию на Turbo-Pascal; персональный компьютер.

 

Задание: Составить программы, используя вложенные циклы.

 

Требования к отчету:  Итоги практической работы представить в виде блок-схемы алгоритма и текста программы, привести значения исходных данных и значения полученных результатов, ответить на контрольные вопросы.

 

Технология работы:

 

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

В качестве иллюстрации рассмотрим программу, в которой необходимо вычислить  y=2x+t при всех значениях x=1,5; 2; 2,5; 3 и t=1; 3; 5.

Можно составить программу следующим образом: X- параметр внешнего цикла, Т – параметр внутреннего цикла. Тогда при одном значении Х переменная Т принимает все свои значения 1, 3, 5. При другом значении Х снова переменная Т принимает все свои значения и т. д. Всего получится 12 значений У.

 

Выполните следующее упражнение:

Упражнение 1. Наберите текст программы,  с использованием изученного оператора

 Program Тp9pr1;                                  

Const

A=’-----------------------‘;

Var

Y: Real;

X,T: Real; 

   Begin                                                 

Writeln (A);

Writeln (‘  X      T       Y’);

Writeln (A);

X:=1.5;

While X<=3 do

Begin

            T:=1;

            While T<=5 do

            Begin

                        Y:=2*X+T;

                        Writeln (X:4:1,’ ‘ :3,T:4:1,’ ‘:3,Y:6:2);

                        T:=T+2

            End;

            X:=X+0.5

End   

End.                                                  

Сохраните программу под именем ТP9PR1. Выполните программу. Проанализируйте результат.

 

Создайте и выполните следующие программы самостоятельно.

 

• Создать программу, в которой вычислить:

                                                                                         100    50

S    S 1/(i+j2)

                                                                                        I=1     j=1

Результат вычисления вывести на экран. Сохраните программу под именем ТP9PR2.

• Создать программу, в которой ввести натуральное число n. Получить f0 f1…fn, где

Fi=1/(i2+1) +1/(i2+2)+…+1/(i2+i)

 Сохраните программу под именем ТP9PR3.

 

Окончание работы:

1. Сохраните созданные программы.
2. Покажите работу преподавателю.
3. Завершите работу Turbo-Pascal.

                                                     

Контрольные вопросы:

1. Каким образом составляется программа с вложенными циклами?
2. В программах какого типа используется вложенные циклы?
3. Существует ли ограничения на количество вложенных циклов?