Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 3.2
з дисципліни
“Основи програмування та алгоритмічні мови”
Постановка задачі
Задані дійсні числа х ( 0, Е > 0. З точністю 10-5 обчислити значення суми
.
Визначити кількість доданків.
Для отривання відповіді, ми будемо створювати цикл, який буде виконуватися до тих пір, поки не буде досягнено, потрібної точності обчислення. І реалізується ця задача наступним алгоритмом… Блок-схема
Текс програми
program lab_3_2;
var
s1, {1 element}
a, {2 element}
s, {syma elementiv}
x, {zminna x}
l:real; {10^-5}
i, {zminna dla tsukla 'for i:=1 to n do...}
k:integer; {n elementa}
begin
s:=0;
k:=0;
s1:=1;
a:=1;
l:=1/exp(10*ln(5));
write('vvedit x, x=');
readln(x);
writeln;
{------------------------}
While (abs(s1-s)>l) do
begin
k:=k+1;
s1:=s;
a:=a*((x*x)/(2*k));
s:=s+a;
writeln('a(',k:2,')=',a:12:8,' s(',k,')=',s:10:8);
end;
{------------------------}
writeln;
writeln('s=',s:10:8);
writeln('k=',k);
readln;
end.
Як можна побачити із приведенного зображення коли булла досягнута задана точність: а(8)=0.0000001 , то программа перервала своє виконання і вивела одержаний результат.
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора