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

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

Ответ
 
Опции темы
Старый 19.12.2011, 16:26   #1
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
Репутация: 0
По умолчанию Не используя стандартные функции

Не используя стандартные функции( за исключением abs), вычислить с точностью eps > x....
Не используя стандартные функции.doc

решите на delphi пожалуйста

Последний раз редактировалось konj; 19.12.2011 в 16:31. Причина: delphi
konj вне форума   Ответить с цитированием
Старый 19.12.2011, 16:28   #2
Mandrivnyk
Software Developer
Профессионал
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Адрес: Stuttgart
Сообщений: 1,098
Репутация: 119

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

С/С++, Паскаль.
Быстро и недорого.
Аська под аватаром.
__________________
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума   Ответить с цитированием
Старый 19.12.2011, 16:57   #3
Mad_Cat
Made In USSR!
Профессионал
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,649
Репутация: 1218

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

Код:

{delphi консоль}
var x,stx,cost,e: real;
    i,fakt,z: integer;
Begin
Write('Введите x: ');
Readln(x);
Write('Введите точность e: ');
Readln(e);
 stx:= x*x;  {x в степени}
 fakt:= 2;  {значение факториала в знаменателе}
 cost:= 1;  {первый элемент в разложении}
 i:= 2;  {счётчик}
 z:= -1;  {знак элемента}
while stx/fakt>=e do begin  {до тех пор, пока элемент в разложении не меньше точности}
                      cost:=cost+z*stx/fakt;
                      inc(i,2);
                      stx:=stx*x*x;
                      fakt:=fakt*(i-1)*i;
                      z:=z*(-1);  {смена знака}
                      end;
Writeln('Количество элементов в разложении = ',i div 2 + 1);
Writeln('Значение cos(',x:6:6,')= ',cost:6:6);
Writeln('Значение компьютера: ',cos(x):6:6);
Readln;
End.

__________________
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума   Ответить с цитированием
Старый 19.12.2011, 17:05   #4
konj
Пользователь
 
Регистрация: 15.12.2011
Сообщений: 14
Репутация: 0
По умолчанию

большое СПАСИБО!!
konj вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стандартные функции языка Си ддимочка Общие вопросы C/C++ 2 03.09.2011 19:36
Стандартные функции C++ vandrouny Общие вопросы C/C++ 4 09.12.2010 23:37
Стандартные функции в C++ ArniLand Общие вопросы C/C++ 2 01.04.2010 11:27
Не используя стандартные функции (за исключением abs), вычислить с точностью до eps>0: GHOST_DOG Помощь студентам 2 12.12.2008 06:58
Макросы или стандартные функции askhattk Microsoft Office Excel 4 20.06.2008 11:17


05:50.


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

RusProfile.ru


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