Дополнить программу так, чтобы в файл данные записывались упорядоченными по убыванию - 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.