Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2018, 20:26   #1
Worlok
 
Регистрация: 13.05.2012
Сообщений: 8
По умолчанию Дано действительное число Х. Вычислить в паскале

Дано действительное число Х. Вычислить в паскале
Изображения
Тип файла: png Безымянный (1).png (10.5 Кб, 160 просмотров)
Worlok вне форума Ответить с цитированием
Старый 21.03.2018, 21:01   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Код:
var i: integer; x,y: double ;
begin 
y := 1.0 ;
for i := 1 to 64 do
  if (i mod 1) = 1  then y := y * (x-i)  else  y := y / (x-i)
end.
digitalis вне форума Ответить с цитированием
Старый 21.03.2018, 21:05   #3
Worlok
 
Регистрация: 13.05.2012
Сообщений: 8
По умолчанию

Иначе меня отчислят
Worlok вне форума Ответить с цитированием
Старый 21.03.2018, 21:11   #4
Worlok
 
Регистрация: 13.05.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Код:
var i: integer; x,y: double ;
begin 
y := 1.0 ;
for i := 1 to 64 do
  if (i mod 1) = 1  then y := y * (x-i)  else  y := y / (x-i)
end.
Все равно неправильно считает
Worlok вне форума Ответить с цитированием
Старый 22.03.2018, 00:32   #5
СтудПом
Форумчанин
 
Регистрация: 08.11.2017
Сообщений: 347
По умолчанию

Цитата:
Сообщение от Worlok Посмотреть сообщение
Иначе меня отчислят
Код:
for i:=1 to 64 do if Odd(i) then P:=P*(x-i) else P:=P/(x-i)
Хотя, Родину тоже надо защищать
СтудПом вне форума Ответить с цитированием
Старый 22.03.2018, 12:12   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Да, позор на мою седую лысину - конечно же (i mod 2) или, как справедливо заметил СтудПом, Odd(i) Пойду топиться напиться
digitalis вне форума Ответить с цитированием
Старый 22.03.2018, 17:11   #7
СтудПом
Форумчанин
 
Регистрация: 08.11.2017
Сообщений: 347
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Да, позор на мою седую лысину
Сорри, видел ошибку, но по-скотски лень было даже осмысливать её. Очень часто впадаю в ступор когда вижу символы 1 | l I. Эх, не быть мне прогерром

А для студентов, думаю была бы полезна кнопка вставляющая мелодию "Прощание Славянки" ТС-у задающему вопрос типа "решите за меня"
СтудПом вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано действительное число x. Вычислить f(x) danil031997 Паскаль, Turbo Pascal, PascalABC.NET 2 14.11.2016 23:13
Дано действительное число x, вычислить значение у Stixon Общие вопросы C/C++ 0 04.10.2016 20:55
Pascal Дано действительное число х. Вычислить yzen Помощь студентам 3 28.10.2012 11:14
Дано действительное число x. Вычислить hewlett Помощь студентам 2 26.06.2010 08:30
Дано действительное число х. Вычислить Incognitoal Помощь студентам 7 09.03.2009 12:27