Пример программы циклической структуры

Задача.

1. Формулировка задачи:

Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a,b и количество точек n ввести с клавиатуры. Результаты вывести на печать.

Найти сумму положительных значений функции f(x) на заданном интервале. Формула для расчета шага изменения аргумента:

dx = (b-a)/(n-1)

1. Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
	Функция	y
	Аргумент	x
	Количество точек	n
	Начальное значение x	a
	Конечное значение x	b
	Шаг изменения аргумента	dx
	Сумма	s

1. Листинг программы

program cikl_3;

uses

ctr;

var

y,x,a,b,dx,s: real;

I,n: integer;

begin

clrscr;

writeln(‘Введите a,b,n’);

readln(a,b,n);

{ шаг изменения аргумента}

dx:=(b-a)/(n-1);

s:=0;

x:=a;

for i:=1 to n do

begin

y:=(1-exp(-x)) * sin(4*pi*x);

writeln(‘y=’,y:8:3);

x:=x+dx;

if y>0 then s:=s+y;

end;

writeln(‘Сумма положительных значений s=’,s:8:3);

readln;

end.

Вопросы для самоконтроля

1. Что такое цикл?
2. Какие циклы можно организовать на языке Паскаль?
3. В каких случаях предпочтительней использовать оператор for …to … do для организации циклов?
4. Какой тип должна иметь переменная, которая является параметром цикла в операторе for …to … do?
5. Сколько циклов будет пройдено, если в операторе while … do условие не выполнилось с первого раза?
6. Сколько циклов будет пройдено, если в операторе repeat … until условие выполнилось с первого раза?
7. Что такое вложенные циклы?
8. Как можно досрочно прервать цикл?