Маклорен y=sin(2x)-1

@1Дима1 · Регистрация: 18.09.2013

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const e = 0.000000001;
var x,s,t:real;
    i:integer;
begin
clrscr;
  write('x=');x:=Pi/3;
  x:=2*x-1;
  s:=x;
  t:=x;
  i:=2;
  repeat
    begin
      t:=-t*x*x/((2*i-1)*(2*i-2));
      s:=s+t;
      i:=i+1
    end;
  until abs(t)<e;
  writeln('s = ',s:0:6);
  writeln('sin(2x-1)=',sin(2*x-1):0:6);
  readln
end.

Я тупанул по условию y=sin(2x)-1 допишите пожалуйста программу !!!!!ОЧЕНЬ срочно.

Добавлено через 4 минуты
Когда запускаюшь программу там нужно что бы в ответе получилось одинаково .

@Samhain · 18.09.2013, 16:56

1Дима1, Вы что даже единицу из готового кода вычесть не можете???

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const e = 0.000000001;
var x,s,t:real;
    i:integer;
begin
  x:=2*Pi/3;
  s:=x;
  t:=x;
  i:=2;
  repeat
    begin
      t:=-t*x*x/((2*i-1)*(2*i-2));
      s:=s+t;
      i:=i+1
    end;
  until abs(t)<e;
  writeln('s = ',s-1:0:6);
  writeln('sin(2x)-1=',sin(x)-1:0:6);
  readln
end.

@1Дима1 · 18.09.2013, 18:54 **[ТС]**

Samhain, Препод выдаёт притензии так как в 17 строке было writeln('sin(2x-1)=',sin(2*x-1):0:6), и что бы при запуске программы числа совпадали . Срочно

Добавлено через 7 минут
В 17 строке должно быть writeln('sin(2x-1)=',sin(2*x-1):0:6) ... нельзя её менять и при запуске программы числа должны быть одинаковый

@Samhain · 18.09.2013, 19:33

Сообщение от 1Дима1

по условию y=sin(2x)-1

И сколько раз ещё будем менять задание???

Не по теме:

Вы просите о помощи, а сами даже не утруждаете себя сказать (а лучше нажать) спасибо

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const e = 0.000000001;
var x,x1,s,t:real;
    i:integer;
begin
  x:=Pi/3;
  x1:=2*x-1;
  s:=x1;
  t:=x1;
  i:=2;
  repeat
    begin
      t:=-t*x1*x1/((2*i-1)*(2*i-2));
      s:=s+t;
      i:=i+1
    end;
  until abs(t)<e;
  writeln('s = ',s:0:6);
  writeln('sin(2x-1)=',sin(2*x-1):0:6);
  readln
end.

Новичок · 18.09.2013, 21:37

Не по теме:

Сообщение от Samhain

Вы просите о помощи, а сами даже не утруждаете себя сказать (а лучше нажать) спасибо

Да,на форуме и такие есть.

@1Дима1 · 18.09.2013, 22:06 **[ТС]**

Спасибо Большое, Очень помогли , Простите за тупость)

Новичок · 18.09.2013, 22:11

Не по теме:

1Дима1, а кнопка "Спасибо"?

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@1Дима1 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 5
	18.09.2013, 18:54 [ТС]
	Samhain, Препод выдаёт притензии так как в 17 строке было writeln('sin(2x-1)=',sin(2x-1):0:6), и что бы при запуске программы числа совпадали . Срочно Добавлено через 7 минут* В 17 строке должно быть writeln('sin(2x-1)=',sin(2*x-1):0:6) ... нельзя её менять и при запуске программы числа должны быть одинаковый 0

@1Дима1 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 5
	18.09.2013, 22:06 [ТС]
	Спасибо Большое, Очень помогли , Простите за тупость) 0

Новичок
	18.09.2013, 22:11
	Не по теме: 1Дима1, а кнопка "Спасибо"? 0