| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
delphi численное интегрирование [D3, XP]
spbstu_helpme © (2011-11-20 22:00:00)Народ помоги тепожалуйста!!!
задание: Провести численное интегрирование ф-ции у(с точкой над) =abs(а)*y на интервале времени от 0 до момента когда интеграл достигнет 1000000 в зависимости от коэфицента и нач значения у0. Автоматическим уменьшением шага интегрирования добиться точности определения времени завершения 0.01%. Вывести значение времени завершения и полученный шаг интегрирования)
spbstu_helpme (2011-11-30 00:19:00) [1]Удалено модератором
Примечание: мат
sniknik (2011-11-21 07:48:00) [2]> Но автор всё-таки привёл некий код.
набор операторов без малейшего смысла... это не код, это "отмазка" т.к. чел знает что тут его "требуют"/охотнее помогают если видят что-то сделанное самостоятельно.
Jeer (2011-11-21 01:44:00) [3]
> Германн © (21.11.11 01:27) [15]
Задание из раздела "Почему Фобос не долетел".
Вопросы к преподу сильно резкие.
Германн (2011-11-21 01:27:00) [4]
> Не надо испрашивать выполнение личных заданий.
Это само собой. Двоешники, да и троешники идут лесом.
Но автор всё-таки привёл некий код. Если есть основания удтвердждать, что автор сей код стырил, то...
Jeer (2011-11-21 01:09:00) [5]
> Германн © (21.11.11 01:04) [13]
>
>
> > Jeer © (21.11.11 00:23) [12]
>
> Не надо, тёзка так уж жестоко относиться
Не надо испрашивать выполнение личных заданий.
Если бы чел (студент) попросил подготовить его по любой теме за 2-3 недели, я бы сделал это бесплатно и без нареканий.
Мои студенты ( когда я занимался их подготовкой ) сдавали диплом на 5 и выше ( красный ).
Германн (2011-11-21 01:04:00) [6]
> Jeer © (21.11.11 00:23) [12]
Не надо, тёзка так уж жестоко относиться к учащимся колледжей. Они не виноваты, в том,что Jeer физически не может преподавать во всех колледжах, даже если захочет. :)
Мне вот тоже как-то предложили преподавать в Московском Колледже Электроники. (Я даже как-то постил об этом на ДМ). Ну это просто был бред! Когда я представил минимальный набор технического оборудования для этого курса, то увидел кучу "расширенных" глаз.
Jeer (2011-11-21 00:23:00) [7]
> DVM © (21.11.11 00:02) [11]
Под жарким ветром желт-песок
Перетекает в Дюны плавно.
И до сих пор нам непонятно -
Важнее ветер иль песок ?
DVM (2011-11-21 00:02:00) [8]
> spbstu_helpme © (20.11.11 23:45) [9]
спят все, ты бы еще ночью пришел.
Не вникая в предметную область твоей задачи, просто глядя на код, можно увидеть, что:
1)
procedure Make;
begin
y:= abs(a)*y0+abs(a)*(y0+h);
переменным a, y0, h не заданы значения, y будет вычислен неправильно. Тебе компилятор кстати выдает предупреждения наверняка.
2)
repeat
t:=t+h;
h:=h/2;
until
(y>b) or (abs(y)<e);
Ни y, ни b, ни e в теле цикла не меняются, цикл бестолковый получается.
Jeer (2011-11-20 23:58:00) [9]Немалый труд, Вам, вероятно,
Затратить следует и безвозвратно,
До тех известных пор , пока,
Из Вас не выйдет D-Дока.
(C) Jeer
spbstu_helpme (2011-11-20 23:45:00) [10]ну где вы delphi masters?
spbstu_helpme (2011-11-20 23:12:00) [11]
> Jeer
не высшее(
spbstu_helpme (2011-11-20 22:58:00) [12]скажите где ошибки?
spbstu_helpme (2011-11-20 22:57:00) [13]ну я набросал вот немного, но не считает почему то
unit Unit2;
interface
procedure Make;
var a,y0,t,t0,h,x,b,y,e,h0 : single;
z,p,i : integer;
s,s1 : string;
implementation
procedure Make;
begin
y:= abs(a)*y0+abs(a)*(y0+h);
b:= 1000000;
e:= 0.000001;
t:= 0;
h:=1;
repeat
t:=t+h;
h:=h/2;
until
(y>b) or (abs(y)<e);
end;
end.
Сергей М. (2011-11-20 22:50:00) [14]
> ПОМОГИТЕ) описался
Ладно хоть не обк..
spbstu_helpme (2011-11-20 22:47:00) [15]так что? кто-нибудь может помочь написать вычислительную часть?
spbstu_helpme (2011-11-20 22:46:00) [16]ПОМОГИТЕ) описался
Jeer (2011-11-20 22:34:00) [17]
> тепожалуйста!!!
Расшифруй.
За это могу не численное интегрирование сделать.
DVM (2011-11-20 22:11:00) [18]В Санкт-Петербургском политехническом так плохо учат? В анкете высшее стоит.
| |
