Определить стоимость бензина, затраченного на поездку в другой город - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы