[fessnekro]

День добрый, друзья. Пришел с проблемой.

Сразу оговорюсь что программировать на Делфи не умею вообще. но случилось так что поступив в институт, выдали такое задание. при чем не учили не чему- якобы компов нет, и вообще просто ищите учебник по делфи и делайте. Я нашел "делфи в задачах и примерах". из него скоротал как то интерфейс для ввода данных и начал собирать тело программы. (графики пока прикручивать не хочу, вроде это не сложно) пока надо сделать вывод просто числового значения. так вот появилась куча вопросов по ходу решения их я отметил комментариями. если не трудно, объясните что к чему. работу надо сдавать скоро(((

Само задание прикрепил вложением!



вот мои наработки. вроде программа должна быть не сложная, но я как то пока осилить не могу(((

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

unit Unit1;    interface    uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;    type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;    var Form1: TForm1;    implementation    {$R *.dfm} var c, N, aF, Tg, d, t, T0, tmax, dt: real ; i, j:integer; procedure TForm1.Button1Click;    begin    c:=StrToFloat(Form1.Edit1.Text); N:=strtofloat(Form1.edit2.Text); aF:=strtofloat(Form1.edit3.Text); Tg:=strtofloat(Form1.edit4.Text); tmax:=strtofloat(Form1.edit5.Text); {ограничил вычисления сверху} t:=0; {начальное время - условие задачи} {как-то надо определиться с параметрами интегрирования} {задать dt и вычислить j:=tmax/dt? добавить функцию перевода из real в integer?} ИЛИ {или задать j и вычислить dt:=tmax/j}??? T:=T0; for i:=1 to j do begin t:=t+dt; T:=T+(dt/C)*(N{если N(t) функция то здесь должно быть зчение этой функции при текущем значении t, но как она меняется из условия задачи не понятно(((}-aF*(T-Tg)); end;    Label5.Caption:=FloatToStr(T) end; end.

[lmikle]

Ну у тебя же все написано в задании. Вычислять методом Эйлера. И формула дана.

[fessnekro]

ну вроде понятно. я и начинаю вписывать формулу. но сразу возникают вопросы, которые я отметил в комментариях. беда в том что и матан и программирование не очень к сожалению. к примеру каким должно быть условие выхода из цикла?

п.с. или то что я пытаюсь написать это вообще не то?

[fessnekro]

ну что ребят, выручайте! нет никаких мыслей?