Дополнить программу так, чтобы в файл данные записывались упорядоченными по убыванию - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Дополнить программу так, чтобы в файл данные записывались упорядоченными по убыванию»

textual
Листинг программы
program f1;
uses crt;
const
  n=100;
type
  massch = array[1..n] of integer;
  mass= array[1..n] of string;
procedure SortTextFile;
var
  f,v:text;
  l,k,i,j,sum:integer;
  st,s1:string;
  fam:mass;
  sumballov:massch;
begin
  assign(f,'sem1_213.txt');
  assign(v,'itog.txt');
  reset(f);
  rewrite(v);
  {}
  l:=0;
  while not(eof(f))do
    begin
      readln(f,st);
      k:=pos(',',st);
      l:=l+1;
      fam[l]:=copy(st,1,k-1);
      delete(st,1,k);
      sum:=0;
      {}
      i:=1;
      while pos(',',st)>0 do
        begin
          k:=pos(',',st);
          s1:=copy(st,1,k-1);
          sum:=sum+strtoint(s1);
          delete(st,1,k);
        end;
      sumballov[l]:=sum + strtoint(st);
    end;
  {}
  for i:=1 to l-1 do
     for j:=i+1  to l do
       if sumballov[j]>sumballov[i] then
         begin
           {}
           k:=sumballov[j];
           sumballov[j]:=sumballov[i];
           sumballov[i]:=k;
           {}
           st:=fam[j];
           fam[j]:=fam[i];
           fam[i]:=st;
         end;
  {}
  for i:=1 to l do
      writeln(v,fam[i],'  -  ',sumballov[i]);
  close (f);
  close (v);
end;
begin
  SortTextFile;
end.

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы