КР2 В25
.pdfБЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ
Кафедра программного обеспечения информационных технологий
Факультет ФНиДО Специальность ПОИТ
Контрольная работа № 2 по дисциплине «Основы алгоритмизации и программирования»
часть 1 Вариант № 25
Выполнил студент: Ковалевский В. В.
Минск 2012
1). Задание
Вычислить с заданной точностью ε значение функции ch X = 1 + (X2 / 2!) + (X4 / 4!) + (X6 / 6!) + (X8 / 8!) + ... где X изменяется от А до В с шагом H. Значения А, В, H и ε ввести.
2). Схема алгоритма методом Насси-Шнейдермана;
Вычислить с заданной точностью значение функции
Ввод A, B, H, eps I1=1
X=a
X<=b
P=x s[i1]=1
M=1
P>eps
p=p*x*x/(n*(n-1))
S[i1]=s[i1]+p
N=n+2
X=x+n Вывод x, eps, s[i1]
I1 = i1 + 1
3). Программа на языке паскаль
Program Vladislav_Kovalevski_k2_v25; var
s:array [1..100] of real; a, b, h, eps, p, x:real; i1,n:integer;
begin
Writeln ('Vvedite znacheniya A, B, H, Eps cherez probel'); read(a, b, h, eps); {Ввод значений в программу}
i1:=1;
x:=a;
while x<=b do {выполняется от a до b с шагом h} begin
p:=x;
S[i1]:=1;
n:=1;
while p>eps do {считается значение с опред. точностью} begin
p:=p*x*x/(n*(n+1));
s[i1]:=s[i1]+p;
n:=n+2;
end;
x:=x+h;
Writeln ('Pri X=', x:4:2,' s tochnostiu Eps=', eps:6:4,' Ch(x)=',s[i1]:4:2); {Вывод результата на экран}
i1:=i1+1;
end;
readln;
end.
4). Результаты работы программы
Входные данные:
vedite znacheniya А, В, H, Eps cherez probel 1 10 1 0.01
Выходные данные:
Pri X=2.00 s tochnostiu Eps= 0.0100 Ch<x>=l.54 Pri X=3.00 s tochnostiu Eps= 0.0100 Ch<x>=6.52 Pri X=4.00 s tochnostiu Eps= 0.0100 Ch<x>=28.20 Pri X=5.00 s tochnostiu Eps=0.0100 Ch<x>=106.23 Pri X=6.00 s tochnostiu Eps=0.0100 Ch<x>=367.05 Pri X=7.00 s tochnostiu Eps=0.0100 Ch<x>=1205.29 Pri X=8.00 s tochnostiu Eps=0.0100 Ch<x>=3832.22
Pri X=9.00 s tochnostiu Eps=0.0100 Ch<x>=11916.83 Pri X=10.00 s tochnostiu Eps =0.0100 Ch<x>=36455.88 Pri X=11.00 s tochnostiu Eps =0.0100 Ch<x>=110123.33