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

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

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

 
Переглянути всі дискусії Відображено 10 з 30 обговорень

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

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

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

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

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

Vitalii Artomovподобається Обговорення 3 місяців тому

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

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

Кристина Жалейко опублікувала нову дискусію.3 місяців тому

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

Здравствуйте! Подскажите .пожалуйста, есть ли способ задать ограничения в этом случае: ? Есть вот такие выражения: 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

Кристина Жалейко опублікувала нову дискусію.4 місяців тому

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

Здравствуйте. Подскажите, пожалуйста, как реализовать сообщение об ошибке в приложении? Чтобы пользователь понимал - что это за ошибка. Есть вот такой код. И при его выполнении - само приложение в нижней строке выдаёт ошибку, но как сделать чтобы выводилось в отчёт ? 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

Мій профіль

Реєстрація
Запам'ятати мене
Забули логін  Забули пароль

Учасники онлайн

    Наразі немає учасників
Переглянути всіх

Події

На жаль, зараз у нас немає подій.
Переглянути всі події

Сторінки

Відео

Переглянути всі відео

Опитування

No polls
View all polls

Фото

Dystlab™ — Project for Engineers

Dystlab™. Всі права захищено.

Адреса офісу в Канаді: 223-2275 Lake Shore Boulevard West, Toronto, ON, M8V 3Y3

Адреса офісу в Україні: 76006, м. Івано-Франківськ, вул. Миколайчука Івана 17/97

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

Telegram:
https://t.me/techeditor

Dystlab™ — торговельна марка, зареєстрована в Державному реєстрі свідоцтв України на знаки для товарів і послуг 26.02.2018, свідоцтво № 238304. Власник: фізична особа-підприємець Артьомов В. Є., ЄДРПОУ/ІНН: 3003314690.