Определить стоимость бензина, затраченного на поездку в другой город - VB
Формулировка задачи:
1)Стоимость бензина , затраченного на поездку в другой город.
2)Дано натуральное число n. Поменять порядок цифр числа n на обратный.
3)Дано действительное число x. Определить, является ли оно натуральным.
4)Даны натуральное число n и последовательность действительных чисел а1,a2,...,a2n
Вычислить среднее арифметическое элементов последовательности, если из неё удалит максимальный и минимальный члены.
теперь надо только 3 и 4
помогите плиз
Решение задачи: «Определить стоимость бензина, затраченного на поездку в другой город»
textual
Листинг программы
Option Explicit Dim i As Integer, k As Integer Dim N As Integer Dim mass(), mass_1() Dim max As Integer, min As Integer, S Private Sub Command1_Click() N = Val(InputBox("Вводим N", , 3)) If N < 3 Then MsgBox "некорректный ввод " & vbNewLine & "повторите ввод" Exit Sub End If ReDim mass(N) List1.Clear For i = 1 To N mass(i) = Val(InputBox("Введите a(" & i & ")")) List1.AddItem mass(i) Next i max = mass(1) min = mass(1) For i = 2 To N If max < mass(i) Then max = mass(i) If min > mass(i) Then min = mass(i) Next i k = 0 For i = 1 To N If max <> mass(i) And min <> mass(i) Then k = k + 1 ReDim Preserve mass_1(k) mass_1(k) = mass(i) End If Next i List2.Clear If k > 0 Then S = 0: k = UBound(mass_1) For i = 1 To k S = S + mass_1(i) List2.AddItem mass_1(i) Next i List2.AddItem "" List2.AddItem "Среднее ар" List2.AddItem "S = " & S / k Else MsgBox "элементов, отличных от макс. или мин., не найдено" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д