![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.12.2010
Сообщений: 31
|
![]()
нужно переделать программу из паскаля в С++ Bulder
program sin_teilor; var x,stx,sint,e: real; i,fakt,z: integer; Begin Write('Введите x: '); Readln(x); Write('Введите точность e: '); Readln(e); stx:= x; {x в степени} fakt:= 1; {значение факториала в знаменателе} sint:= 0; {первый элемент в разложении} i:= 1; {счётчик} z:= 1; {знак элемента} while stx/fakt>=e do begin {до тех пор, пока элемент в разложении не меньше точности} sint:=sint+z*stx/fakt; inc(i,2); stx:=stx*x*x; fakt:=fakt*(i-1)*i; z:=z*(-1); {смена знака} end; Writeln('Количество элементов в разложении = ',i div 2); Writeln('Значение sin(',x:6:6,')= ',sint:6:6); Writeln('Значение компьютера: ',sin(x):6:6); Readln; End. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа с применением записей и программа с применение множеств | smert99 | Помощь студентам | 0 | 16.06.2011 23:14 |
Программа открыается если есть другая программа. | bookkc | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 14.10.2009 20:09 |
[PASCAL]Программа создания файла, программа обработки файла | Виколяшка | Фриланс | 7 | 23.09.2009 17:38 |
Программа создания файла, программа обработки файла [PASCAL] | Виколяшка | Помощь студентам | 1 | 22.09.2009 22:56 |