в массиве содержится информация о зимней сессии третьего курса....

[nuklon712]

помогите пожалуйста с решением этой задачи, вообще ума не дам даже с чего начать

в массиве содержится информация о зимней сессии третьего курса. сведения о каждом студенте (максимальное число студентов - 150) содержат следующие данные:
-фамилию (до 12 символов),
-номер группы (от1 до 7),
-оценки по трём предметам (предметы: функциональный анализ, численные методы и экономика)
написать программу которая вводит эту информацию и печатает следующие данные: номера групп в порядке убывания средней успеваемости их студентов.

[Abstraction]

Создать структуру, хранящую сведения о студенте. Создать массивы суммарных оценок и численностей групп. Считать информацию о студентах, соответствующим образом меняя суммарные оценки и численности групп. Создать массив пар "номер группы-средняя оценка". Упорядочить его по убыванию средних оценок. Вывести номера групп.

[Rififi]

nuklon712

#include <iostream>
#include <locale>
#include <string>

#include <boost/multi_index_container.hpp>
#include <boost/multi_index/member.hpp>
#include <boost/multi_index/sequenced_index.hpp>
#include <boost/multi_index/ordered_index.hpp>

using namespace boost::multi_index;
 
struct GradeTag {};

struct Studen
{
	std::string fam;
	unsigned group;

	struct Grade
	{
		unsigned fun, num, ek;
	} grade;
};

struct GradeAvgGreter
{
	bool operator()(Studen::Grade g1, Studen::Grade g2) const
	{
		return (g1.fun + g1.num + g1.ek) / 3.0 > (g2.fun + g2.num + g2.ek) / 3.0;
	}
};

typedef multi_index_container<
	Studen,
	indexed_by<
		sequenced<>,
		ordered_non_unique<tag<GradeTag>, BOOST_MULTI_INDEX_MEMBER(Studen, Studen::Grade, grade), GradeAvgGreter>
	> > Catalog;

int main()
{
	std::locale::global(std::locale(""));

	Catalog cat;
	
	Studen раздолбай;
	раздолбай.group = 1;
	раздолбай.grade.fun = 2;
	раздолбай.grade.num = 2;
	раздолбай.grade.ek = 2;
	cat.push_back(раздолбай);

	Studen баклан;
	баклан.group = 2;
	баклан.grade.fun = 3;
	баклан.grade.num = 3;
	баклан.grade.ek = 3;
	cat.push_back(баклан);

	const auto& list(cat.get<GradeTag>());
	for (auto it = list.cbegin(); it != list.cend(); ++it)
	{
		std::cout << it->group << std::endl;
	}

	return 0;
}

Вывод:
2
1

У раздолбая одни пары, поэтому он в скором времени пополняет ряды защитников отчества. o_O А баклан вытянул на троечки, поэтому его группа печатается первой.

Сдаёшь эту прогу, и наступает твой звездный час, бро! :D

[nuklon712]

а в каком это коде? мне нужно в паскале

от нашёл что-то подобное, с похожим условием, но не знаю как это довести до ума

условие

1) В массиве содержится информация о зимней сессии 3-го курса. Сведения о каждом студенте (Макс.число студентов - 150) содержат следующие данные : фамилию (до 12 символов), номер группы (от 1 до 7), оценка по 3 предметам (функциональный анализ, численные методы и экономика). Напишите прогу, которая вводит эту информацию и печатает фамилии студентов, имеющих задолжность хотя бы по одному предмету.

PHP код:

uses
CRT;
 
const
MAX_STUDENTS = 150;
 
type
TFamilyName = String[12];
TGroup = 1..7;
TMark = 1..5;
TSubjects = array[1..3] of TMark;
TStudentData = record
FamilyName : TFamilyName;
Group : TGroup;
Subjects : TSubjects;
end;
TStudentList = array[1..MAX_STUDENTS] of TStudentData;
 
var
StudentList : TStudentList;
nStudents : Word;
 
function GetStudentData(var sd : TStudentData) : Boolean;
var
S : String;
C : Integer;
N : Integer;
Ret : Boolean;
i : Word;
begin
Ret := True;
ClrScr;
WriteLn('******* ADD NEW STUDENT *******');
WriteLn;
Write('Family Name: ');
ReadLn(sd.FamilyName);
if Length(sd.FamilyName) < 12 then
for i := 1 to 12 - Length(sd.FamilyName) do
sd.FamilyName := sd.FamilyName + ' ';
Write('Group #: ');
ReadLn(S);
Val(S, N, C);
if (C = 0) and (N >= 1) and (N <= 7) then
begin
sd.Group := N;
Write('Functional Analyze Mark: ');
ReadLn(S);
Val(S, N, C);
if (C = 0) and (N >= 1) and (N <= 5) then
begin
sd.Subjects[1] := N;
Write('Numeric Methods Mark: ');
ReadLn(S);
Val(S, N, C);
if (C = 0) and (N >= 1) and (N <= 5) then
begin
sd.Subjects[2] := N;
Write('Economics Mark: ');
ReadLn(S);
Val(S, N, C);
if (C = 0) and (N >= 1) and (N <= 5) then
begin
sd.Subjects[3] := N;
end
else
Ret := False;
end
else
Ret := False;
end
else
Ret := False;
end
else
Ret := False;
if Ret then
WriteLn('Input operation has been done successfully')
else
WriteLn('Input operation has been failed: Invalid data');
GetStudentData := Ret;
end;
 
function AddStudent(const sd : TStudentData) : Boolean;
begin
if nStudents = MAX_STUDENTS then
AddStudent := False
else
begin
Inc(nStudents);
StudentList[nStudents] := sd;
AddStudent := True;
end;
end;
 
procedure PrintFailedStudents(Columns : Byte);
var
i : Word;
col : Byte;
begin
ClrScr;
WriteLn('******* FAILED STUDENTS *******' : 12);
WriteLn;
col := 0;
if nStudents > 0 then
for i := 1 to nStudents do
begin
if col = Columns - 1 then
WriteLn;
with StudentList[i] do
begin
if (Subjects[1] <= 2) or (Subjects[2] <= 2) or (Subjects[3] <= 2) then
begin
Write(FamilyName + ' ');
col := (col + 1) mod Columns;
end;
end;
end;
end;
 
procedure Start;
var
Command : String;
sd : TStudentData;
begin
Command := '';
while (Command <> 'quit') do
begin
Write('Command > ');
ReadLn(Command);
if Command = 'add' then
begin
if GetStudentData(sd) then
if AddStudent(sd) then
WriteLn('Add operation has been done successfully')
else
WriteLn('Add operations has been failed: Too many students');
WriteLn;
end
else
if Command = 'print' then
begin
PrintFailedStudents(6);
WriteLn;
ReadLn;
end
else
WriteLn('Command is not recognized');
end;
end;
 
begin
ClrScr;
WriteLn('******* COMMANDS *******');
WriteLn('add - add new student');
WriteLn('print - print families of failed students');
WriteLn('quit - exit program');
ReadLn;
ClrScr;
Start;
end. 


[Abstraction]

а в каком это коде?

C++, boost.

[nuklon712]

Abstraction а как его перегнать в паскаль?