(delphi) Вычисление Температуры Электрического Прибора Охлаждаемого Во

  • Автор темы fessnekro
  • Дата начала
F

fessnekro

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

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

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



вот мои наработки. вроде программа должна быть не сложная, но я как то пока осилить не могу(((
Код:
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.
IMG_1623.jpg
 

sinkopa

Well-Known Member
#3
А чего Вы ожидали? Чтобы за Вас все сделали?
Тогда Ваш вопрос должен был бы звучать приблизительно так:
"Не обращайте пожалуйста внимание на мой код... Я незнаю как решить это задание.
Напишите пожалуйста программу за меня. Цену вопроса прошу огласить в личном сообщении."

Если же Вы знаете как решать задачу (имеется в виду, что у Вас уже есть как минимум алгоритм решения), но у Вас есть вопросы конкретно по программированию...
тогда и задайте эти вопросы... чем сможем, поможем... :rolleyes:
Лично я в Вашем тексте только один вопрос (по программированию) увидел:
добавить функцию перевода из real в integer?
Отвечаю: Из real в integer переводят функцией округления
Код:
var
a: Extended;
b: Integer;
begin
a := 5.665;
b := Round(a);
end;