Лекция: Пример программы циклической структуры
Задача.
- Формулировка задачи:
Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать.
Найти сумму положительных значений функции f(x) на заданном интервале. Формула для расчета шага изменения аргумента:
dx = (b-a)/(n-1)
- Таблица идентификаторов
| № | Наименование переменной | Обозначения в программе |
| Функция | y | |
| Аргумент | x | |
| Количество точек | n | |
| Начальное значение x | a | |
| Конечное значение x | b | |
| Шаг изменения аргумента | dx | |
| Сумма | s |
- Листинг программы
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.
Вопросы для самоконтроля
- Что такое цикл?
- Какие циклы можно организовать на языке Паскаль?
- В каких случаях предпочтительней использовать оператор for …to … do для организации циклов?
- Какой тип должна иметь переменная, которая является параметром цикла в операторе for …to … do ?
- Сколько циклов будет пройдено, если в операторе while … do условие не выполнилось с первого раза?
- Сколько циклов будет пройдено, если в операторе repeat … until условие выполнилось с первого раза?
- Что такое вложенные циклы?
- Как можно досрочно прервать цикл?
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) на заданном интервале в расчетных точках с четными номерами. | |
| Подсчитать количество отрицательных значений функции на заданном интервале. | |
| Вычислить произведение положительных значений функции в расчетных точках с нечетными номерами. |