|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.03.2019, 09:33 | #1 |
Регистрация: 28.03.2019
Сообщений: 4
|
Формулы
Здравствуйте, у меня вопрос про Delphi7.
У меня не получается ввести в Delphi7 формулу N=n*k*T, где k-Постоянная Больцмана(1,38*10^-23) десять в минус 23-ей степени и Т-шумовая температура 290. Подскажите пожалуйста как это реализовать Delphi 7? Спасибо заранее |
29.03.2019, 09:47 | #2 |
Пользователь
Регистрация: 15.02.2016
Сообщений: 39
|
Покажите свои наработки
|
29.03.2019, 10:00 | #3 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
например так
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
29.03.2019, 10:22 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
раз постоянная, то можно её и в константы записать:
Код:
|
29.03.2019, 10:41 | #5 | |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
А может, собака порылась в том, что ТС в формуле, как и в посте, разделителем запятую имеет, а не точку ? Или экспоненциальный формат не вкурил. https://ru.wikipedia.org/wiki/%D0%AD...B8%D1%81%D1%8C
Цитата:
А про число Авогадро n := 6.022E23 в исходном посте ничо не было Там, может быть, молекул гораздо меньше было. Последний раз редактировалось digitalis; 29.03.2019 в 10:53. |
|
29.03.2019, 11:26 | #6 |
Регистрация: 28.03.2019
Сообщений: 4
|
Вот,только какое бы я число 'а' не вводил постоянно один и тот же ответ получается
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; |
29.03.2019, 11:39 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
чтобы ответ был адекватным, число a должно быть достаточно большим.
ну, как минимум с 20 нулями (лучше, если ~с 22-23 нулями). иначе будете получать ноль в ответе. |
29.03.2019, 11:41 | #8 |
Регистрация: 28.03.2019
Сообщений: 4
|
Вот именно,мне не нужно такие большие цифры. Мне по заданию нужно будет ввести 2,3,4 и получить разные ответы и все! Как мне это лучше сделать? После написания формул у меня будут графики.
|
29.03.2019, 11:45 | #9 | |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Ну и будут одинаковые, если вводить куда-то в белый свет a , а потом присваивать a:=10;
Все выводит нормально. Код:
Цитата:
Последний раз редактировалось digitalis; 29.03.2019 в 11:52. |
|
29.03.2019, 11:55 | #10 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как поменять положительное число на отрицательное при получении результата после формулы "если", При использовании формулы "если" выходят положительные и отрицательные числа | asanee | Помощь студентам | 2 | 05.01.2017 08:45 |
C# Формулы | LeNZZZ08 | Помощь студентам | 1 | 07.11.2014 06:24 |
Формулы | shadezx | Помощь студентам | 1 | 03.12.2013 20:07 |
Формулы | SunKnight | Общие вопросы Delphi | 2 | 07.04.2008 09:38 |