|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.12.2007, 22:40 | #1 |
Регистрация: 06.12.2007
Сообщений: 5
|
Посмотрите пожалуйста правильно ли написана программа,если нет укажите ошибку.
Написать программу, вычисляющую сумму
1/1*2 +1/2*3 +1/3*4+1/4*5+…. с точностью Е=10-³ s=0; i=1; while int(s*1000)=s*1000 do (пока целая часть выражения, полученного в результате вычисления по формуле и умноженная на 1000, равна самому выражению, умноженному на 1000, делать следующее...) begin s=s+(1/(i^(i+1)); (к сумму, изначально равной нулю прибавлять вычисления по формуле, причем после каждого вычисления i увеличится на 1 - и формула будет выполняться снова) i=i+1; end; (как только получится, что, например, 125 меньше 125, 3, - цикл прервется) write s; |
10.12.2007, 22:49 | #2 |
Пользователь
Регистрация: 20.11.2007
Сообщений: 16
|
что такое write S; ?!?!??
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программисты, помогите найти ошибку, пожалуйста... | okgo | Общие вопросы Delphi | 11 | 19.02.2009 21:55 |
Помогите пожалуйста если можете | NO4KA | Помощь студентам | 7 | 23.06.2008 19:10 |
Помогите пожалуйста найти и исправить ошибку | Sam04 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 10.06.2008 08:28 |
Пожалуйста срочно помочь мне исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 20.05.2008 20:46 |
плиз форумчане посмотрите что здесь не правильно | _Solomon_ | Помощь студентам | 6 | 07.06.2007 13:54 |