|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.10.2008, 19:42 | #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, 19:46 | #2 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
так выложи что не работает
(или пиши в платный раздел) |
06.10.2008, 19:49 | #3 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
у меня проблема с составлением формул для этих прог!!!Особенно в 3 задаче!Там ясно, что шаг 2, но как это записать=(
|
06.10.2008, 20:22 | #4 |
Пользователь
Регистрация: 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, 23:42 | #5 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
то что написал делается приблизительно так
(писал в Delphi): Код:
|
06.10.2008, 23:53 | #6 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
Задача № 1
Код:
|
06.10.2008, 23:55 | #7 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
может покажешь что еще не работает?
|
07.10.2008, 20:10 | #8 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Странно, когда я произвожу откладку, то у меня показывает ошибку где (nmod2=0) пишет Unknown identifier.В чем проблема тут?
|
07.10.2008, 20:15 | #9 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
почему "if (n mod 2) = 0 then" написали слитно, там же пробелы нужны.
|
07.10.2008, 20:16 | #10 |
Пользователь
Регистрация: 10.12.2007
Сообщений: 69
|
Да я уже увидел ошибку!Там пробелы надо!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Циклы (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 |