Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Iseult
0 / 0 / 0
Регистрация: 28.10.2011
Сообщений: 58
#1

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

09.12.2011, 13:07. Просмотров 268. Ответов 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 ABC):

Математическая задача в Pascal! - Pascal ABC
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 + (1/9)*(x-1)/(x+1)^9 + (1/11)*(x-1)/(x+1)^11 Надо...

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

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

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

Правильно ли решена задача на нахождение суммы ряда? - Pascal ABC
Правильно ли я написал? Если нет, то исправьте. Найти сумму ряда с точностью \varepsilon =10^{-4}, общий член которого...

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

1
Puporev
Модератор
53013 / 40824 / 14070
Регистрация: 18.05.2008
Сообщений: 94,965
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
Привет! Вот еще темы с ответами:

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

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

Задача на двумерные массивы. Сформировать матрицу и посчитать суммы столбцов и строк - Pascal ABC
Сформировать матрицу kxk, состоящую из чисел, вычисленных по формуле : A(ij)=(N-1+I)^j, (N-вводится с клавиатуры). Подсчитать суммы...

Символическое дифференцирование-ввод формулы в связный список, преобразование в ПОЛИЗ, обратное преобразование - Pascal
Прошу помогите мне. Символическое дифференцирование-ввод формулы в связный список, преобразование в ПОЛИЗ, обратное преобразование в...


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

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

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