работа с типизированным файлом

[Alena_897]

есть такая программа:

program primer;
uses crt;
 type avto=record
    obem:real;
    marka,cvet,typ: string; 
    god,probeg: integer;
 end;
 var
    spisok: file  of avto; {fail dlya zapisi avto}
    mash:avto;
    fname:string[12];
    procedure vvoddan(num:integer);
 begin
 { }
      with mash do
 begin
    {posledovatelno vvodim kazhduyu zapis}
       writeln ('vvedite svedeniya o ', num , '-om avtomobile:  ');
       writeln ('vvedite marku avto:'); 
       readln (marka);
       writeln ('vvedite cvet kuzova:');
       readln (cvet);
       writeln ('vvedite god vypuska avto:');
       readln(god);
       writeln ('vvedite typ kuzova:');
       readln(typ);
       writeln ('vvedite obem dvigatelya:');
        readln (obem);
	writeln ('vvedite probeg:');
       readln (probeg);
       write(spisok,mash);
    end;
    end;
 procedure filevvod;
 var
    n,count:integer;
 begin
      write('vvedite imya faila dannyh:  ');
      readln(fname);
      assign(spisok,fname);
      rewrite(spisok);
      write('vvedite kolichestvo avtomobilei:  ');
      readln(count);
      for n:=1 to count do
          vvoddan(n);
          close(spisok);
          readln;
 end;
 begin
 clrscr;
 filevvod;
 readln;
 end.

    end.

все вводится, все записывается... но вот только в файл цифры не записываются, только символы. среда turbo pascal. сохраняю в файл с расширение *.pas. подскажите, в чем проблемы?

[Hacker19_90]

Если можно то конкретней!
А так, то так как у вас файл типизированный в него не пишутся цифры или символы, в него записываются байты информации! Поэтому при открытии такого файла каким нибудь notepad вы и видите символы, тк он автоматически переводит всё в символьный вид! Как-то так.

[Alena_897]

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

[ViktorR]

Так и должно быть.
Если файл текстовый, то при записи в него данных происходит преобразование чисел в их символьное представление, ну а символы передаются как есть.
Если файл типизированный, то данные пишутся в том виде, в котором они хранятся в памяти, без преобразования.
А там символы хранятся как символы, каждый байт строки - это код символа, а числа - как двоичное число.

[Alena_897]

аааа.

program primer;
uses crt;
    
var
kod:integer;


 type avto=record
    obem:real;
    marka,cvet,typ: string; 
    god,probeg: integer;
 end;
 var
    spisok: file  of avto; {fail dlya zapisi avto}
    mash:avto;
    fname:string[12];
 
 procedure filevvod;
 begin
      write('vvedite imya faila dannyh:  ');
      readln(fname);
      assign(spisok,fname);
      rewrite(spisok);
      close(spisok);

end;
 procedure oldfile;
 begin
      write('vvedite imya suschestvuyuschego faila:');
      readln(fname);
      assign(spisok,fname);
      reset(spisok);
      close(spisok);
 end;

    procedure vvoddan;
      var n,count:integer;
 begin

      with mash do
 begin
    {posledovatelno vvodim kazhduyu zapis}
       write('vvedite kolichestvo avtomobilei:  ');
       readln(count);
        for n:=1 to count do
        writeln ('vvedite svedeniya o ', n , '-om avtomobile:  ');
       writeln ('vvedite marku avto:');
       readln (marka);
       writeln ('vvedite cvet kuzova:');
       readln (cvet);
       writeln ('vvedite god vypuska avto:');
       readln(god);
       writeln ('vvedite typ kuzova:');
       readln(typ);
       writeln ('vvedite obem dvigatelya:');
        readln (obem);
	writeln ('vvedite probeg:');
       readln (probeg);
       write(spisok,mash);
    end;
    end;
    
     begin
        while kod<>0 do 
         readln;
         writeln('1 - sozdanie novoi BD');
         writeln('2 - vvod svedeniy ob avtomobilyah');
         writeln('3 - vvod novoi zapisi');
         writeln('4 - izmenenie opredelennoi zapisi');
         writeln('5 - ydalenie opredelennoi zapisi');
         writeln('6 - poisk zapisei');
         writeln('7 - sortirovka');
         writeln('8 - prosmotr BD');
         writeln('9 - exit');
         readln(kod);
        
     case  kod  of
         
         1: filevvod;
         2: vvoddan;

         9: exit;
        else writeln('nepravilinyy vvod!!!');
    
 end;
 begin
 clrscr;
{ filevvod;}
 readln;

     end;
    end.

