Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д