Информатика. Практикум

нения и значение R, если решения нет, то вывести сообщение «Действительных корней нет» и значения R, a, b, c.

Решение задачи

Схема алгоритма решения задачи представлена на рис. 2.17.

Программа

Program Task2_17;

Var

A, B, C, X1, X2, D : Real;

{вычисление параметра А}

A := 1/(Sin(R)+1.5);

for N := R to 20 do A := A - 1/Exp(N*Ln(R));

{вычисление параметра B}

B := 1;

for N := 1 to 30 do B := B*Sin(N); B := Exp(R/50) + B;

C := A*B + Ln(Abs(A)) * Ln(Abs(B));{вычисление параметра С}

D := B*B - 4*A*C; {вычисление дискриминанта}

If D >= 0 Then {начало блока 1 - вычисление корней}

Begin

X1 := (-B + Sqrt(D))/(2*A); X2:= (-B - Sqrt(D))/(2*A);

{вывод значений корней на экран}

Writeln(' R= ',R:3,' X1 = ',X1:5:2,' X2 = ', X2:5:2);

Обозначения схемы алгоритма

X1, X2 – корни квадратного уравнения.

101

Решение задачи

Схема алгоритма решения задачи представлена на рис. 2.18.

Write('Введите массив из 10 чисел: ');

for I:=1 to 10 do Read(X[I]); {ввод значений массива Х} a:=0; b:=1;

for I:=1 to 30 do a := a + Cos(I+3);{вычисление параметра a} for I:=2 to 100 do b := b + 1/i; {вычисление параметра b} {для X[I] вычисление значения функции Z}

for I := 1 to 10 do

Результат работы программы

Введите массив из 10 чисел: 1 150 250 350 10000 -235 0.02 -0.005 789 10

Z5=235154.762

Z6=552265.562

104

2.6.Задачи по нахождению суммы конечного

ибесконечного функциональных рядов

Задача 2.19. Разработать схему алгоритма и программу вычис-

ления ряда S(x) 2sin x 4sin3 x 6sin5 x ... 20sin19 x , если

105

переменная x может изменяться по закону x = 1; 3 (0,5). Вывести на экран значения сумм S для каждого значения x.

Решение задачи

Схема алгоритма решения задачи представлена на рис. 2.19.

Программа

Обозначение схемы алгоритма

106

P – промежуточная переменная для вычисления значений элементов ряда.

107

108

Задача 2.20. Разработать схему алгоритма и программу вычисления

нов ряда, для которых выполняется условие Sn – Sn–1 < 0,01, где

цию для вычисления члена ряда.

Решение задачи

Схема алгоритма решения задачи представлена на рис. 2.20.

Программа

Program Task2_20;

Var

X : Integer;

S1, S2, E : Real;

{функция вычисления члена ряда}

Function F(x :Integer) : Real;

Begin {начало раздела операторов основной программы}

X:= 1;

S2:= F(Х); {сумма, состоящая из 1-го члена ряда} Repeat {начало цикла}

S1:= S2; {S1-сумма, состоящая из (X-1) членов ряда} X:= X + 1; {увеличение X на 1}

S2:= S2 + F(X);{S2-сумма, состоящая из X членов ряда} E:= Abs(S2 - S1);{вычисление погрешности E}

Until E < 0.01; {конец цикла-пока погрешность не станет < 0.01} Writeln('Сумма ряда = ', S2:5:3); {вывод результата на экран} Readln; {ожидание нажатия клавиши Enter}

End. {конец основной программы}

Результат работы программы

Сумма ряда = 5.197

109