|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.11.2013, 21:21 | #1 |
Пользователь
Регистрация: 29.10.2013
Сообщений: 14
|
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо
3 вариант
уже 2 месяц пытаюсь решить не один програмист не помог а который помог препод сказал то что не правильное решение.Вот посмотрите что там не правильно Const Eps=0.001; Function Sum(x:real):real; var S,a:real; i:word; begin a:=x*2; S:=a; i:=0; Repeat Inc(i); a:=-a*x*x*2*2/(i*2*(i*2+1)); S:=S+a; Until Abs(a)<Eps; Sum:=S; end; Begin Writeln('Result: ',Sum(0.2):0:5); Readln End. |
25.11.2013, 21:30 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,646
|
Номер варианта назвал бы что ли.
E-Mail: arigato.freelance@gmail.com
|
25.11.2013, 21:41 | #3 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Что сразу бросилось в глаза:
Код:
и, зачем вот так: Код:
Код:
|
25.11.2013, 21:51 | #4 |
Пользователь
Регистрация: 29.10.2013
Сообщений: 14
|
3 варинат
в моей задаче 3 вариант
|
25.11.2013, 22:53 | #5 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,330
|
Посмотри вложенный файл.
Как-то так, ...
Как-то так, ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо | igor278130 | Помощь студентам | 3 | 25.11.2013 20:54 |
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо | igor278130 | Помощь студентам | 5 | 19.11.2013 16:18 |
Здравствуйте. Нужно написать программу в с++. Заранее спасибо. | ekaterin | Помощь студентам | 1 | 14.05.2012 21:08 |
Помогите пожалуйста найти ошибки. Заранее спасибо. | Ardred | Общие вопросы C/C++ | 2 | 25.01.2009 18:18 |
помогите пожалуйста решить 2 задачи,заранее спасибо | Анютка...... | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 24.11.2008 11:21 |