чего делать с этим вредным паскалем???

[Aleksandr H.]

Сообщение от ULTRA_DAMAGE

вообще что с этим делать???
объясните плиз!

1. ввод масива записей Имя-Оценка.
2. сортировка масива записей Имя-Оценка по убыванию оценок
3. вывод первых 3 имен с масива записей Имя-Оценка

program project1;
const N = 100;
type st = record
     name:string[10];
     mark:byte;
     end;
     aSt = array [1..n] of st;
var a:aSt;
    K:byte;

function readData(n:byte): aSt;
var i:byte;
    b:aSt;
begin
     for i:= 1 to n do
         begin
              with b[i] do
              begin
                   write(i,' Name: ');readln(name);
                   repeat
                                      write('Mark: ');readln(mark);
                   until (mark <= 7) and (mark >0);
              end;
         end;
     readData := b;
end;
procedure outData(n:byte;a:aSt);
var i:byte;
begin
     for i:=1 to n do
      with a[i] do
           writeln(name,' : ',mark);
end;

function sort(n:byte;a:aSt):aSt;
var i,j:byte;
    h:st;
    b:aSt;
begin
     b := a;
     for i:=1 to n do
      begin
           for j:=i to n do
               if a[i].mark<a[j].mark then
               begin
                    h:=a[i];
                    a[i]:=a[j];
                    a[j]:=h;
               end;
      end;
    sort:=a;
end;
begin
  write('Pupils Count: ');readln(k);
  if k<3 then
  begin
       writeln('Wrong Arguments Count');
  end
  else
  begin
       a := readData(k);
         a := sort(k,a);
           outdata(k,a);
             writeln(a[1].name,' ', a[2].name,' ',a[3].name);
  end;
  readln;
end.

[evg_m]

по Паскалю неплохие вроде бы УЧЕБНИКИ у Фаронова.
Оно конечно для TурбоПаскаль, но база-то у них одна
правила описания типов, переменных, консольный, файловый ввод-вывод (Паскаль), это они потом разделились.

[min@y™]

Первым заданием на
пути каждого юного программиста этой школы является поиск трёх
учеников, получивших самые высокие оценки за вступительный экзамен.

Имхо, Хогвардс - не то место, где учат программированию.
К тому же, насколько я помню, туда поступают без экзаменов.

З.Ы. Гарри Поттер - троечник! Вот это поворот!

Почему именно паскаль абц-нет? Я же ещё вчера об этом спрашивал.

[ULTRA_DAMAGE]

Сообщение от min@y™

Почему именно паскаль абц-нет? Я же ещё вчера об этом спрашивал.

а какой ещё?
турбо паскаль???

[Serge_Bliznykov]

Нет. Только не Turbo!

берите или FreePascal (+ IDE Lazarus, например), либо что-то коммерческое, типа Delphi

[type_Oleg]

Можно еще FreePascal+Geany. Правда, придется отдельно из скачивать, потом одно к другому пристегивать.
Так что проще зайти на офиц. сайт Лазаруса, скачать установщик, и установится уже готовое к употреблению ( IDE+компилятор). К тому же можно будет и оконные программки писать. Почти Delphi, только бесплатно.

[min@y™]

проще зайти на офиц. сайт Лазаруса, скачать установщик, и установится уже готовое к употреблению ( IDE+компилятор). К тому же можно будет и оконные программки писать.

Категорически согласен!

[zvygin1964]

Сообщение от min@y™

официальный сайт Лазаруса

Уж от кого-кого, а от от вас такой измены не ожидал !

[min@y™]

Уж от кого-кого, а от от вас такой измены не ожидал !

а чо не так-то?

[zvygin1964]

Сообщение от min@y™

.

Сколько помню, Delphi 10 Seattle, на Windows 10. И чтобы 10 ядер+10 ГГц.
http://coub.com/view/d3c0d