Здравствуйте, помогите пожалуйста написать программы на языке Паскаль

igor278130 · 11.11.2013, 18:20

3 вариант
Вычислить значение суммы ряда с заданной степенью точности e=0.001 в точке x0 (если задана точка x0) или протабулировать с шагом h [a,b] (если заданы a,b,h):

igor278130 · 11.11.2013, 18:23

Вычислить значение суммы ряда с заданной степенью точности Е=0.001 в точке х0 (если задана точка х0) или протабулировать с шагом h на [a,b] (если заданыa,b,h)
X0= -,
A=0.2,
B=0.8,
H=0.2.

Vladimir_S · 11.11.2013, 19:07

Цитата:

Сообщение от igor278130

Вычислить значение суммы ряда с заданной степенью точности...

Да... тяжелый случай. Молодой человек, ну что Вы за ахинею вместо формулы выложили, да еще набрав в незнамо каком редакторе? Вы это имели в виду:
Название: 278.jpg
Просмотров: 180

Размер: 6.6 Кб

Название: 278.jpg
Просмотров: 180

Размер: 6.6 Кб

Или может быть что-то другое? Почему было не набрать формулу в нормальном редакторе или, на худой конец, не написать аккуратно от руки и не сфотографировать? Цирк, да и только.
Теперь по задачам.
В наши цели не входит выполнение детских заданий за лентяев. Если совсем ничего не можете, пролистайте программистский раздел нашего форума (подразделы "Помощь студентам" и "Delphi, Kylix and Pascal") - здесь решений подобных задачек выложено море, затем попробуйте хоть что-нибудь изобразить самостоятельно, а мы Вам поможем, не сомневайтесь.
Успехов!

igor278130 · 11.11.2013, 20:03

да именно это

Vladimir_S · 11.11.2013, 20:05

Цитата:

Сообщение от igor278130

да именно это

Чудесно! Ну а как насчет что-нибудь написать для разгона? Или совсем никак?

igor278130 · 11.11.2013, 20:10

Пожалуйста помогите решить эти 2 задачи!

:tehnari_ru _837:

Vladimir_S · 11.11.2013, 20:13

Н-да... Чувствую, всё моё педагогическое красноречие отправилось псу под хвост... Ладно, сделаю. Минут через 15-20, надеюсь, закончу.

igor278130 · 11.11.2013, 20:15

спасибо огромное

Vladimir_S · 11.11.2013, 20:45

Получите:

Код:

Const
 Eps=0.001;

Function Sum(x:real):real;
var
 S,a:real;
 i:word;
begin
 a:=x*2;
 S:=a;
 i:=0;
 Repeat
  Inc(i);
  a:=-a*x*x*2*2/(i*2*(i*2+1));
  S:=S+a;
 Until Abs(a)<Eps;
 Sum:=S;
end;

Begin
 Writeln('Result: ',Sum(0.2):0:5);
 Readln
End.

Код:

Const
 Eps=0.001;
 A=0.2;
 B=0.8;
 H=0.2;

Var
 N,i:byte;
 x:real;

Function Sum(z:real):real;
var
 S,q:real;
 j:word;
begin
 q:=-z*z;
 S:=q;
 j:=1;
 Repeat
  Inc(j);
  q:=-q*(j-1)*(j-1)*z*z/(j*j);
  S:=S+q;
 Until Abs(q)<Eps;
 Sum:=S;
end;

Begin
 N:=Round((B-A)/H);
 For i:=0 to N do
  begin
   x:=A+H*i;
   writeln('x= ',x:3:1,'    Sum= ',Sum(x):0:5);
  end;
 Readln
End.

AlexZir · 12.11.2013, 09:36

Цитата:

Сообщение от Vladimir_S

a:=-a*x*x*2*2/(i*2*(i*2+1));

а сразу на 4 умножить слабо?

11.11.2013, 18:20	#1 (permalink)
igor278130 Новичок Регистрация: 11.11.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Здравствуйте, помогите пожалуйста написать программы на языке Паскаль 3 вариант Вычислить значение суммы ряда с заданной степенью точности e=0.001 в точке x0 (если задана точка x0) или протабулировать с шагом h [a,b] (если заданы a,b,h): Миниатюры

11.11.2013, 18:23	#2 (permalink)
igor278130 Новичок Регистрация: 11.11.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить значение суммы ряда с заданной степенью точности Е=0.001 в точке х0 (если задана точка х0) или протабулировать с шагом h на [a,b] (если заданыa,b,h) X0= -, A=0.2, B=0.8, H=0.2. Миниатюры

11.11.2013, 20:10	#6 (permalink)
igor278130 Новичок Регистрация: 11.11.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Пожалуйста помогите решить эти 2 задачи!:tehnari_ru _837:

11.11.2013, 20:03	#4 (permalink)
igor278130 Новичок Регистрация: 11.11.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	да именно это

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

11.11.2013, 20:13	#7 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Н-да... Чувствую, всё моё педагогическое красноречие отправилось псу под хвост... Ладно, сделаю. Минут через 15-20, надеюсь, закончу.

11.11.2013, 20:15	#8 (permalink)
igor278130 Новичок Регистрация: 11.11.2013 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное