Вывести список в отсортированном виде

@gtYomy · Регистрация: 23.06.2013

Author24 — интернет-сервис помощи студентам

Помогите пож сделать сортировку списка в паскале.
Даны 10 человек (ФИО, пол, год рождения). Вывести список в отсортированном виде.
Список хранится в фале txt.

@rjxxx · 23.06.2013, 22:07

Pascal

const n=10;
 Type
  massiv = record
    FIO, Pol :string;
    God_rojd: integer;
  end;
  
var 
mas: array [1..n] of massiv;
i:integer;
f:text;
 
procedure Sort;                 //Сортировка методом прямого выбора
var i,k,j,x:integer; x1:massiv;
begin
for i:=1 to n do
begin
k:=i;
x:= mas[i].god_rojd;
x1:=mas[i];
For j:= i+1 to n do
if mas[j].god_rojd < x then
begin
k:=j;
x:= mas[j].god_rojd;
x1:= mas[j]
end;
mas[k]:=mas[i];
mas[i]:=x1
end;
end;
 
procedure read_file;
var s:string;
begin
Assign(f,'Sortirovka.txt');
reset(f);
for i:=1 to n do
begin
readln(f,mas[i].FIO);
readln(f,s); mas[i].god_rojd:=strtoint(s);
readln(f,mas[i].Pol);
end;
close(f);
end;
 
begin
read_file;
Sort;
writeln('Ñîðòèðîâêà ïî ñòàðøèíñòâó');
writeln;
for i:=1 to n do
begin
write(mas[i].god_rojd,' ');
write(mas[i].FIO,' ');
write(mas[i].Pol,' ');
writeln;
end;
 
end.

Sortirovka.txt

@gtYomy · 23.06.2013, 23:02 **[ТС]**

Спасибо большое. А как сделать сортировку по фамилиям?

@rjxxx · 23.06.2013, 23:40

заменить в процедуре Sort mas[i].god_rojd на ord(mas[i].FIO[1])

@gtYomy · 24.06.2013, 01:25 **[ТС]**

Поменял, все заработало, но когда стал менять фамилии в txt перестал сортировать. В чем проблема?

@gtYomy · 24.06.2013, 01:32 **[ТС]**

Pascal

uses crt;
const n=10;
 Type
  massiv = record
    FIO, Pol :string;
    God_rojd: integer;
  end;
 
var
mas: array [1..n] of massiv;
i:integer;
f:text;
 
procedure Sort;                 //Ñîðòèðîâêà ìåòîäîì ïðÿìîãî âûáîðà
var i,k,j,x:integer; x1:massiv;
begin
for i:=1 to n do
begin
k:=i;
x:= ord(mas[i].FIO[1]);
x1:=mas[i];
For j:= i+1 to n do
if ord(mas[i].FIO[1]) < x then
begin
k:=j;
x:= ord(mas[i].FIO[1]);
x1:= mas[j]
end;
mas[k]:=mas[i];
mas[i]:=x1
end;
end;
 
procedure read_file;
var s:string;
begin
Assign(f,'Sortirovka.txt');
reset(f);
for i:=1 to n do
begin
readln(f,mas[i].FIO);
readln(f,s); mas[i].god_rojd:=strtoint(s);
readln(f,mas[i].Pol);
end;
close(f);
end;
 
begin
read_file;
Sort;
writeln('Ñîðòèðîâêà ïî ñòàðøèíñòâó');
writeln;
for i:=1 to n do
begin
write(mas[i].god_rojd,' ');
write(mas[i].FIO,' ');
write(mas[i].Pol,' ');
writeln;
end;
 
end.

@rjxxx · 24.06.2013, 12:16

ОЙ тупанул немного, вот как должна выглядеть процедура сортировки

Pascal

procedure Sort;
var i,k,j,x:integer; x1:massiv;
begin
for i:=1 to n do
begin
k:=i;
x:= ord(mas[i].FIO[1]);
x1:=mas[i];
For j:= i+1 to n do
if ord(mas[j].FIO[1]) < x then
begin
k:=j;
x:= ord(mas[j].FIO[1]);
x1:= mas[j]
end;
mas[k]:=mas[i];
mas[i]:=x1
end;
end;

@gtYomy · 24.06.2013, 22:25 **[ТС]**

Спасибо большое !!!

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста

@gtYomy 0 / 0 / 0 Регистрация: 23.06.2013 Сообщений: 5
		1
	Вывести список в отсортированном виде 23.06.2013, 21:06. Показов 1386. Ответов 7 Метки нет (Все метки) Помогите пож сделать сортировку списка в паскале. Даны 10 человек (ФИО, пол, год рождения). Вывести список в отсортированном виде. Список хранится в фале txt. 0

@gtYomy 0 / 0 / 0 Регистрация: 23.06.2013 Сообщений: 5
	23.06.2013, 23:02 [ТС]	3
	Спасибо большое. А как сделать сортировку по фамилиям? 0

@rjxxx Фрилансер 73 / 73 / 51 Регистрация: 25.10.2011 Сообщений: 317
	23.06.2013, 23:40	4
	заменить в процедуре Sort mas[i].god_rojd на ord(mas[i].FIO[1]) 0

@gtYomy 0 / 0 / 0 Регистрация: 23.06.2013 Сообщений: 5
	24.06.2013, 01:25 [ТС]	5
	Поменял, все заработало, но когда стал менять фамилии в txt перестал сортировать. В чем проблема? 0

	24.06.2013, 22:25