Контрольная работа по предмету "Информатика"

  1. Главная
  2. Контрольные работы
  3. Информатика
Узнать цену работы по вашей теме

Итерационные циклы

Балтийский государственный технический университет

«Военмех» им. Д.Ф. Устинова

Кафедра И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.

Блок-схема:




Не сдавайте скачаную работу преподавателю!
Данную контрольную работу Вы можете использовать для выполнения своих заданий.
Доработать Узнать цену работы по вашей теме
Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Другие популярные контрольные работы:

Сейчас смотрят :

Реклама на сайте
© 2015-2025