Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Часть1. Структурное программирование.doc
Скачиваний:
1
Добавлен:
01.04.2025
Размер:
1.94 Mб
Скачать

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

Задача 5

  1. Формулировка задачи: вычислить значение функции: .

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

Реализация программы с использованием цикла с параметром

2. Таблица распределения идентификаторов

Входные

промежуточные

выходные

переменные

х

a

K

N

у

имя

х

a

K

N

у

тип

real

real

integer

integer

real

3. Блок-схема программы представлена на рис. 11.

4. Программа. Программа составляется по блок-схеме с учетом таблицы распределения идентификаторов.

Рис. 11. Блок-схема программы

Program Primer;

uses Crt;

var

x, y, a : real;

n, k: integer;

begin

writeln('Vvedite x, a, k = ');

readln(x,a,k);

y:=0;

For n:=1 to k do

y:=y+((sqr(x)+a)*n)/(n+1);

writeln ('y = ', y:6:2);

writeln;

End.

5. Протокол работы программы

Vvedite x, a, k =

2.0 4.0 5

y = 28.40

6. Содержание отчет. (см. задача 1).

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

2. Таблица распределения идентификаторов

Входные

промежуточные

выходные

переменные

х

a

K

N

у

имя

х

a

K

N

у

тип

real

real

integer

integer

real

3. Блок-схема программы с использованием цикла с предусловием представлена на рис. 12.

4. Программа. Программа составляется по блок-схеме с учетом таблицы распределения идентификаторов.

Рис. 12. Блок-схема

программы

Program Primer;

uses Crt;

var

x, y, a : real;

n, k: integer;

begin

writeln('Vvedite x, a, k = ');

readln(x,a,k);

y:=0;

n:=1;

while n<=k do

begin

y:=y+((sqr(x)+a)*n)/(n+1);

n:= n+1;

end;

writeln ('y = ', y:6:2);

writeln;

end.

5. Протокол работы программы

Vvedite x, a, k =

2.0 4.0 5

y = 28.40

6. Содержание отчета (см. задача 1).

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