6 на VB для формы - желательно ручной тип ввода!

30.06.2010, 12:33. **Показов** 911. **Ответов** 2

Студворк — интернет-сервис помощи студентам

1.4. Для решения следующих задач написать программы, которые печатают true или false в зависимости от
того, выполняются или нет указанные условия:
в) определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его
последних цифр;

2.20. Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0:
A) y=e^x=1 + x/1! + x^2/2! + ... + x^n/n! + ...;

2.36. Программа. Дана непустая последовательность натуральных чисел, за которой следует 0.
Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи (см. 5.16).

3.2. Для решения каких из следующих задач нужны массивы, а в каких задачах можно обойтись и без них?
Б) Дано 50 чисел. Определить, сколько среди них отличных от последнего числа.

3.11. Элементы массива Х упорядочены по возрастанию. Требуется присвоить переменной k номер
элемента массива Х, равного числу y, или 0, если такого элемента нет.
Использовать следующий метод двоичного (бинарного) поиска: сравнить р со средним
элементом массива ( или элементом около середины ); если эти числа равны, поиск завершается,
если же р меньше среднего элемента, то р надо искать в левой половине массива, а иначе - в правой;
к выбранной половине применяется выбранный алгоритм.

4.10. Заполнить массив А следующим образом:

б) 1 2 ... 10
11 12... 20
21 22... 30

@Pasha3 · 02.07.2010, 00:18

Девушка, Вы хотите, чтобы Вам просто все решили?

@YuraAAA · 02.07.2010, 01:16

3.2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Dim a(1 To 50) As Single, count As Integer
count = 0
For i = 1 To 50
a(i) = Int(100 * Rnd - 50)
Next i
For i = 1 To 50
If a(i) <> a(50) Then count = count + 1
Next i
MsgBox count
End Sub

Последняя

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command2_Click()
Dim a(1 To 3, 1 To 10) As Integer, answer, ind
answer = ""
ind = 0
For i = 1 To 3
For j = 1 To 10
ind = ind + 1
a(i, j) = ind
answer = answer & a(i, j) & " "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
End Sub

Первая

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
Dim a As Double
l1:
a = InputBox("Число")
If Len(CStr(a)) <> 4 Then MsgBox ("Neto"): GoTo l1
If Mid(a, 1, 1) + Mid(a, 2, 1) = Mid(a, 3, 1) + Mid(a, 4, 1) Then MsgBox ("True") Else MsgBox ("False")
End Sub

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

Katya91

	6 на VB для формы - желательно ручной тип ввода! 30.06.2010, 12:33. Показов 911. Ответов 2 Метки нет (Все метки) 1.4. Для решения следующих задач написать программы, которые печатают true или false в зависимости от того, выполняются или нет указанные условия: в) определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр; 2.20. Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0: A) y=e^x=1 + x/1! + x^2/2! + ... + x^n/n! + ...; 2.36. Программа. Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи (см. 5.16). 3.2. Для решения каких из следующих задач нужны массивы, а в каких задачах можно обойтись и без них? Б) Дано 50 чисел. Определить, сколько среди них отличных от последнего числа. 3.11. Элементы массива Х упорядочены по возрастанию. Требуется присвоить переменной k номер элемента массива Х, равного числу y, или 0, если такого элемента нет. Использовать следующий метод двоичного (бинарного) поиска: сравнить р со средним элементом массива ( или элементом около середины ); если эти числа равны, поиск завершается, если же р меньше среднего элемента, то р надо искать в левой половине массива, а иначе - в правой; к выбранной половине применяется выбранный алгоритм. 4.10. Заполнить массив А следующим образом: б) 1 2 ... 10 11 12... 20 21 22... 30

@Pasha3 0 / 0 / 1 Регистрация: 02.07.2010 Сообщений: 7
	02.07.2010, 00:18
	Девушка, Вы хотите, чтобы Вам просто все решили? 0