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

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

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

Рассмотрим фрагмент:

…

for i:=1 to n do begin

p:=p* i;

if p>100 then break;

writeln(‘p=’, p);

end;

…

Цикл будет прерван при достижении условия p>100 по процедуре break.

Задача.

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

crt;

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. Как можно досрочно прервать цикл?

10.6. Методические указания для выполнения практического задания №6. «Циклы»

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

Задание:

1. В приложении 7 выбрать вариант задания.

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

3. Составить блок-схему алгоритма.

4. Написать программу и отладить ее по заранее подготовленному тесту.

5. Оформить задание в тетради для практических заданий.

6. Результат выполнения программы предъявить преподавателю.

7. Ответить на вопросы самоконтроля.

8. Защитить выполненную работу у преподавателя.

Приложение 7. Таблица вариантов заданий

Выбрать функцию по варианту из таблицы. Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать.
Вариант	Функция
	Найти сумму всех положительных значений функции f(x) в расчетных точках.
	Найти сумму всех отрицательных значений функции f(x) в заданном интервале.
	Найти произведение вычисленных значений функции f(x), целая часть которых кратна 2.
	Найти среднее арифметическое положительных значений функции f(x).
	Найти количество положительных значений функции f(x) на заданном интервале.
	Найти произведение всех отрицательных значений функции f(x) на заданном интервале.
	Найти произведение всех положительных значений функции f(x) на заданном интервале.
	Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2.
	Найти среднее арифметическое отрицательных значений функции f(x).
	Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5.
	Найти количество положительных значений функции f(x).
	Найти сумму вычисленных значений функции f(x), дробная часть которых < 0.5
	Найти произведение вычисленных значений функции f(x), абсолютные значения которых > 1.
	Найти сумму вычисленных значений функции f(x).
	Найти произведение вычисленных значений функции f(x).
	Найти произведение вычисленных значений функции f(x), дробная часть которых < 0.5
	Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5
	Найти количество положительных значений функции f(x), на заданном интервале.
	Найти количество значений функции f(x), абсолютная величина целой части которых > 1.
	Найти наибольшее значение функции f(x), на заданном интервале.
	Найти среднее значение функции f(x).
	Найти сумму значений функции f(x), абсолютная величина целой части которых < 1.
	Найти произведение вычисленных значений функции f(x), абсолютные значения которых >1.
	Найти произведение вычисленных значений функции f(x), целая часть которых кратна 2.
	Найти наименьшее значений функции f(x) на заданном интервале.
	Найти произведение значений функции в расчетных точках с четными номерами.
	Найти сумму значений функции в расчетных точках с нечетными номерами.
	Найти наименьшее значений функции f(x) на заданном интервале в расчетных точках с четными номерами.
	Подсчитать количество отрицательных значений функции на заданном интервале.
	Вычислить произведение положительных значений функции в расчетных точках с нечетными номерами.

Дата добавления: 2014-12-27