|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.10.2008, 20:22 | #11 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Здравствуйте!!!!Мне нужна помощь!!!!!Я сделал задачу, но не как не могу найти свои ошибки!!!!Заранее спасио тем, кто хоть чем-нибудь поможет или даст совет!!!
Вот задачка: 1)Вычислить сумму ряда с точностью i=10^-6 и сравнить со стандартным значением: Сумма ряда: S=1+cosx/1!+..cosnx/n!.. стандартное значение: y=(e^(cosx))*cos(sinx); при 0,1=<x<=1. Как мне сказал препод надо пользоваться рекурентной формулой только для факториала. Вот сама прога: program lk; var e,S,x,r,t:real; begin readln(x,i); S:=1; r:=1; t:=1; while S>= do begin t:=(1/r)*t; r:=1+r; S:=S+(cos(r))*t; end; writeln('S',S); WRITELN('e', exp(cos(x))*cos(sin(x)); readln end. |
25.10.2008, 23:00 | #12 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
26.10.2008, 21:35 | #13 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Простите=)
Просто такая штука я не понимаю, как без рекурентной формулы записать факториал!?!?!?!?Значит надо использовать цикл for!?!?!?Вот такая-то штука!!!! Если Вам не сложно могли бы сам код проги скинуть!!!!! |
26.10.2008, 22:26 | #14 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Код:
|
|
26.10.2008, 22:55 | #15 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Пупорев!!!!!Большое тебе спасибо!!!!Спасибо за то, что ты мне объяснил все!!!!!!Я тебе очень благодарен!!!!
|
28.10.2008, 22:07 | #16 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
3.дано натуральное число n.Составить программу для вычисления произведения и сомножителей:
2/1*2/3*4/3*4/5*6/5*6/7... program lab38; var n,p,m,i:integer; R:real; begin writeln(‘Введите n’); readln(n); R:=1; p:=2; m:=1; for i:=1 to n do begin R:=R*(p/m); if n mod 2=0 then m:=m+2 else p:=p+2 end; writeln(‘R’, R); readln end. В чем ошибка??? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Циклы (Pascal) | Дима82 | Помощь студентам | 4 | 07.06.2008 17:07 |
Вопрос массивы и циклы | probmat | Помощь студентам | 7 | 16.03.2008 13:35 |
Итерационные циклы | Андрюха из ПХТТ | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 14.02.2008 15:49 |