Developing.ru

1) Дан список студентов группы с соответствующими отметками по предмету. С клавиатуры вводится фамилия и отметка. Описать процедуру, которая в зависимости от отметки даёт количественную оценку работы. Например: отлично - Петров;
плохо - Михайлов и т.д.

2) Рациональное число задано в виде записи с двумя полями
............
числитель: integer;
знаменатель: integer;
............
Определить есть ли среди n рациональных чисел равные.

function student_mark(mark: integer; student: string):string
var s:string;
begin
case mark of
1: s:='Ужасно';
2: s:='Плохо';
3: s:='Посредственно';
4: s:='Хорошо';
5: s:='Отлично';
end;
student_mark:=s+' - '+student;
end;


for i:=1 to N-1 do
for j:=i to N do
if A.chisl/A.znam=A[j].chisl/A[j].znam then writeln (A.chisl,'/',A.znam,'=',A[j].chisl,'/',A[j].znam);