1 программа по работе с текстовыми файлами, Программа по работе с файлами Опции

[Saver]

Программа считывает список фамилий, имен и номеров зачеток с текстового файла и по выбору пользователя(по имени, фамилии или номеру зачетки) сортирует их по алфавиту и сохраняет в новый текстовый файл. Очень надо до сегодняшнего вечера до 23:00. Помогите!!!!

[klem4]

Разбирайся ...

uses crt;

const
  max_len = 100;

type

  TStudent = record
	name: String;
	book: LongInt;
  end;

  TDataBase = array [1..max_len] of TStudent;

  TFile = Text;

function ReadData(fName: String; var db: TDataBase; var dbSize: Integer): Boolean;
var
  temp: String;
  f: TFile;
  value, e: LongInt;
begin


  dbSize := 0;

  assign(f, fName);

  {$i-}
  reset(f);
  {$i+}

  if IOResult <> 0 then ReadData := false else begin

	ReadData := true;

	while not(eof(f)) do begin

	  readln(f, temp);

	  inc(dbSize);

	  with db[dbSize] do begin
		name := Copy(temp, 1, pos(' ', temp) - 1);
		Val(Copy(temp, pos(' ', temp) + 1, 255), value, e);
		if e = 0 then
		 book := value;
	  end;

	end;

	close(f);

  end;
end;

procedure SortBy(var db: TDataBase; dbSize: Integer; byName: Boolean; desc: Boolean);
var
  i, j: Integer;
  temp: TStudent;

begin

  for i := dbSize downto 2 do

   for j := 1 to i - 1 do

	case byName of

	  true: begin

		if ((db[j].name <= db[j + 1].name) = desc) then begin
		  temp := db[j];
		  db[j] := db[j + 1];
		  db[j + 1] := temp;
		end;

	  end;

	  false: begin

		if ((db[j].book <= db[j + 1].book) = desc) then begin
		  temp := db[j];
		  db[j] := db[j + 1];
		  db[j + 1] := temp;
		end;

	  end;
	end;
end;

procedure WriteToFile(fName: String; db: TDataBase; dbSize: Integer);
var
  i: Integer;
  f: TFile;
begin
  assign(f, fName);
  rewrite(f);
  for i := 1 to dbSize do
   writeln(f, db[i].name, ' ', db[i].book);
  close(f);
end;

var
  db: TDataBase;
  dbSize: Integer;
  choice: Char;

begin
  clrscr;

  if not(ReadData('c:\studentsIn.txt', db, dbSize)) then begin
	writeln('Can''t open file');
	halt(1);
  end;

  writeln('Sort By : ');
  writeln('1 - ByName');
  writeln('2 - ByBookNumber');
  write('Your choice ->');

  readln(choice);

  case choice of
   '1': SortBy(db, dbSize, true, false);
   '2': SortBy(db, dbSize, false, false);
  end;

  WriteToFile('c:\studentsOut.txt', db, dbSize);

  writeln('Done'); 

  readln;
end.

Для более точной сортировки по фамилии пользуйся поиском по форуму ...

ps Пример входного файла прикрепляю.