В этом коде определенно есть ошибка! Опции

[iSlayter]

Проблема в том, что в файле после его заполнения есть данные, а процедуры Print и ShowInfo не срабатывают. Вообще ничего не выдают.

Помогите, пожалуйста, разобраться с данной проблемой.
Надеюсь на понимание.

С уважением,
Юрий.

program rec;
uses crt;
type

   TRec = record
      name       : string [31];
      bornyear   : integer;
      bornmonth  : integer;
      bornday    : integer;
      adress     : string [250];
   end;

   TBase = array [1..100] of TRec;

   TFile = file of TBase;
  
   
   
   
    
procedure ShowInfo (var b : TBase; var f : TFile; x : integer; k : integer);
var
  i : byte;
begin
   read(f, b);
   writeln('Infromation about mans : ');
   for i := 1 to k do
    with b[i] do begin
     if bornyear > x then begin
       writeln('Name : ' , name);
       writeln('Born day: ' , bornday , '; Born month: ' , bornmonth , 'Born year: ' , bornyear);
       writeln('Adress: ' , adress);
       writeln;
     end;
    end;
end;





procedure Input(var b : TBase; var f : TFile; var k : integer);
var
   i : byte;
begin
  writeln('Vvod bazy dannyx. ');writeln('');
   for i := 1 to k do
    with b[i] do begin
       writeln('Chelovek N ',i);
       write('Name : '); readln(name);
       write('Born day: '); readln(bornday); write('Born month: '); readln(bornmonth); write('Born year: '); readln(bornyear);
       write('Adress: '); readln(adress);
       writeln;
    end;
   write(f, b);
end;



procedure Print(var b : TBase; var f : TFile; var k : integer);
var
   i : byte;
begin
   read(f, b);
   writeln('Infromation about mans : ');
   for i := 1 to k do
    with b[i] do begin
       writeln('Name : ' , name);
       writeln('Born day: ' , bornday , '; Born month: ' , bornmonth , 'Born year: ' , bornyear);
       writeln('Adress: ' , adress);
       writeln;
    end;
end;





var
   base     : TBase;
   baseFile : TFile;
   birthYr  : integer;
   temp     : integer;
   k        : integer;
   
   
   
begin
 CLRSCR;
 temp := -1;
 assign(baseFile, 'c:\students.db');  
 
while temp <> 0 do
 begin
 
  CLRSCR;
  write('1 - create database; 2 - mans which born after X year; 3 - prints database; 0 - exit ... ');
  readln(temp);
  
  
  if temp = 1 then
   begin
    rewrite(baseFile);
    Write('Enter count fo rows for file: '); Readln(k);
    Input(base, baseFile, k);
    writeLn('Press any key ...'); ReadKey;
    close(baseFile);
   end;
   
   
  if temp = 2 then
   begin
    reset(baseFile);
    write('Enter start birthyear: ');
    readln(birthYr);
    ShowInfo(base, baseFile, birthYr, k);
    close(baseFile);
   end;
   
   
  if temp = 3 then
   begin
    reset(baseFile);
    Print(base, baseFile, k);
    close(baseFile);
   end;
   
  
 end;
 
 writeln('Press any button for exit ...');
 ReadKey
end.

[мисс_граффити]

А зачем ты в файл пишешь массив, а не сами записи (рекорды)?

[iSlayter]

А зачем ты в файл пишешь массив, а не сами записи (рекорды)?

write(f,b[i]); в цикле? выдаёт ошибку

вообще вопрос не в этом - как записать информацию в конец файла?

то есть в файл как бы дописываются элементы, но при их выводе выводятся вместо текста - пустота, вместо цифр - нули.

program rec;
uses crt;
type
   TRec = record
      name       : string [31];
      result     : real;
      startnum   : integer;
   end;
   TBase = array [1..100] of TRec;
   TFile = file of TBase;




procedure Delete ( var b : TBase; var f : TFile; var k : integer)   ;
var
  i, g : byte;
  endv : integer;
begin
  read (f, b);
  endv := filesize(f)+1;
  For i := 1 to endv do if k = b[i].startnum then g := i;
  For i := g to (endv-1) do b[i] := b[i+1];
  endv  := endv-1;
  write(f, b);
  writeln('Sportsmen was successfully deleted.');
  write('Press any button for return to menu.');
  ReadKey;
