Два задания, чтот-то с сортировкой, и с векторами Опции

[Darkmaximus]

помогите пожалуйста просто горю пора сдавать а у мне не получается написатьна TURBO PASCALE эти проги заранее благодарен:

1) Заданы два вектора X и Y и матрица А. Найти сумму двух векторов C и D
где С есть произведение вектора X на матрицу А , а вектор D произведения вектора Y на матрицу А. Вычислить произведение вектора на матрицу оформить в виде подпрограммы.

2) Оргонизовать фаид , содержащий информацию об ученой группе. Для каждог учащегося
указать фамилиююъ , имя , дату рождения , год поступления в ВУЗ , курс , группу , оценки
за каждый год обучения. Список упорядочить по дате поступления в ВУЗ.

<_< Сама вторая прога у меня есть а вот отсортировать не получается. Помогите если сможите. А если непонятно напишите новую.

Код

uses crt;
type pupil=record
name:string;
surname:string;
grup:string;
school:string;
kurs:string;
class:byte;
end;
var school:array[1..3]{кч}of pupil;
n: 1..3{кч};
b,c:byte;

procedure sort;
var w,x:integer;
begin
 for i:=1 to n-1 do
 begin
    x:=i;
    for j:=i+1 to n do
       if a[x]>a[j] then x:=j;
    w:=a[x];
    a[x]:=a[i];
    a[i]:=w;
 end;
end;

procedure input_data;
begin
writeln('введите данные №',n,' :');

write('фамилия ?'); readln(school[n].name);
write('дата рождения ?'); readln(school[n].surname);

write('год поступления ?'); readln(school[n].school);

write('оценка ?'); readln(school[n].class);
write('курс ?');   readln(school[n].kurs);
write('группа ?'); readln(school[n].grup);
writeln;
end;
procedure write_data;
begin
with school[n] do begin
writeln('оценка ',class,' фамилия ',name,' дата рожд ',surname,' год поступ ',school,' курс ',kurs,' группа ',grup);
end;
end;

Не забывайте теги [ CODE] и [ /CODE]

Сообщение отредактировано: volvo - 1.12.2004 21:52