Материалы по запросу: бэйсик
Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый…
номер наименьшего из них. Разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик
Ответ на вопрос
Здесь приведен программный код на BASIC для решения данной задачи:10 INPUT "Введите последовательность чисел, разделенных символом: ", Seq$
20 LET MinNum = 9999999
30 LET Num = ""
40 FOR i = 1 TO LEN(Seq$)
50 IF MID$(Seq$, i, 1) <> " " AND VAL(MID$(Seq$, i, 1)) <> 0 THEN
60 LET Num = Num + MID$(Seq$, i, 1)
70 ELSE
80 IF Num <> "" THEN
90 IF VAL(Num) < MinNum THEN
100 LET MinNum = VAL(Num)
110 END IF
120 LET Num = ""
130 END IF
140 END IF
150 NEXT i
160 PRINT "Порядковый номер наименьшего числа: "; MinNumПосле ввода последовательности чисел, разделенных символом, программа выведет порядковый номер наименьшего из них.
Еще
180
1
Дано целое число X и натуральное N.Составьте алгоритм вычисления X^N.напишите программу на бэйсике…
Дано целое число X и натуральное N.Составьте алгоритм вычисления X^N.напишите программу на бэйсике
Ответ на вопрос
Для вычисления X в степени N можно использовать следующий алгоритм:Инициализировать переменную result, присвоить ей значение 1.Пока N > 0:
Если N четное, то умножить X на само себя, поделить N на 2.Если N нечетное, то умножить result на X, вычесть из N 1 и поделить N на 2.Вернуть результат result.Программа на BASIC:INPUT "Введите число X: ", X
INPUT "Введите степень N: ", N
LET result = 1
WHILE N > 0
IF N MOD 2 = 0 THEN
LET X = X * X
LET N = N / 2
ELSE
LET result = result * X
LET N = (N - 1) / 2
END IF
WEND
PRINT "Результат: "; resultЭта программа позволяет пользователю ввести число X и степень N, после чего рассчитывает X в степени N с помощью описанного алгоритма.
Еще
292
1
Напишите дружественную по отношению к пользователю программу. Пусть она обращается к вам по имени, а затем…
результате вывести на экран несложную фразу с использованием введенных слов.программу надо написать в бэйсике
Ответ на вопрос
10 INPUT "Привет, как тебя зовут?"; name$
20 PRINT "Приятно познакомиться, "; name$
30 INPUT "Давай создадим фразу! Введи прилагательное: "; adj$
40 INPUT "Теперь введи существительное: "; noun$
50 INPUT "Введите наречие: "; adv$
60 INPUT "И последнее - введите глагол: "; verb$
70 PRINT "Вот фраза, которую мы составили:"
80 PRINT adj$; " "; noun$; " "; adv$; " "; verb$; "."
90 PRINT "Хорошо получилось, правда? :)"
100 END
Еще
173
1
Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый…
номер наименьшего из них. Разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик
Ответ на вопрос
Вот пример программы на языке программирования BASIC, которая находит порядковый номер наименьшего натурального числа в последовательности различных натуральных чисел:10 INPUT "Введите последовательность чисел, завершите нулем: ", seq$
20 LET min_num = 999999
30 LET order = 0
40 LET num = VAL(seq$)
50 WHILE num <> 0
60 IF num < min_num THEN
70 LET min_num = num
80 LET order = order + 1
90 END IF
100 LET num = VAL(seq$)
110 WEND
120 PRINT "Порядковый номер наименьшего числа: "; orderВы можете скопировать этот код в среду программирования BASIC и запустить его, чтобы найти порядковый номер наименьшего числа введенной последовательности натуральных чисел.
Еще
201
1
Какой язык программирования изучить для личных целей? Про программирование не знаю ничего, за исключением…
личных целей? Про программирование не знаю ничего, за исключением каких-то команд спектрумовского бэйсика, который изучал ещё в школе. Заниматься этим профессионально однозначно не буду, мне нужно исключительно
Ответ на вопрос
Для ваших целей могу порекомендовать изучить язык программирования Python. Python - кросплатформенный язык, отлично подходит для автоматизации задач и написания скриптов как под Windows, так и под Linux. Он легко изучается, имеет понятный синтаксис, обширную стандартную библиотеку и множество сторонних модулей для различных задач.Python также имеет широкую поддержку веб-разработки и возможность написания веб-приложений с использованием фреймворков, таких как Django или Flask. На Python также можно написать интерфейс для управления чем-либо, например, с использованием библиотеки Tkinter.Кроме того, Python поддерживается на большинстве популярных платформ, включая роутеры с OpenWRT. Таким образом, изучение Python позволит вам реализовать широкий спектр задач для личных целей.
Еще
258
1
Кароче,я сделал 2 списка с рабочим кодомА вот с 3им проблема,выходит ошибкаЭто в экселе макрос вижуал бэйсик.В…
Кароче,я сделал 2 списка с рабочим кодомА вот с 3им проблема,выходит ошибкаЭто в экселе макрос вижуал бэйсик.В двух списках записаны числа, указывающие первый член и знаменатель геометрической прогрессии. Получить
Ответ на вопрос
Проблема в вашем коде заключается в неправильной формуле для расчета следующего члена геометрической прогрессии. Вот исправленный код:Private Sub CommandButton4_Click()
Dim a As Single
Dim b As Single
Dim m As Single
Dim i As Integera = Val(ListBox1.Text)
b = Val(ListBox2.Text)
m = a
ListBox3.Clear
For i = 1 To 10
m = m * b
ListBox3.AddItem Str(m)
Next iEnd SubЭтот код должен корректно добавить 10 первых членов геометрической прогрессии в третий список. Убедитесь, что значения в первом и втором списках корректно сконвертированы в числа при помощи функции Val.
Еще
274
1
Развитие познавательного интереса средствами информационных технологий
педагогической технологии. — М., 2003. – 230 с 4. Быля Т.Н., Быля О.И. Изучаем информатику, программируя на Бэйсике.-М.: Рольф, 2007.-160с.: илл. 5. Гершунский Б.С. Философия образования. — М., 1998. — 428 с. 6. Гершунский
Что часто ищут
Поможем написать учебную работу