Формулы

[Evgen2019]

Здравствуйте, у меня вопрос про Delphi7.
У меня не получается ввести в Delphi7 формулу N=n*k*T, где k-Постоянная Больцмана(1,38*10^-23) десять в минус 23-ей степени и Т-шумовая температура 290. Подскажите пожалуйста как это реализовать Delphi 7?
Спасибо заранее

[Russian_watson]

Покажите свои наработки

[Аватар]

например так

r:=n*1.38*IntPower(10,-23)*290;

[Serge_Bliznykov]

раз постоянная, то можно её и в константы записать:

const
  k = 1.38E-23;
var
 r, n,T : extended;
begin
  n := 6.06E23;
  T := 290;
  r := n * k * T;
  WriteLn(r:0:30);
  Readln
end.

[digitalis]

А может, собака порылась в том, что ТС в формуле, как и в посте, разделителем запятую имеет, а не точку ? Или экспоненциальный формат не вкурил. https://ru.wikipedia.org/wiki/%D0%AD...B8%D1%81%D1%8C

можно её и в константы записать:

и нужно.
А про число Авогадро n := 6.022E23 в исходном посте ничо не было Там, может быть, молекул гораздо меньше было.

[Evgen2019]

Вот,только какое бы я число 'а' не вводил постоянно один и тот же ответ получается
procedure TForm1.Button1Click(Sender: TObject);
const k=1.38e-23;
var a,T,N:extended;
begin
T:=290;
a:=10;
N:=a*k*T;
Label1.Caption:=floattostr(N)
end;

[Serge_Bliznykov]

чтобы ответ был адекватным, число a должно быть достаточно большим.
ну, как минимум с 20 нулями (лучше, если ~с 22-23 нулями).
иначе будете получать ноль в ответе.

[Evgen2019]

Вот именно,мне не нужно такие большие цифры. Мне по заданию нужно будет ввести 2,3,4 и получить разные ответы и все! Как мне это лучше сделать? После написания формул у меня будут графики.

[digitalis]

Ну и будут одинаковые, если вводить куда-то в белый свет a , а потом присваивать a:=10;
Все выводит нормально.

procedure TForm1.Button1Click(Sender: TObject);
const k=1.38e-23;
var a,T,N:extended;
begin
T:=290;
a:=StrToFloat (Edit1.Text);
N:=a*k*T;
Memo1.Lines.Add (FloatToStr(a) + ' === ' + FloatToStr(N))
end;

Serge_Bliznykov

чтобы ответ был адекватным, число a должно быть достаточно большим.
ну, как минимум с 20 нулями (лучше, если ~с 22-23 нулями).
иначе будете получать ноль в ответе.

Это - новое открытие в физике ?

[Serge_Bliznykov]

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

Это - новое открытие в физике ?

да нет. просто есть ограничение на хранение значимой части.
тут не тот случай.