Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
floreNz
0 / 0 / 1
Регистрация: 03.11.2012
Сообщений: 16
#1

Итерационные вычисления - Pascal

23.12.2012, 22:15. Просмотров 318. Ответов 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
26
27
28
29
30
31
32
33
34
35
36
var zn,el,ch,zh,x,y0,y,k,n,t: real;
    i,j: integer;
    eps:array[1..3] of real;
begin
  for i:=1 to 3 do
  begin
    writeln('Введите eps ',i);
    readln(eps[i]);
  end;
  x:=-0.3;
  for i:=1 to 20 do
  begin
    write(' x=',x:7:5);
    for j:=1 to 3 do
    begin
      write(' eps=',eps[j]:7:5);
      y0:=-(power(x,2))/3;
      k:=2;
      n:=1;
      ch:=power(x,3);
      zn:=(4*k-1)*(4*k-3);
      repeat
        el:=ch/zn;
        n:=n+1;
        y:=y0+el;
        ch:=ch*(-x);
        k:=k+1;
        zn:=(4*k-1)*(4*k-3);
      until abs(el)<=eps[j];
      write(' y=',y:7:5);
      write(' n=',n);
    end;
    writeln;
    x:=x+0.05;
  end;
end.

http://www.cyberforum.ru/pascal/thread1888735.html
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2012, 22:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Итерационные вычисления (Pascal):

итерационные циклы
знающие подскажите указанием. не считает сумму сходящегося ряда. с точки зрения...

Итерационные циклы
задали пример,вроде написал,но выводит ошибку.посмотрите где неправильно? ...

Итерационные циклы
значится так, задачка на итерационные циклы))) подпрограммы еще не учили,...

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

итерационные циклы
данная программа должна осуществлять подсчет sin...и выводить в 6 столбцов..1)х...

1
floreNz
0 / 0 / 1
Регистрация: 03.11.2012
Сообщений: 16
25.12.2012, 20:53  [ТС] #2
всё нашел сам
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 20:53
Привет! Вот еще темы с решениями:

Итерационные циклы
Помогите пожалуйста решить задачку по итерационным циклам... Задачу необходимо...

Итерационные циклы for … to … do
Здравствуйте, помогите пожалуйста с написанием кода для следующего задания на...

итерационные циклы с постусловием
Даны действительные числа X, e(X&lt;&gt;0, e&gt;0). Вычислить с точностью e.

2-ве задачи (Итерационные циклы)
Первая задача: Вторая задача: Я очень прошу помогите мне написать эти...


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

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

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