Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Iseult
0 / 0 / 1
Регистрация: 28.10.2011
Сообщений: 58
#1

Математическая задача, преобразование суммы

09.12.2011, 13:07. Просмотров 287. Ответов 1
Метки нет (Все метки)

Пыталась что-то сделать, но неудачно..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var x,y,c,f:real;
    n:integer;
    
BEGIN 
 
 writeln(' Введите х ');
 readln(x);
 
if (x<-3) or (x>3) then 
writeln(' Введите х в интервале от -3 до 3 ');
 
  repeat 
   f:=(exp(n*ln(x-1)))/n*n;
   x:=x+0.1;
    for n:=2 to 10 do 
     begin
      c:=(exp(n*ln(x-1)))/n*n;
      f:=f+c;
     end;
    writeln(f);
  until x=3;
  
if x=0 then writeln('y не существует');
 
END.
0
Миниатюры
Математическая задача, преобразование суммы  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 13:07
Ответы с готовыми решениями:

Математическая задача в Pascal!
y=(x-1)/(x+1) + (1/3)*(x-1)/(x+1)^3 + (1/5)*(x-1)/(x+1)^5 + (1/7)*(x-1)/(x+1)^7 +...

Задача на вычисление суммы ряда
{s}_{i}=1+x+\frac{{x}^{2}}{2!}+...+\frac{{x}^{i}}{i!} Выясните, на сколько 5-й и 10-й член...

Задача на нахождение суммы элементов
Дано натуральное число n, действительные числа a1, a2, ... ,an. Вычислить сумму: -a1/1! + a2/2! -...

Задача на нахождение суммы бесконечного ряда
Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда, учитывая только...

Правильно ли решена задача на нахождение суммы ряда?
Правильно ли я написал? Если нет, то исправьте. Найти сумму ряда с точностью \varepsilon...

1
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
09.12.2011, 13:42 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var x,y,f:real;
    n,k:integer;
BEGIN
x:=-3; //начало
k:=0; //считаем итерации
repeat
 f:=1;
 y:=0;
 for n:=1 to 10 do
  begin
   f:=f+(x-1);
   y:=y+f/(n*n);//вычисляем Y
  end;
 k:=k+1;
 if k in [1..20] then  gotoXY(1,k)//первая колонка
 else if k in [21..40] then gotoXY(25,k-20) //вторая
 else gotoXY(50,k-40); //третья
 write('x=',x:5:1,'  y=',y:7:3);
 x:=x+0.1;
until x>3+0.05; //с запасом на пол-шага, чтобы точно попало х=3
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 13:42

Задача на нахождение суммы четных(?) членов геометрической прогрессии
Здравствуйте! Такая вот, задача: Даны значения первого члена и знаменателя геометрической...

Задача на вычисления суммы членов ряда по заданной формуле
Дана такая задача: Вычислить сумму ряда по приведенной формуле. Вычисления вести до тех пр, пока...

Вывести суммы элементов каждой стоки ( задача на двумерный массив)
Вывести суммы элементов каждой стоки ( задача на двумерный массив)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru