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

@Alina55 · Регистрация: 10.09.2013

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

Пожалуйста,помогите с задачей
Напишите программу, решающую следующую задачу.

Результат письменной работы оценивается исходя из 100 баллов (0 --- минимальная оценка, 100 --- максимальная). Сначала программе задается 101 целое число --- число человек, которые получили за письменную работу соответствующее число баллов. Затем программе задается число баллов за работу, которое набрал некоторый человек (этот человек уже учтен в статистике, заданной в начале).

Программа должна напечатать процент людей (от общего количества писавших работу), которые написали работу лучше этого человека. Процент людей должен выводиться как целое число в диапазоне от 0 до 100. При необходимости дробная часть отбрасывается. Для вычислений используйте только целочисленные операции.

Программа может быть написана на языках C, C++, Java, C#, QuickBasic, VisualBasic .NET, Pascal ABC, Delphi, FreePascal, Python2, Python3, PHP. Программа должна считывать входные данные со стандартного потока ввода (терминала, консоли) и выводить результат на стандартный поток вывода (терминал, консоль).

@Wizard2509 · 29.01.2014, 13:04

Visual Basic

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

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

Опции темы

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

Решение