Пример программы циклической структуры
Задача.
- Формулировка задачи:
Составить программу расчета таблицы значений функции 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
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.
Вопросы для самоконтроля
- Что такое цикл?
- Какие циклы можно организовать на языке Паскаль?
- В каких случаях предпочтительней использовать оператор 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) на заданном интервале в расчетных точках с четными номерами. | |
Подсчитать количество отрицательных значений функции на заданном интервале. | |
Вычислить произведение положительных значений функции в расчетных точках с нечетными номерами. |
Дата добавления: 2015-05-21; просмотров: 2032;