Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Для всех значений 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, 16:50   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 11,537
Репутация: 1916

icq: 216409213
По умолчанию

И? Какой смысл этого поста?
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 11.05.2018, 16:55   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,674
Репутация: 6211
По умолчанию

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

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

icq: 723-321
skype: mad_cat1982
По умолчанию

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

Отнюдь Новичок, который не знаком еще с for,while пишет
Код:

    i=0 ;
label: ......
   i=i+1 ;
   if (i<n)  goto label ;

digitalis вне форума   Ответить с цитированием
Старый 20.05.2018, 12:44   #7
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,684
Репутация: 1507

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 20.05.2018, 21:33   #8
digitalis
Участник клуба
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 866
Репутация: 346
По умолчанию

Но тут появился Неверов, и лентяи-халявщики дружно вздохнули с облегчением. Поздравим себя с появлением в скором времени еще одной группы ничего не умеющих дипломо_обладателей.
digitalis вне форума   Ответить с цитированием
Старый 21.05.2018, 00:52   #9
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


00:01.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru