Лабораторная работа
«ПРОГРАММИРОВАНИЕ ИТЕРАЦИОННОГО ЦИКЛА Вариант № 2»
- 9 страниц
Лабораторная работа N4 2
“Программирование разветвляющегося вычислительного процесса” 2
1. Постановка задачи 2
2. Анализ задачи 2
4. Схема алгоритма. 4
5. Интерфейс программы 4
5. Интерфейс программы 5
6. Текст программы на Паскале 5
7. Результаты расчёта 6
Вывод: 7
Лабораторная работа N4
“Программирование разветвляющегося вычислительного процесса”
1. Постановка задачи
Разработать программу вычисления точного Y и приближенного S значений функции при изменении её аргумента от xн до xк
с шагом Дx.
Для предотвращения зацикливания предусмотреть завершение процесса суммирования членов ряда по заданному максимальному номеру члена ряда =1000.
2. Анализ задачи
Задача состоит в том, чтобы вычислить точное Y и приближенного S значений функции при изменении её аргумента от xн до xк
с шагом Дx.
Приближенное значение функции, представленной бесконечным рядом , вычислять путем суммирования членов ряда до достижения требуемой точности = . То есть прибавлять очередной член ряда до тех пор, пока абсолютное значение разности yTyP по величине не станет меньше .
6. Текст программы на Паскале
Program Work_4_2;
{Работа №2, вариант 2}
const Title = 'Работа №4, вариант 2, Выполнила Аминева Алина';
const n=1000;e=0.0001;
label met;
var x,y,s,xn,xk,dx,a,eror:real;
i:integer;
begin
writeln(title);
Writeln('Введите значения xn => ');
Readln(xn);
xn:=xn;
Writeln('Введите значения xk => ');
Readln(xk);
Writeln('Введите значения dx => ');
Readln(dx);
Writeln ('Исходные данные:');
Writeln('xn =', xn:7:4,' xk =', xk:7:4,' dx =',dx:7:4,' e=',e);
writeln('****************************************************');
writeln('*аргумент*точ знач *прибл знач*слогаемые* ошибка *');
writeln('****************************************************');
x:=xn;
while x<=xk do
begin
y:=x*x/4-pi*x/2+pi*pi/6;
s:=0;
for i:=1 to n do
begin
a:=cos(i*x)/power(i,2);
if abs(y-s) eror:=y-s;
end;
Введите значения xn =>
0
Введите значения xk =>
1.57
Введите значения dx =>
0.369
Исходные данные:
xn = 0.0000 xk = 1.5700 dx = 0.3690 e=0.0001
****************************************************
*аргумент*точ знач *прибл знач*слогаемые* ошибка *
****************************************************
*0.000 *1.644934 *1.643934566682 * 1000 *0.000999500 *
****************************************************
*0.369 *1.099350 *1.099383774501 * 35 *-0.000033302 *
****************************************************
*0.738 *0.621847 *0.621780324390 * 39 *0.000067053 *
****************************************************
*1.107 *0.212425 *0.212514770500 * 29 *-0.000089987 *
****************************************************
*1.476 *-0.128917 *-0.128944742807 * 41 *0.000027431 *
****************************************************
Программа работает верно. Полученные результаты удовлетворяют требованию.
Текст программы на Паскале
Программа работает верно. Полученные результаты удовлетворяют требованию.
Тема: | «ПРОГРАММИРОВАНИЕ ИТЕРАЦИОННОГО ЦИКЛА Вариант № 2» | |
Раздел: | Программирование, Базы данных | |
Тип: | Лабораторная работа | |
Страниц: | 9 | |
Цена: | 700 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
Контрольная работа
«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 66»Контрольная работа
«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 68»Контрольная работа
«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 67»Контрольная работа
«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 70»Контрольная работа
«Готовые решения задач на алгоритмическом языке Паскаль. УГНТУ. Вариант 40»