VPF::Turbo pascal 7.0 - Форум программистов

Ura20007

Дата 4.11.2010, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 22.4.2007

Репутация: нет
Всего: 1

Всем привет!
Задача такая:Вычислить сумму S значений функции.
Y=f(x)
f(x)=lg((x^2+1)/(i-1)!
при x_i=-1+0.2*i i от 1 до 10 с шагом 1.
S-сумма f(x)
Сделал так

Код


var 
integer i;
real s,x,y,f;
x=-0.8
y:=0.8*0.8+1;
for i=2 step 1 until 10 do
begin
x:=-1+i*0.2;
y:=(y*y+21)/(i-1)!;
f:=lg(y);
s:=s+f;
end.

Но это неправильно думаю. И как вывести правильно значение S
Заранее спасибо!!!

M
THandle

Модератор: используйте подсветку кода!

Регина91

Дата 12.5.2016, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 12.5.2016

Репутация: -1
Всего: -1

Пожалуйста ПОМОГИТЕ!

1) Вводятся числа. Конец ввода - 0. Найти сумму четных чисел и максимальное среди трехзначных отрицательных (программа и блок-схема)
2) Вводится текст. Конец ввода <F2>. Найти количество букв "А" (программа и блок-схема)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »