IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Решение примера, Вывод записи в файл
amir
сообщение 17.04.2004 12:52
Сообщение #1


Гость






Может я чего то непонимаю я только начал заниматься програмированием. Вопрос такой: Нужно создать запись и занести её в файл. Запись создал, но при записи в файл у меня за место цифр пишется неизвестно что. Вот исходник.
Код

program zap1;
type
  Fio=record                 {Вложенная запись}
  fm,im,ot:string[20];
end;
type                  
 Address=record         {Вложенная запись}
 PostCode:string[20];{pochtov kod}
 City,Street: string[20];
 House:string[20];
 Apartament:string[20];
end;
type
dat=record                  {Вложенная запись}
day:1..31;
mongt:1..12;
year:1900..2050;
end;
type                              {Запись с анкетными данными}
anket=record
id: string[20];
vozr: integer;
obroz: string[30];
iniz: fio;
pol: string[20];
BirthDate: dat;
PostDate: dat;
MestoZhit:address;
kurs:1..6;
Special: string[30];
end;
var
 f: file of anket;
 dan:anket;
 a,b,c,d:string;
 i,j:word;
begin
with dan do
 begin
  writeln ('Lichn_cod',' '); readln (id);
  write ('vozrast na moment postuplenia',' '); readln (vozr);
  write ('obrozovanie',' '); readln (obroz);
  write ('famil',' '); readln (iniz.fm);
  write ('imia',' '); readln (iniz.im);
  write ('otchestvo',' '); readln (iniz.ot);
  write ('pol',' '); readln (pol);
  writeln ('data pozhdenia');
with BirthDate do
 begin
  write('den',' '); readln (day);
  write('mesiac',' '); readln (mongt);
  write('god',' '); readln (year);
end;
writeln('data postupl');
with PostDate do
 begin
  write('den',' '); readln (day);
  write('mesiac',' '); readln (mongt);
  write('god',' '); readln (year);
end;
with MestoZhit do
 begin
  write ('pochtov kod',' '); readln(PostCode);
  write ('ulica',' ');readln (Street);
  write ('gorod',' ');readln (City);
  write ('dom',' ');readln(House);
  write ('kvartira',' ');readln(Apartament);
 end;
write ('kurs',' ' ); readln(kurs);
write ('Specialnost',' '); readln(Special);
end;
assign (f,'c:\anketa.txt');
rewrite (f);
Write(f,dan);
close(f);
end.



P.S.
А кто будет исходник в тег code заключать????
см. ПРАВИЛА СТАТЬЯ 2 ПУНКТ 2.
В следующий раз исправлять не буду!

Сообщение отредактировано: Oleg_Z - 18.04.2004 10:42
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 24.07.2025 0:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"