|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.04.2018, 16:01 | #1 |
Пользователь
Регистрация: 05.04.2018
Сообщений: 27
|
Дано х. Вычислить sin x, cos x, ln x и записать их в порядке возрастания. Если одно из этих значений не существует, вывести сообщение об этом и написать существующие значения
В общем, вот у меня код, но программа не работает:
Private Sub Command1_Click() x = Val(Text1) a = Sin(x) b = Cos(x) c = Log(x) If a <= b And b <= c And a <= c Then Picture1.Print a Picture1.Print b Picture1.Print c End If If b <= a And a <= c And b <= c Then Picture1.Print b Picture1.Print a Picture1.Print c End If If b <= a And a <= c And b <= c Then Picture1.Print b Picture1.Print c Picture1.Print a End If If c <= b And b <= a And c <= a Then Picture1.Print c Picture1.Print b Picture1.Print a End If If c <= a And a <= b And c <= b Then Picture1.Print c Picture1.Print a Picture1.Print b End If If a <= c And c <= b And a <= b Then Picture1.Print a Picture1.Print c Picture1.Print b End If End Sub + еще форма во вложениях. Не знаю, где я налажал, а особенно не знаю, как организовать тот момент, где нужно определить, существует значение или нет |
06.04.2018, 19:38 | #2 |
Пользователь
Регистрация: 05.04.2018
Сообщений: 27
|
-
Вот пытался еще другой код написать, все уже перепробовал, одни ошибки кругом, в этот раз пишет Else without If. Что ему не так?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны три вещественных числа Если они принадлежат данному отрезку , то вывести их на печать в порядке возрастания. Если ни одно число не принадлежит отрезку, вывести сообщение об эт | Lushov | Помощь студентам | 0 | 02.12.2016 18:28 |
Сдать нужно в понедельник. Не понимаю, как вычислить значение этого выражения: S=sin(x+cos(2x-sin(3x+cos(4x+sin(5x-cos(6x+...).. | n7camomile | Помощь студентам | 5 | 15.12.2013 22:44 |
VBA Дано число x. Напечатать в порядке возрастания числа: sinx, cosx. lnx. Если при каком-либо x некоторые из выражений не имеют с | Stinray | Помощь студентам | 0 | 23.05.2013 18:44 |
Паскаль. Не могу вывести получаемые при работе цикла значения в порядке возрастания. | RAftel | Помощь студентам | 1 | 13.01.2013 18:03 |
Вычислить среднее арифметическое каждого столбца матрицы и вывести на экран в порядке возрастания | ILMAR95 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 01.04.2011 15:44 |