fbpx
Поддержка пользователей (русскоязычный форум)

Поддержка пользователей (русскоязычный форум)

Форум для поддержки русскоязычных пользователей

 
View all discussions Displaying 10 of 30 discussions

Тут файлы вроде не прицепить, напишите здесь или в сообщения свою почту

Кристина, можете выложить пример какой нить вашей программки на техе ?просто интересно посмотреть как работает ? любой самой простой.

Да, можно, вот так: X := Max (x1, Max (x2, Max (x3, Max (x4, Max (x5, x6))))); В программировании, как и в математике, любая функция может быть использована в качестве аргумента другой функции.

Здравствуйте! Подскажите, пожалуйста, а возможно сделать для шести значений? чтобы из 6 ти разных переменных, в ответ выводилось большее? (т.е. эти шесть между собой сравнились и определилось большее).

# Не совсем понятно вычитание нуля в выражениях (15 - 0), (beta - 0). Может записать просто, 15*beta ? # Так надо)

Vitalii Artomov has liked a Discussion 3 months ago

Не совсем понятно вычитание нуля в выражениях (15 - 0), (beta - 0). Может записать просто, 15*beta ?

Здравствуйте, Кристина. Если параметр A в выражении зависит от параметра B, то параметр B должен иметь какое-то определенное значение до вычисления A. Поэтому до всех условий я рекомендую инициализировать параметры cf1, cf2 какими-то стартовыми значениями (нулями или пр.). Тогда можно использовать одное условие, например так: cf1 := -1.8; cf2 := 0; if (beta> 0) and (beta

Кристина Жалейко posted a new discussion3 months ago

вопрос об ограничении расчёта

Здравствуйте! Подскажите .пожалуйста, есть ли способ задать ограничения в этом случае: ? Есть вот такие выражения: if (beta = 0) then begin cf1 : = -1.8; TextMessage3 : = 'значение отсутствует'; end; else if (beta > 0) and (beta 15) then begin cf1 : = (-1.8) + (-0.9 - (-1.8)) / (15 - 0) * (beta - 0); cf2 : = (-1.8) + (0.2 - (-1.8)) / (15 - 0) * (beta - 0); Значения cf1 и cf2 используются в следующих примерах: w_m1 := w_0 * k * cf1; w_m2 := w_0 * k * cf2; Каким образом возможно ограничить...

Поддержка пользователей (русскоязычный форум)

пожалуйста) если будут вопросы - пишите)

Тогда, лучше я кое-что переделаю и сделаю проще всё. Спасибо

Если Вы хотите вывести какое-то сообщение в отчет, то достаточно присвоить значение текстовой переменной или создать функцию для проверки значения. Вот пример с функцией: function CheckInputData: string; begin if X < 10 then Result := 'Исходные данные введены верно' else Result := 'В исходных данных ошибка!'; end; Имя этой функции теперь можно вставить в отчет через объект "Script text" в то место, где Вы хотите показать это сообщение. Конечно, переменная X, которая проверяется внутри функции,...

Кристина, сообщение об ошибке, которое подсвечено в строке сообщений красным цветом, означает ошибку в коде; крайне нежелательно, чтобы пользователь вообще получал подобные сообщения. А просто вывести ему сообщение на экран можно через ShowMessage или даже строкой текста прямо в отчет. Вот пример для ShowMessage: procedure P(a: Double); begin if a < 10 then ShowMessage('Неверные данные, a

Кристина Жалейко posted a new discussion4 months ago

Вывод текста ошибки в отчёт.

Здравствуйте. Подскажите, пожалуйста, как реализовать сообщение об ошибке в приложении? Чтобы пользователь понимал - что это за ошибка. Есть вот такой код. И при его выполнении - само приложение в нижней строке выдаёт ошибку, но как сделать чтобы выводилось в отчёт ? uses Classes, Forms, Dialogs, Unit7; const h_mu = 0.5; // var mu2_0, TextMessage5 :string; mu2 ouble; procedure Calculate_mu2_0; begin Calculate_S_g; if (h_mu > S_g / 2) then begin mu2 := 2 * h_mu / S_g; mu2_0 := Format('%1.2f',...

Поддержка пользователей (русскоязычный форум)

Пример как это можно использовать: A := Math.Max (A, 10); // теперь A не будет меньше 10 B := Math.Min (B, 2 ); // теперь B не будет больше 2

My profile

Members online

    No members to show currently
View All

Events

Sorry, we currently have no events.
View All Events

English forum

Video

View all videos

Polls

No polls
View all polls

Photos

Dystlab™ — Project for Engineers

Dystlab™. All rights reserved.

Address in Canada: 223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Address in Ukraine: 76006, Ivano-Frankivsk, st. Ivana Mykolaichuka 17/97

E-mail:
technot needed texteditoranother not needed text@dystlabdummy text.store

Telegram:
https://t.me/techeditor

Legal information

Dystlab™ is a trademark registered in the State Register of Certificates of Ukraine for Goods and Services Marks 26.02.2018, certificate No. 238304. Owner: entepreneur Artomov V.E., EGRPOU/ITN: 3003314690.