Категория
Информатика
Тип
лабораторная работа
Страницы
1 стр.
Дата
29.07.2013
Формат файла
.doc — Microsoft Word
Архив
847711.zip — 9.8 kb
  • iteracionnye-cikly_847711_1.doc — 40 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Балтийский государственный технический университет
 «Военмех» им. Д.Ф. Устинова
Кафедра И3
«Информационные системы и компьютерные технологии»
Лабораторная работа №3
Итерационные циклы
Вычислить сумму ряда:

С заданной точностью e =0,01 и сравнить его со значением стандартной функции при х=0,6
Программа :
program l3;
const
  eps=0.01;
var
  i:integer;
  s,x,a:real;
begin
  writeln('vv x');
  readln(x);
  s:=0; a:=1; i:=0;
  while abs(a)>eps do
    begin
      s:=s+a; i:=i+1;
      a:= a*x*(4*i-5)/(4*i);
    end;
  writeln(' Сумма ряда =',s:7:6);
  writeln('(1-x)^1/4', exp(1/4*ln(1-x)):7:6);
  readln
end.



Ваше мнение



CAPTCHA