Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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):
Миниатюры
1111.jpg  
igor278130 вне форума   Ответить с цитированием

Старый 11.11.2013, 18:20
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В этом деле главное не торопится, а по лучше ознакомится с проблемой

Помогите написать программы на языке Pascal
Помогите, пожалуйста, написать программы
Помогите, пожалуйста, написать на языке Pascal, желательно попроще
Помогите, пожалуйста, написать программы на С#

Старый 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.
Миниатюры
222.jpg  
igor278130 вне форума   Ответить с цитированием
Старый 11.11.2013, 19:07   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

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

Размер: 6.6 Кб
Или может быть что-то другое? Почему было не набрать формулу в нормальном редакторе или, на худой конец, не написать аккуратно от руки и не сфотографировать? Цирк, да и только.
Теперь по задачам.
В наши цели не входит выполнение детских заданий за лентяев. Если совсем ничего не можете, пролистайте программистский раздел нашего форума (подразделы "Помощь студентам" и "Delphi, Kylix and Pascal") - здесь решений подобных задачек выложено море, затем попробуйте хоть что-нибудь изобразить самостоятельно, а мы Вам поможем, не сомневайтесь.
Успехов!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.11.2013, 20:03   #4 (permalink)
igor278130
Новичок
 
Регистрация: 11.11.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

да именно это
igor278130 вне форума   Ответить с цитированием
Старый 11.11.2013, 20:05   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от igor278130 Посмотреть сообщение
да именно это
Чудесно! Ну а как насчет что-нибудь написать для разгона? Или совсем никак?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Пожалуйста помогите решить эти 2 задачи!:tehnari_ru _837:
igor278130 вне форума   Ответить с цитированием
Старый 11.11.2013, 20:13   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Н-да... Чувствую, всё моё педагогическое красноречие отправилось псу под хвост... Ладно, сделаю. Минут через 15-20, надеюсь, закончу.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.11.2013, 20:15   #8 (permalink)
igor278130
Новичок
 
Регистрация: 11.11.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо огромное
igor278130 вне форума   Ответить с цитированием
Старый 11.11.2013, 20:45   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Получите:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 12.11.2013, 09:36   #10 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,508
Записей в дневнике: 57
Сказал(а) спасибо: 125
Поблагодарили 152 раз(а) в 63 сообщениях
Репутация: 59794
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
a:=-a*x*x*2*2/(i*2*(i*2+1));
а сразу на 4 умножить слабо?
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

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

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




Часовой пояс GMT +4, время: 04:52.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.