Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 18.12.2017, 12:48   #1
Lmaolmao
Новичок
 
Регистрация: 18.12.2017
Сообщений: 1
Репутация: 10
По умолчанию Помогите плез, найдите ошибку

var i,n:integer; p:real;
Begin
read (n);
p:=1;
For i:=1 to n do
Begin
If i mod 2=1 then;
Begin
p:=p*(2*i-1-(1/(i+1)/(i+1)));
End
Else i mod 2=0 THEN;
Begin
p:=p*(2*i-1+(1/(i+1)/(i+1)));
End;
writeln (p);
End.
Lmaolmao вне форума   Ответить с цитированием
Старый 18.12.2017, 12:56   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,683
Репутация: 6211
По умолчанию

Как минимум точек с запятой лишних наставил )) И 2*i-1 точно так? Может 2*(i-1) ?
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 18.12.2017, 13:45   #3
digitalis
Участник клуба
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 872
Репутация: 346
По умолчанию

Код:

var i,n:integer; p,t,t1:real;
Begin
   read (n);
   p:=1;
   For i:=1 to n do
   Begin
      t := 1/(i+1)/(i+1) ;
      t1 := i-1 ;
      If (i mod 2) = 1  then
           p:=p*(2*t1-t)
      else
           p:=p*(2*t1+t) ;
   End;
   writeln (p);
End.

Как-то так... Если действительно (i-1) и если выкинуть ненужный мусор и отформатировать.
Без исходной формулы телепать решение - это как "угадай мелодию", исполненную на тракторе "Беларус".

Последний раз редактировалось digitalis; 18.12.2017 в 13:52.
digitalis вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найдите ошибку Славик__077 Общие вопросы C/C++ 10 31.01.2011 16:15
Найдите ошибку Гиро-Гинор Помощь студентам 2 13.11.2010 00:16
Найдите ошибку MaJlbBuHa Паскаль 2 20.10.2009 23:26
Найдите ошибку St1fler92 Помощь студентам 4 26.05.2009 15:23


19:45.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru