VPF::паскаль - Форум программистов

Ura20007

Дата 9.11.2007, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 22.4.2007

Репутация: нет
Всего: 1

Ребята помогите с программой на Turbo Pascal вычисляющую сумму ряда.Пример другого варианта
http://ifolder.ru/4070293
Нужно использовать команды 8087.Пример своего задания прикрепил.

Заранее огромное спасибо за любую помощь.

Это сообщение отредактировал(а) Ura20007 - 9.11.2007, 22:49

Присоединённый файл ( Кол-во скачиваний: 3 )

Sum.doc 17,00 Kb

kemiisto

Дата 10.11.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160

Код


{$E+}

program my;

var
  S, Argument, ItemPart1, Item, x, Eps: Real;

begin
  Write('Input x in the range from 0 to 3 * pi radians = ');
  Readln(x);
  Write('Input inaccuracy = ');
  Readln(Eps);

  S := 0;
  Argument := x;
  ItemPart1 := 1;
  repeat
    ItemPart1 := ItemPart1 * 2;
    Argument := Argument / 3;
    Item := ItemPart1 * Sin(Argument);
    S := S + Item;
  until Item < eps;

  Writeln(S);
  Readln;
end.

S - сумма;
Argument - аргумент синуса;
ItemPart1 - первая часть очередного слагаемого;
Item - все слагаемое;
Eps - погрешность.

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »