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

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

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

 
 Ответить  Открыть новую тему 
> запись,чтение с файла
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


есть 2 проги 1 записывает в файл 2-я читает
1 вроде пашет...


uses crt;
const
n = 7;
type

TRec = record
pyhkt,tip:string [31];
nomer:integer; {o4enka}
end;

TBase = array [1..n] of TRec; {6a3a dannix}

TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
clrscr;
assign(f,'TEST.txt');
rewrite(f); {otkriv fail dlja zapisi}
writeln('BBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
write('Homep PeuCa : '); readln(nomer);
write('Tu/7 CaMoJIeTa : '); readln(tip);
end;
writeln;
write(f, b); {3apis 6azzi v fail}
end.


а вот 2-я читать нехочет немогу понять почему
program AEROFLOT;

uses crt;
const
n = 7;
type

TRec = record
pyhkt,tip:string [31];
nomer:integer;
end;

TBase = array [1..n] of TRec; {6a3a dannix}

TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
clrscr;
assign(f,'TEST.txt');
reset(f); {otkrit fail dlja zapisi}
writeln('BBbIBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
writeln('/7yHkT : ',i);
writeln('Tu/7 : ',i);
writeln('Homep PeuCa : ',i);
writeln;
end;
writeln;
close(f);
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 86
Пол: Мужской

Репутация: -  0  +


почитай тут для начала что ли.

Для начала ты не правильно заносишь в файл свою инфу. У тебя туда только последняя запись заносится из 7.

А там где выводишь на экран - так там вообще нету вывода


for i := 1 to n do
writeln('/7yHkT : ',i);
writeln('Tu/7 : ',i);
writeln('Homep PeuCa : ',i);
writeln;




это вообще не имеет отношения к файлу. Если ты хотела эти поля вывести, то тебе сперва надо читать запись из файла а потом выводить её поля...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата
У тебя туда только последняя запись заносится из 7.
Ты когда-нибудь начнешь внимательно читать предыдущие посты, или так и будешь в режиме Write-Only? mad.gif Где, спрашивается, ты увидел то, что я процитировал? Заполняется массив, и потом сразу ВЕСЬ пишется в файл... Это что, запрещено?

Xrymz, файл закрывать после записи в него не забывай... Иначе он может остаться пустым...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






volvo файл запалняеться причем весь...а вот читаться нехочет

for i := 1 to n do
writeln('/7yHkT : ',pyhkt);
writeln('Tu/7 : ',tip);
writeln('Homep PeuCa : ',nomer);
writeln;


ой.. я не то скопировал.. тут идет

 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


все уже сделал....

если кому надо то вот...
1-я запись в файл
program AEROFLOT;

uses crt;
const
n = 7;
type

TRec = record
pyhkt,tip:string [31]; {imja styd}
nomer:integer; {o4enka}
end;

TBase = array [1..n] of TRec; {6a3a dannix}

TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
clrscr;
assign(f,'TEST.txt');
rewrite(f); {otkriv fail dlja zapisi}
writeln('BBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
write('Homep PeuCa : '); readln(nomer);
write('Tu/7 CaMoJIeTa : '); readln(tip);
end;
writeln;
write(f, b); {3apis 6azzi v fail}
close(f);
end.


2-я чтение с файла
uses crt;
const
n = 5;
type

TRec = record
pyhkt,tip : string [31]; {imja styd}
nomer : integer; {o4enka}
end;

TBase = array [1..n] of TRec; {6a3a dannix}

TFile = file of TBase; {Fail}

procedure Print(var b : TBase; var f : TFile); {vvivod infi iz bazi}

var
i,j : byte;
tips:string;
begin
read(f, b); {4tenie iz faila}
write('BBeguTe Tu/7 CaMoJIeTa : ');
readln(tips);
for i := 1 to n do
with b[i] do begin
if tips=tip then begin
writeln('Ha3BaHuE /7yHKTa Ha3Ha4eHu9| PeuCa : ',pyhkt);
writeln('HoMeP PeuCa : ', nomer);
end;
end;
end;

var
base : TBase;
baseFile : TFile;

begin
clrscr;
assign(baseFile, 'TEST.txt');
reset(baseFile); {Otkrivaem fail glja 4tenija}
Print(base, baseFile); {Bbubog infi iz faila}
close(baseFile); {3akrit fail}
readln;
end.


Сообщение отредактировано: Xrymz -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 11.05.2021 20:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name