снова не могу написать программу( - VB

  1. нужно написать программу.. сама пробую, ничего не получается..могу сделать только в обычном бэйсике.. Даны два числа x и y. Вычислить z=у/2, если х ≤ у и у ≤ 10. 1+2х , в противном случае заранее благодарю за помощь..


textual

Код к задаче: «снова не могу написать программу( - VB»

Dim x, y, z As Double
x = InputBox("x=", "")
y = InputBox("y=", "")
If x <= y And y <= 10 Then
   z = y / 2
   Else: z = 1 + 2 * x
End If
MsgBox (z)

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.000 из 5



Похожие ответы
  1. 1. Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 2, AK = 2 + 1/AK–1, K = 1, 2, … . Вывести элементы A1, A2, … , AN. 2. Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B  0; НОД(A, 0) = A. 3. Дано целое число N (> 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество K таких элементов. 4. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления. 5. Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе. 6. Дано целое число N (> 1) и набор из N чисел. Найти номера двух соседних чисел из данного набора, произведение которых является минимальным, и вывести вначале меньший, а затем больший номер. 7. Дано число R и массив размера N. Найти два различных элемента массива, сумма которых наиболее близка к числу R, и вывести эти элементы в порядке возрастания их индексов (определение наиболее близких чисел дано в задании Array40). 8. Дан массив размера N и целое число K (1  K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0. 9. Дан массив размера N. Утроить в нем вхождения всех элементов с нечетными номерами (1, 3, …). Условный оператор не использовать. 10. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов. 11. Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.

  1. как написать на vb программу, выводящую на консоле 'Hi, world!'(тип проекта консоль)

  1. Помогите, пожалуйста Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001 Задание на картинке. Пропустил лекцию, теперь не могу решить(

  1. Написать программу и вычислить: Значение X выдать с клавиатуры. c=1,2; q=7.05 Если Если X=1,2

  1. помогите, пожалуйста! В текстовое поле 1 пользователь должен вводить символы. При этом автоматически должна считаться сумма порядковых номеров букв в ведённом слое и отображаться в текстовом поле 2. При этом текстовое поле 2 должно быть недоступно пользователю для редактирования. Определение порядковых номеров должно осуществляться в цикле (начиная с первого символа слова, затем – второй символ и т.д.). Порядковый номер определяется по русскому алфавиту (буква А – 1, буква Б – 2, В – 3, и т.д. с учётом букв Ё, Й и т.п.). Для определения порядкового номера необходимо создать новую функцию Letter_Number: Private Function Letter_Number(A As String) As Integer Аргумент A – это символ, номер которого необходимо определить. Функция возвращает переменную целого типа. Определение номера должно вызываться примерно следующим образом: N = Letter_Number(“В”) В целочисленную переменную N должно будет возвращено значение 3. При выполнении работы могут понадобиться следующие функции: 1) UCASE – переводит все символы текстовой переменной в заглавные (например, UCASE(“слОво”) = “СЛОВО”); 2) LEN – определяет количество символов в текстовой переменной (например, LEN(“Слово”) = 5); 3) MID – подстрока текстовой переменной (например, MID(“Слово”,2,1) = “л”, то есть из текстовой переменной “Слово” начиная с 3-го символа выбирается 1 символ); 4) CStr – перевод переменной в текстовый тип (например, CStr(41) = “41”, где 41 – число, а “41” – текст); 5) CInt – перевод переменной в целочисленный тип (например, CStr(“41”) = 41, где “41” – текст, а 41 – число). Также могут понадобиться следующие свойства и методы текстовых полей: 1) функция TextBox1_Change – вызывается при внесении изменений в текстовое поле 1; 2) свойство Locked – блокировка поля для ввода

  1. Написать программу вычисления приближенного значения бесконечной суммы с точностью ε=0,0001: Если кто может помогите пожалуйста.

  1. Помогите пожалуйста решить задачи Написать программу, которая запрашивала бы возраст в месяцах и выводила бы сколько вам полных лет и сколько месяцев. Например: вы ввели 17 - машина вывела 1 год и 5 месяцев.

  1. Задача : Составить линейную программу для решения задачи. Написать программу, которая выводит на экран первые три степени числа π (пи)

  1. Добрый день! Подскажите, пожалуйста, мне нужно сделать программу, в которой вводится начальное значение X, затем конечное значение X и потом шаг. Рядом выводится список всех значений X и значений Y при каждом из этих X. Также должен быть нарисован график. Функция: y(x)=sinx/(1+x^2). Подскажите, пожалуйста, как это реализовать

  1. Добрый вечер! Вроде бы задание со школьной Олимпиады, очень интересно — пригодится в жизни. Подскажите, пожалуйста, принцип кода — для перебора всех вариантов решений уравнения, так чтобы компьютер напечатал результаты:a,b,c is integer number ab+bc+ac=8(a+b+c)