|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.10.2008, 20:11 | #1 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Циклы на Паскале.
Помогите пожалуйста решить задачки:
1.дано натуральное число n.Вычислить y=1*3*5...n, если n-нечетное y=2*4*6...n, если n-четное. 2.Среди всех двухзначных чисел , определить количество простых и вывести их на экран. 3.дано натуральное число n.Составить программу для вычисления произведения и сомножителей: 2/1*2/3*4/3*4/5*6/5*6/7... 4.вычислить сумму ряда и сравнить со стандартным значением сумма ряда: S=1+((cosx)/1!)+...+((cosnx)/n!)+... при 0.1=<x<=1 стандартное значение y=(e^cosx)*cos(sinx) Помогите пожалуйста если не трудно!!! |
06.10.2008, 20:28 | #2 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
program №4;
var x,S,R:real; n:integer; begin writeln('Vvedite n,x'); readln(n,x); S:=1; n:=1 while x>=0.1 and x<=1 do begin S:=S+R; n:=n+1; R:=(cos(n*x))/(n*cos((n-1)*x)); end; writeln(R=', R); readln end. В чем тут ошибка и как можно сравнить с стандартным значением??? |
06.10.2008, 20:58 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
1 ошибка. У нас х не может меняться, он вводится с клавиатуры.
При вводе надо делать проверку repeat write('Vvedite x v int[0.1,1] x='); readln(x); until (x>=0.1) and (x<=1); 2. Вводим n. repeat write('Vvedite naturalnoe n='); readln(n); until (n>0); 3. Поскольку мы точно знаем сколько итераций будем делать, можно использовать цикл for . . do. Код:
|
06.10.2008, 21:36 | #4 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
че-то неправильно вроде=((!?!?
|
06.10.2008, 22:11 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вы правы, не понял немного формулу, искупаю свою вину.
Код:
|
06.10.2008, 22:24 | #6 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Спасибо!Вот вопрос!А если ответ стандартного значение не совпадает с нашим, это значит, что неправильно?Или все же это правильно???Просто там где-то на 0,01-0,1 больше!!!!
|
06.10.2008, 22:35 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Неправда, я тестировал программу. При х=0,5 и n=100 совпадает до 8 знака точно, больше не проверял.
|
06.10.2008, 22:35 | #8 |
Форумчанин
Регистрация: 22.09.2007
Сообщений: 540
|
Может в вашем ответе просто округлили, тем более, что десятые или сотые конкретно для вашей задачки ничего не решают
|
06.10.2008, 22:41 | #9 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Вы правы!!!
Но вот еще помойму где r:=r+x там случайно будет не r:=i*x, ведь у нас при увеличении i увеличивается и x в i раз!? |
06.10.2008, 22:55 | #10 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Ааааааа, так это ожно и то же=)))
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Циклы! | vlad1991 | Паскаль, Turbo Pascal, PascalABC.NET | 15 | 28.10.2008 22:07 |
Циклы (Pascal) | Дима82 | Помощь студентам | 4 | 07.06.2008 17:07 |
Итерационные циклы | Андрюха из ПХТТ | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 14.02.2008 15:49 |