Нужно создать базу данных для распределения студентов, поступающих в колледж. функции, которые должны выполняться: 1. определение поступивших студентов студент считается поступившим, если он попадает в список 25 (опционально, зависит от количества мест на специальности) студентов, имеющих наибольший средний . если 25 и последующие (26, 27, 28, …) имеют одинаковый средний , то они тоже должны быть занесены в список поступивших студент. 2. распределение студентов, документы на несколько специальностей если студент подает документы на несколько специальностей, то он заполняет специальный документ, в котором указывает свои приоритеты. например, студент указывает, что хочет поступить на специальности: - специальность 1 - специальность 2 - специальность 3 если ему хватает среднего для поступления на специальность 1, то он определяется на нее, если нет, то смотрится может ли он поступить на специальность 2, и так далее. если ему не хватает для поступления ни на одну специальность он должен быть убран из списка. примерный вид таблицы: - рисунок 1. изначальный вид таблицы, который заполняется секретарем. цифры от 1 до 10 приоритеты студента (1 наиболее приоритетная, 10 – наименее приоритетная) - рисунок 2. окончательный вид таблицы, который должен выводится после окончания программы. как это можно реализовать и в какой программе? можно изменять начальный и окончательный вид таблицы, главное, чтобы функционал оставался тем же.
===== PascalABC.NET =====
begin
var a := ReadlnInteger('Введите целое число:');
try
Println(1 div a);
except
on System.DivideByZeroException do
Println('Попытка деления на ноль');
end;
try
var s := ReadlnString('Введите число с дробной частью:');
s.ToReal.Println;
except
on System.FormatException do
Println('Неверная запись вещественного числа')
end;
var b := ArrRandom(5, -10, 10);
try
Println(b[ReadlnInteger('Какой элемент массива вывести?')])
except
on System.IndexOutOfRangeException do
Println('Неверный индекс')
end;
try
BigInteger.Parse(ReadlnString('Введите число:')).ToString.ToInteger
except
on System.OverflowException do
Println('Слишком большое число')
end
end.
Примечание: StackOverflowException невозможно перехватить в версии .NET выше 2.0.
program fdjh;
uses crt;
var
F:text;
in_name, z:string;
max,n,i,d:integer;
begin
writeln('Введiть iм`я файлу');
read(in_name);
assign(F,in_name);
rewrite(F);
writeln('Введiть розмiр файлу');
read(n);
for i:=1 to n do
begin
d:=random(101)-25;
z := inttostr(d);
write(F,z+#13#10);
end;
close(F);
reset(F);
max := -25;
while not eof(F) do
begin
readln(F,z);
d := StrToINt(z);
if (d > max) and (d mod 4 = 0) then
max:=d;
end;
if max = -25 then writeln('Максимальний кратний 4 в файлі не існує')
else writeln('Максимальний кратний 4 = ',max);
close(F);
end.