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

Задача.

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

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

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

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

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

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

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

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

Задание:

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

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

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

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

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

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

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

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

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

Выбрать функцию по варианту из таблицы. Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать.
Вариант	Функция
1	Найти сумму всех положительных значений функции f(x) в расчетных точках.
2	Найти сумму всех отрицательных значений функции f(x) в заданном интервале.
3	Найти произведение вычисленных значений функции f(x), целая часть которых кратна 2.
4	Найти среднее арифметическое положительных значений функции f(x).
5	Найти количество положительных значений функции f(x) на заданном интервале.
6	Найти произведение всех отрицательных значений функции f(x) на заданном интервале.
7	Найти произведение всех положительных значений функции f(x) на заданном интервале.
8	Найти сумму вычисленных значений функции f(x), целая часть которых кратна 2.
9	Найти среднее арифметическое отрицательных значений функции f(x).
10	Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5 .
11	Найти количество положительных значений функции f(x).
12	Найти сумму вычисленных значений функции f(x), дробная часть которых < 0.5
13	Найти произведение вычисленных значений функции f(x), абсолютные значения которых > 1.
14	Найти сумму вычисленных значений функции f(x).
15	Найти произведение вычисленных значений функции f(x).
16	Найти произведение вычисленных значений функции f(x), дробная часть которых < 0.5
17	Найти сумму вычисленных значений функции f(x), дробная часть которых > 0.5
18	Найти количество положительных значений функции f(x), на заданном интервале.
19	Найти количество значений функции f(x), абсолютная величина целой части которых > 1.
20	Найти наибольшее значение функции f(x), на заданном интервале.
21	Найти среднее значение функции f(x).
22	Найти сумму значений функции f(x), абсолютная величина целой части которых < 1.
23	Найти произведение вычисленных значений функции f(x), абсолютные значения которых >1.
24	Найти произведение вычисленных значений функции f(x), целая часть которых кратна 2.
25	Найти наименьшее значений функции f(x) на заданном интервале.
26	Найти произведение значений функции в расчетных точках с четными номерами.
27	Найти сумму значений функции в расчетных точках с нечетными номерами.
28	Найти наименьшее значений функции f(x) на заданном интервале в расчетных точках с четными номерами.
29	Подсчитать количество отрицательных значений функции на заданном интервале.
30	Вычислить произведение положительных значений функции в расчетных точках с нечетными номерами.