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

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

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

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

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

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

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

Katya91
		1
	6 на VB для формы - желательно ручной тип ввода! 30.06.2010, 12:33. Показов 847. Ответов 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	2
	Девушка, Вы хотите, чтобы Вам просто все решили? 0

	02.07.2010, 01:16