Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
ВнизЭто опять вопрос по 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c