Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Turbo pascal 7.0

Автор: Ura20007 4.11.2010, 18:12

Всем привет!
Задача такая:Вычислить сумму 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

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

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