Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека - VB

Узнай цену своей работы

Формулировка задачи:

Пожалуйста,помогите с задачей Напишите программу, решающую следующую задачу. Результат письменной работы оценивается исходя из 100 баллов (0 --- минимальная оценка, 100 --- максимальная). Сначала программе задается 101 целое число --- число человек, которые получили за письменную работу соответствующее число баллов. Затем программе задается число баллов за работу, которое набрал некоторый человек (этот человек уже учтен в статистике, заданной в начале). Программа должна напечатать процент людей (от общего количества писавших работу), которые написали работу лучше этого человека. Процент людей должен выводиться как целое число в диапазоне от 0 до 100. При необходимости дробная часть отбрасывается. Для вычислений используйте только целочисленные операции. Программа может быть написана на языках C, C++, Java, C#, QuickBasic, VisualBasic .NET, Pascal ABC, Delphi, FreePascal, Python2, Python3, PHP. Программа должна считывать входные данные со стандартного потока ввода (терминала, консоли) и выводить результат на стандартный поток вывода (терминал, консоль).

Решение задачи: «Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека»

textual
Листинг программы
Dim c As Integer, N As Integer, M(101) As Integer, rez As Integer, proc As Integer, str As String, kol As Integer
 
Private Sub Form_Load()
kol = 101
 
For c = 1 To kol
str = "îöåГ*ГЄГ* " & c
str = str + " èñïûòóåìîãî:"
M(c) = InputBox(str)
Next c
rez = InputBox("ââåäèòå îöåГ*ГЄГі äëÿ Г±Г°Г*ГўГ*ГҐГ*ГЁГї")
 
N = 0
For c = 1 To kol
If M(c) > rez Then N = N + 1
Next c
 
proc = 100 * N / kol
 
If N <> 0 Then
MsgBox proc & "% Г*Г*ГЇГЁГ±Г*ëè ëó÷øå"
Else: MsgBox ("Г*ГЁГЄГІГ® Г*ГҐ Г*Г*ГЇГЁГ±Г*Г« ëó÷øå")
End If
 
End Sub

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


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

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

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