вот это данный этам моей горе-проги. вот тот цикл выделенный я сделала (while kod<>0 do), чтобы после выбора опредеоленного пункта , все меню оставалось в консоли, а не сразу чтобы окно закрывалось. так вот вопрос. почему нифига не получается? может я не так его как-то записала?

[Serge_Bliznykov]

1) что Вы этим самым while kod<>0 do пытаетесь добиться?!

2) абсолютно не понял, зачем это Вам, но, раз уж хотите зациклить - так задайте вначале значение kod не равное нулю.


мне кажется, что Вы пытаетесь соорудить что-то наподобии такого:

program primer;
uses crt;

var
  kod: integer;


type avto = record
    obem: real;
    marka, cvet, typ: string;
    god, probeg: integer;
  end;

var
  spisok: file of avto; {fail dlya zapisi avto}
  mash: avto;
  fname: string[12];

procedure filevvod;
begin
  write('vvedite imya faila dannyh:  ');
  readln(fname);
{$I-}
  assign(spisok, fname);
  rewrite(spisok);
{$I+}
end;

procedure oldfile;
begin
  write('vvedite imya suschestvuyuschego faila:');
  readln(fname);
{$I-}
  assign(spisok, fname);
  reset(spisok);
{$I+}
end;

procedure VvodOne;
begin
  with mash do begin
    writeln('vvedite marku avto:');
    readln(marka);
    writeln('vvedite cvet kuzova:');
    readln(cvet);
    writeln('vvedite god vypuska avto:');
    readln(god);
    writeln('vvedite typ kuzova:');
    readln(typ);
    writeln('vvedite obem dvigatelya:');
    readln(obem);
    writeln('vvedite probeg:');
    readln(probeg);
    write(spisok, mash);
  end;
end;

procedure DobavitZapis;
begin
{$I-}
  seek(spisok, FileSize(spisok));
{$I+}
  if IOResult <> 0 then begin
    WriteLn;
    WriteLn('Oshibka vvoda/vyvoda: fail BD doljen byt` otkryt.');
    WriteLn;
    WriteLn('Dly prodoljenia raboty s programmoi najmite ENTER');
    Readln;
    Exit;
  end;

  vvodOne;
  WriteLn('Dly prodoljenia raboty s programmoi najmite ENTER');
  Readln;
end;


procedure vvoddan(pKod: integer);
var n, count: integer;
begin

  if pKod = 1 then filevvod
  else oldfile;

  if IOResult <> 0 then begin
    WriteLn;
    WriteLn('Oshibka vvoda/vyvoda: libo nedopustiomoe imay, libo faila net.');
    WriteLn;
    WriteLn('Dly prodoljenia raboty s programmoi najmite ENTER');
    Readln;
    Exit;
  end;

    {posledovatelno vvodim kazhduyu zapis}
  write('vvedite kolichestvo avtomobilei:  ');
  readln(count);
  for n := 1 to count do begin
    writeln('vvedite svedeniya o ', n, '-om avtomobile:  ');
    VvodOne
  end;

  WriteLn;
  WriteLn('Dly prodoljenia raboty s programmoi najmite ENTER');
  Readln;

end;

begin
  repeat
    clrscr;
    writeln('1 - sozdanie novoi BD i vvdo svedeniy ob avtomobilyah');
    writeln('2 - dobavlenie svedeniy ob avtomobilyah v suschestvuyuschuiy BD');
    writeln('3 - vvod novoi zapisi v tekushuiy BD');
    writeln('4 - izmenenie opredelennoi zapisi');
    writeln('5 - ydalenie opredelennoi zapisi');
    writeln('6 - poisk zapisei');
    writeln('7 - sortirovka');
    writeln('8 - prosmotr BD');
    writeln('9 - exit');

    readln(kod);

    case kod of

      1, 2: vvoddan(Kod);
      3: DobavitZapis;
      9: begin {ничего не делаем - выход из цикла} end;

    else writeln('nepravilinyy vvod!!!');
    end;
  until kod = 9;

  WriteLn('Dly zavershenia raboty s programmoi najmite ENTER');
  readln;

end.

[Alena_897]

огромное спасибо! очень помог.
я понимаю, что это уже сверхнаглость, но мне очень нужно, чтобы сначала информация выводилась на экран (процедуры vvoddan и vvodOne), а потом вопрос: сохранить ли в файл(1-да, 2-нет). че-т вообще не получается(((