Скачать: CL | DM;

Это опять вопрос по Borland Pascal 7 (работа с записями)   Найти похожие ветки 

← →
Cuper   (2004-06-16 15:13) [0]

Добрый день!!!
Фрагмент кода:
type
 baza_d = record
   number_scheta    : integer;
   number_kartochki : integer;
   PIN              : integer;
   family           : string[15];
   name             : string[10];
   otchestvo        : string[15];
   summa            : integer;
 end;
var
 baza : baza_d;
 ff : file of baza_d;
begin
 assign (ff, "inf.dat");
 rewrite (ff);
   write ("‚Введите номер счета  -> ");
     readln (baza.number_scheta);
       write (ff, baza);
   write ("‚Введите номер карточки -> ");
     readln (baza.number_kartochki);
       write (ff, baza);
   write ("Введите PIN код -> ");
     readln (baza.PIN);
       write (ff, baza);
   write ("Введите фамилию -> ");
     readln (baza.family);
       write (ff, baza);
   write ("Введите имя -> ");
     readln (baza.name);
       write (ff, baza);
   write ("Введите отчество -> ");
     readln (baza.otchestvo);
       write (ff, baza);
   write ("Введите сумму денег на счет -> ");
     readln (baza.summa);
       write (ff, baza);
 close (ff);
end;
Подскажите пожалуйста почему файл после работы этого кода занимает почти 350 байт. Пишет какую то отсебятину туда.
Даже если вводить все 1, то все равно 346 занимает
Заранее благодарю за ответ.
                                     cuper

---

← →
Sandman25 ©   (2004-06-16 15:17) [1]

write ("‚Введите номер счета  -> ");
    readln (baza.number_scheta);
//       write (ff, baza);
  write ("‚Введите номер карточки -> ");
    readln (baza.number_kartochki);
//       write (ff, baza);
  write ("Введите PIN код -> ");
    readln (baza.PIN);
//       write (ff, baza);
  write ("Введите фамилию -> ");
    readln (baza.family);
//       write (ff, baza);
  write ("Введите имя -> ");
    readln (baza.name);
//       write (ff, baza);
  write ("Введите отчество -> ");
    readln (baza.otchestvo);
//       write (ff, baza);
  write ("Введите сумму денег на счет -> ");
    readln (baza.summa);
      write (ff, baza); // только 1 раз пишем, когда запись готова

---

← →
Cuper   (2004-06-16 15:22) [2]

Спасибо.
Благодарю.
Больше не буду беспокоить. Еще раз спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c