Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2018, 15:43   #1
Zlarxing
Новичок
Джуниор
 
Регистрация: 11.05.2018
Сообщений: 1
По умолчанию Программирование итерационных циклов

Для всех значений X, задаваемых параметрами из набора:
начальное значение A, конечное значение В, шаг Dx, количество шагов Nx, ограничение на число итераций Nmax, вычислить функцию F(x) как сумму S бесконечного числа слагаемых, заканчивая суммирование для каж-дого значения x при достижении заданной точности EPS.
Вывести в выводной текстовый файл исходные данные A,B,Dx,EPS и результаты расчета: значения x,F(x),S и количество слагаемых K, обес-печивающих требуемую точность. Результаты выводить в форме таблицы с рамками.
F(x) arctg(x)
начальное значение A
-0.5
шаг Dx
0.1
число шагов Nx
10*
точность вычисления
EPS *
1e-6

Написано что надо делать через цикл if

Вид представления функции как суммы ряда слагаемых
arctg(x)=x - x^3/3 + x^5/5 - x^7/7 + x^9/9 - ...
Zlarxing вне форума Ответить с цитированием
Старый 11.05.2018, 15:50   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,694
По умолчанию

И? Какой смысл этого поста?
p51x на форуме Ответить с цитированием
Старый 11.05.2018, 15:55   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Естественно код дать. Тут же онлайн решатель задач ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 11.05.2018, 17:06   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,529
По умолчанию

Задание понято. Zlarxing, разрешите исполнять? Мой счет в швейцарском банке и конкретную сумму я озвучу в личке
digitalis вне форума Ответить с цитированием
Старый 13.05.2018, 20:41   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цикл if, что то новое в программирование ввели.Заданная точность может быть не достигнута за заданное число итераций, так что либо либо(аморе аморе), либо 2мя способами считать
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 14.05.2018, 10:24   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,529
По умолчанию

Отнюдь Новичок, который не знаком еще с for,while пишет
Код:
    i=0 ;
label: ......
   i=i+1 ;
   if (i<n)  goto label ;
digitalis вне форума Ответить с цитированием
Старый 20.05.2018, 11:44   #7
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,945
По умолчанию

Код:
function MyArcTan(x:real; var k:integer):real;
const eps=1e-6;
var xi:real;
begin
   Result:=x;
   xi:=x;
   k:=1;
   Repeat
      Inc(k);
      xi:=-xi*x*x/(2*k-1);
      Result:=Result+xi;
   Until Abs(xi)<eps;
end;

const a=-0.5;
      dx=0.1;
      nx=10;
      b=a+dx*nx;
var k:integer;
    x:real;
begin
   Writeln('A = ',a:4:1,'   B = ',b:4:1);
   Writeln('  x  |    F(x)     |      S      | K');
   x:=a-dx;
   Repeat
      x:=x+dx;
      Writeln(x:4:1,' | ',ArcTan(x):8:8,' | ',MyArcTan(x,k):8:8,' | ',k);
   Until x>=b;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 20.05.2018, 20:33   #8
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,529
По умолчанию

Но тут появился Неверов, и лентяи-халявщики дружно вздохнули с облегчением. Поздравим себя с появлением в скором времени еще одной группы ничего не умеющих дипломо_обладателей.
digitalis вне форума Ответить с цитированием
Старый 20.05.2018, 23:52   #9
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Но тут появился Неверов, и лентяи-халявщики дружно вздохнули с облегчением. Поздравим себя с появлением в скором времени еще одной группы ничего не умеющих дипломо_обладателей.
Халявщики не станут программистами. А чем меньше программистов, тем больше их зарплата. О!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 21.05.2018, 10:31   #10
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,529
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Халявщики не станут программистами.
Они станут начальниками над программистами. Ничего не умеешь делать - тогда руководи!
Sorry for little offtop
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
РЕАЛИЗАЦИЯ ИТЕРАЦИОННЫХ ЦИКЛОВ СРЕДСТВАМИ ЯЗЫКА С++ Gidra Помощь студентам 1 15.03.2017 10:06
C++. Тема лабораторной: РЕАЛИЗАЦИЯ ИТЕРАЦИОННЫХ ЦИКЛОВ СРЕДСТВАМИ ЯЗЫКА С++ krytishka99 Помощь студентам 2 23.10.2012 20:17
Программа(Программирование итерационных циклов) skycool Помощь студентам 0 07.05.2012 18:14
Программирование итерационных циклов(Паскаль) uvid_cv Помощь студентам 1 21.04.2012 19:27
Организация итерационных циклов МихХха Паскаль, Turbo Pascal, PascalABC.NET 18 19.05.2009 15:41