3. Примеры выполнения задания к практическому занятию № 5

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

Пример 5.

Написать программу примера 4 из практической работы № 2 (блок-схема 2.2 ).

В цикле вычислить значение функции z= x* y при условии, что одна из переменных - x меняется в каждом цикле, а другая переменная - у не меняется и может быть любым целым числом.

PROGRAM PR5;

Var

x, y, z, i, n :integer;

begin

{циклический алгоритм}

writeln (‘ввести x,y, количество циклов-n’);

readln (x,y,n);

{оператор цикла с параметрами}

for i:=1 to n do

begin

z:=x*y;

writeln (‘x= ’, x, ‘ y= ’, y, ‘ z= ’, z);

x:=x+1;

End; {конец оператора цикла с параметрами}

End.

Если неизвестно количество циклов, то следует выбрать любой из двух операторов цикла: с предусловием или с постусловием.

Пример 6.

Написать программу примера 2 из практической работы № 2, в котором заданы начальные значения переменных: x=1; y=5 и условие: пока y>x выполняется y: = y – x.

Определить количество циклов и значения переменных: x; y после выхода из цикла.

Алгоритм этой задачи представлен в виде блок-схемы 2.1. и программы:

PROGRAM PR6;

Var

k, x, y: integer;

begin

{циклический алгоритм}

x:=1; y:=5; k:=0;

{оператор цикла с предусловием}

while y>x do

begin

y: = y – x;

k:=k+1;

writeln (‘k=’, k, ‘ x= ’, x, ‘ y= ’, y);

end; {конец оператора}

end.

В примере 6 используется оператор цикла с предусловием, который работает при условии y>x. Условие проверяется при входе в цикл. В теле цикла счётчик цикла задан в виде оператора присваивания k:=k+1; который выдаёт количество выполненных циклов.

Пример 7.

Этот же алгоритм рассматривается в примере 7, где используется оператор цикла с постусловием. Цикл выполняется при условии y>x, но в конце оператора проверяется условие выхода из цикла (y<=x).

PROGRAM PR7;

Var

k, x, y: integer;

begin

{циклический алгоритм}

x:=1; y:=5; k:=0;

{оператор цикла с постусловием}

repeat

y: = y – x;

k:=k+1;

writeln (‘k=’, k, ‘ x= ’, x, ‘ y= ’, y);

until y<=x; {конец оператора}

end.

Пример 8.

Написать программу. Вычислить и вывести таблицу значений функции y=cos(x). Переменная X изменяется в интервале от x1 до xk с шагом dx.

В данной программе используется оператор цикла с параметрами.

PROGRAM PR8;

Var

x,y,dx,x1,xk:real;

i, n :integer;

begin

{циклический алгоритм}

writeln (‘ввести начальное – x1, конечное – xk, шаг – dx’);

read (x1,xk,dx);

n:=trunc((xk-x1)/dx+1);

x:=x1;

{оператор цикла с параметрами}

for i:=1 to n do

begin

y:=cos(x);

Writeln (‘x= ’, x:8:5, ‘ y= ’, y:8:5);

x:=x+dx;

End; {конец оператора цикла с параметрами}

End.

4. Задания к практическому занятию № 5

1. Написать программу по примеру 5 для своего циклического алгоритма, выполненного в практической работе №2.

2. Ввести программу в компьютер, сохранить в файл.

3. Запустить программу, исправить ошибки, ввести данные, получить результат.

4. Представить преподавателю программу с полученным результатом на компьютере.

5. Оформить и защитить работу преподавателю (тест по данной теме).

Задание ИДЗ №3 по теме: «Программирование. Циклы» в Приложении №1 (Задание 5).