Лабораторная работа № 2 - Табуляция функций

ЗАДАНИЕ. Составить программу, которая распечатывает заданное количество значений функции ВСТАВКА А и соответствующее значение аргумента. Таблица со значениями располагается ВСТАВКА Б. Значения функции распечатываются в ВСТАВКА В, значения аргумента - ВСТАВКА Г. Абсцисса табулируется на интервале [ 0 .. 2pi ] с шагом 2pi / (N-1), где N - это количество выводимых значений.

Индивидуальное задание для данной работы формируется на основе персонального номера студента, выданного преподавателем.

ВСТАВКА А:

0. Y = X * SinX/CosX

1. Y = SinX * E-X

0. Y = TgX/X

0. Y = SinX/(X-5)

0. Y = 2SinX + CosX

0. Y = Cos²X * E^-X

0. Y = CosX * E^X

0. Y = X/ (1 – CosX)

0. Y = 1/(XTg(X/2))

0. Y = TgX² + CtgX²

0. Y = XLn(CosX)

0. Y =

1. Y =

2. Y =

ВСТАВКА Б:

0. Горизонтально - слева направо;

1. Вертикально - сверху вниз;

2. Горизонтально, значения функции и аргумента разделяются строкой звездочек;

3. Вертикально, значения функции и аргумента разделяются столбцом звездочек.

ВСТАВКА В:

0. С точностью 5 знаков после десятичной точки;

1. С точностью 3 знака после десятичной точки;

2. В свободном формате.

ВСТАВКА Г:

0. С точностью 2 знака после десятичной точки;

1. В свободном формате.

Порядок выполнения работы

1. Составляется структурная схема алгоритма;

2. Определяются ограничения на исходные данные (см Примечание);

3. Производится кодирование и отладка.

Пример программы

{Вариант 0, 0, 0, 0}

Program Lab2;

Uses Crt;

Var i,kx,ky:Integer;

n:integer;

step:real;

x,y:Real;

Begin

ClrScr;

Write('Введите количество точек ');

Readln(n);

if(n<0)then begin

Writeln('Неправильное значение n. N должно быть >0');

End

Else

Begin

if ( n <> 1 ) Then step:=2*pi/(n-1);

x:=0;

ky:=2;

For i := 1 to n Do

Begin

if ( (i mod 7) = 1) Then

Begin

ky:=ky+2;

kx:=0;

gotoxy(1,ky); Write('x');

gotoxy(1,ky+1); Write('y');

End;

kx:=kx+1;

y:=sin(x)*exp(-x);

gotoxy(kx*10,ky);

Write(x:10:2);

gotoxy(kx*10,ky+1);

Write(y:10:5);

x:=x+step;

End;

End;

Readkey;

End.

Примечание: Можно подобрать такое значение N, что функция y=sin(x)/cos(x) будет не определена в некоторых точках интервала. Нужно учесть, что при cos(x) = 0 значение функции не определено.

Лабораторная работа № 3 - Суммирование членов ряда

ЗАДАНИЕ. Составить программу, которая суммирует члены ряда ВСТАВКА А. Накопление суммы прекращается после ВСТАВКА Б. Суммирование производится дважды: сначала от первого члена к последнему, затем в обратном порядке. На каждом шаге распечатывается номер слагаемого, слагаемое, а также значение суммы.

Индивидуальное задание для данной работы формируется на основе персонального номера студента, выданного преподавателем.

ВСТАВКА А:

0. 1+2+3+…+K

1. p+(p+1)+(p+2)+…+(p+k)

2. 1+3+5+…+(2k-1)

3. 2+4+6+…+2k

4. 1/2+1/6+1/12+…+1/(k(k+1))

5. 1/6+1/24+1/60+…+1/(k(k+1)(k+2))

6. 1+1/4+1/9+…+1/k²

7. 1²+2²+3²+…+k²

8. 1¹+2²+3³+…+k^k

9. 1³+2³+3³+…+k³

10. 1⁴+3⁴+5⁴+…+(2k-1)⁴

11. 1¹+3³+5⁵+…+(2k-1)^(2k-1)

12. 2²+6³+12⁴+…+(k(k+1))^(k+1)

ВСТАВКА Б:

0. Того, как накопленная сумма превысит заданное значение M;

1. Того, как очередной член суммы достигнет заданного значения M;

2. Прибавление члена с заданным номером M.

ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

1. Составляется структурная схема алгоритма

2. Определяются ограничения на исходные данные (см. Примечание)

3. Производится кодирование и отладка

ОТЧЕТ ДОЛЖЕН СОДЕРЖАТЬ

1. Блок-схему программы

2. Листинг программы на языке Паскаль

3. Вывод программы должен содержать не менее десяти элементов.