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

30.06.2010, 12:33. **Показов** 922. **Ответов** 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

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

Katya91

	6 на VB для формы - желательно ручной тип ввода! 30.06.2010, 12:33. Показов 922. Ответов 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

Опции темы