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