end;




procedure Add (var b : TBase; var f : TFile; var k : integer);
var
  i, start, endv : byte;
  size           : longint;
begin
  read (f, b);
  size   := filesize(f);
  endv   := (size+k);
  close(f);
  rewrite(f);
  for i := 1 to endv do
    begin
    with b[i] do begin
     if i > size then begin
	  writeln('Chelovek N ' , i);
	  write('Name: '); readln(name);
	  write('Startnum: '); readln(startnum);
	  write('The result: '); readln(result);
     end;
    end;
	write(f, b);
    writeln;
    end;
   write('Press any button for return to menu.');
   ReadKey;
end;




procedure ShowInfo (var b : TBase; var f : TFile);
var
  i : byte;
  min, max   : real;
  mini, maxi : integer;
begin
   read(f, b);
   writeln('Infromation about mans : ');
   for i := 1 to (FileSize(f)+1) do
    with b[i] do begin
	maxi := 1;
	mini := 1;
	min  := 0;
	max  := 0;
	if min < result then
	 begin
	  min  := result;
	  mini := i;
	end;
	if max > result then
	 begin
	  max  := result;
	  maxi := i;
	end;
    end;
    if mini = maxi then
     begin
      writeln('oops! ' , b[mini].name , ' is first and last at the same time!');
     end
    else
     begin
      writeln('First is ' , b[mini].name , ' in time ' , b[mini].result:6:3 , '!');
      writeln('Last is ' , b[maxi].name , ' in time ' , b[maxi].result:6:3 , '!');
     end;
   write('Press any button for return to menu.');
   ReadKey;
end;




procedure Input(var b : TBase; var f : TFile; var k : integer);
var
   i : byte;
begin
  writeln('Creating database. ');writeln;writeln;
  writeln('If sportsmen does not take part in competitions write 0 in "Result" field.');
   for i := 1 to k do
    with b[i] do begin
       writeln('Man N ',i);
       write('Name: '); readln(name);
       write('Startnum: '); readln(startnum);
       write('The result: '); readln(result);
       writeln;
    end;
   write(f, b);
   write('Press any button for return to menu.');
   ReadKey;
end;




procedure Print(var b : TBase; var f : TFile);
var
   i : byte;
begin
   read(f, b);
   writeln('Infromation about mans : ');
   while NOT EOF(f) begin
    with b[i] do begin
       writeln('Name: ' , name);
       writeln('Startnum: ' , startnum , ';');
       writeln('Result: ' , result:6:3 , ';');
       writeln;
    end;
   write('Press any button for return to menu.');
   ReadKey;
end;





var
   base     : TBase;
   baseFile : TFile;
   birthYr  : integer;
   temp     : integer;
   k        : integer;
begin
 CLRSCR;
 temp := -1;
 assign(baseFile, 'c:\students.db');
while temp <> 0 do
 begin
  CLRSCR;
  writeln('1 - create database(rewrite file);');
  writeln('2 - first and last sportsmen;');
  writeln('3 - prints database;');
  writeln('4 - add information in database;');
  writeln('5 - edit info;');
  writeln('6 - delete information from DB;');
  writeln('0 - exit.');
  readln(temp);

  if temp = 1 then
   begin
    rewrite(baseFile);
    Write('Enter count of rows for file: '); Readln(k);
    Input(base, baseFile, k);
    close(baseFile);
   end;

  if temp = 2 then
   begin
    reset(baseFile);
    ShowInfo(base, baseFile);
    close(baseFile);
   end;

  if temp = 3 then
   begin
    reset(baseFile);
    Print(base, baseFile);
    close(baseFile);
   end;

   if temp = 4 then
    begin
     reset(baseFile);
     write('How many rows you want to add in database? '); readln(k);
     Add(base, baseFile, k);
     close(baseFile);
    end;

   if temp = 6 then
    begin
     reset(baseFile);
     write('Enter number of deleting sportsmen: '); readln(k);
     Delete(base, baseFile, k);
     close(baseFile);
    end;
 end;
 writeln('Press any button for exit ...');
 ReadKey
end.

Сообщение отредактировано: iSlayter - 5.05.2007 17:54