Главная | Обратная связь | Поможем написать вашу работу!

Задания на лабораторную работу №3

Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x(x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps. Вычисленные значения ряда сравнить со значениями заданной функции f(x). Результаты вычислений вывести в виде таблицы с заголовком.

Вариант 1

Вариант 2

Вариант 3

Вариант 4

Вариант 5

Вариант 6

Вариант 7

Вариант 8

Вариант 9

Вариант 10

Вариант 11

Значения переменных a и x ввести с консоли:

Вариант 12

Вариант 13

Вариант 14

Вариант 15

Лабораторная работа № 4

Циклы с параметром

Тема: Программирование алгоритмов циклической структуры.

Цель работы: Освоить программирование циклических алгоритмов с циклами с параметром. Освоить программирование циклических алгоритмов с вложенными циклами.

Задание на лабораторную работу

Получить задание в соответствии с номером своего варианта.
Составить схему алгоритма решения задачи.
Написать код программы на языке Паскаль в среде Borland Pascal for Windows.
Осуществить компиляцию, отладку и тестирование программы.
Получить результат.
Оформить отчет по лабораторной работе.

Пример оформления работы

Задание 1.

1. Для заданного с консоли значения n определить сумму числового ряда:

Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции f=e.

Накопление суммы производим по рекуррентной формуле – каждая последующая сумма вычисляется через предыдущую:

Общий вид слагаемого суммы может быть записан в следующем виде:

Для сокращения объема вычислений выразим его через предыдущее слагаемое:

Сомножитель , называемый переходным коэффициентом, можно определить из предыдущего соотношения:

Раскроем эту формулу:

Тогда текущий член ряда будет вычисляться по формуле:

Начальное значение находим подстановкой в формулу для общего члена значения n=0:

Начальное значение суммы можно принять равным первому члену ряда, то есть . Учитывая, что значение текущего члена ряда и суммы при n=0 уже определены, номер члена ряда n примем равным единице.

2. Схема алгоритма решения задачи:

3. Код программы:

Program Variant_0;

Uses WinCRT;

Var s, f, t: Real;

i, n: Word;

Begin

WriteLn('Лабораторная работа №4_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных:');

Write('n=');

ReadLn(n);

WriteLn;

WriteLn('----------------');

WriteLn(' i s');

WriteLn('----------------');

t:=1.0;

s:=1.0;

f:=exp(1.0);

For i:=1 To n Do

Begin

t:=t/i; {очередное слагаемое}

s:=s+t; {очередная сумма}

WriteLn(i:3, ' ', s:0:6);

End;

WriteLn('----------------');

WriteLn;

WriteLn(' f=',f:0:6);

End.

4. Компиляция, отладка, тестирование и получение результата:

Задание 2.

1. Числовая последовательность задана рекуррентной формулой:

Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.

Результаты вычислений вывести в виде таблицы с заголовком.

2. Схема алгоритма решения задачи:

3. Код программы:

Program Variant_0;

Uses WinCRT;

Var s, k, a1, a2, a, n: Word;

Begin

WriteLn('Лабораторная работа №4-2');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

{ввод исходных данных}

WriteLn('Ввод исходных данных:');

Write('a1=');

ReadLn(a1);

Write('a2=');

Readln(a2);

Write('n=');

ReadLn(n);

WriteLn;

WriteLn('----------------');

WriteLn(' k a s');

WriteLn('----------------');

s:=a2+a1; {исходная сумма}

For k:=3 To n Do

Begin

a:=a2+a1; {очередное слагаемое}

s:=s+a; {очередная сумма}

a1:=a2;

a2:=a;

WriteLn(k:3, ' ', a:3, ' ', s:3);

End;

WriteLn('----------------');

WriteLn;

End.

Компиляция, отладка, тестирование и получение результата:

⇐ Предыдущая 1 2 3 456 7 8 9 10 Следующая ⇒