type Person = record Name : string [10]; age : 1..200 end; List = file of person; Процедура Youngest(var spisok : list) Вашей программы печатает Name для всех людей файла spisok , возраст которых равен минимальному. Перед списком печатается этот возраст.
=>Не подскажите, как создать и забить запись в файл. Создать то я понял как, а с файлом не очень...
=> И как потом считать эту запись с файла на проверку возраста?
Ozzя предельно немногословен..
type
tAge=1..200;
tPerson=record
Name: string[10];
Age: tAge;
end;
var
q: tPerson;
f: file of tPerson;
...
Assign(f,'spisok');
ReWrite(f);
...
write(f,q);
...
Close(f);
...
ReSet(f);
MinAge:=High(tAge);
while not EoF(f) do begin
Read(f,q);
if q.Age<MinAge then MinAge:=q.Age;
end
ReSet(f);
WriteLn(MinAge);
while not EoF(f) do begin
Read(f,q);
if q.Age=MinAge then WriteLn(q.Name);
end
...
спасибо, разобрался
А можно с текстового файла в котром имена и даті, взять человека которій имеет определённую дату? тоисть надо взять даті и с ними работать. тхт файл уже есть. интересуєт возожно ли такое.
вот типа написал, но что-то не то...
uses crt;
const n=10;
type stud=record
soname:string[15];
year,month:integer
end;
var F:text; St: string[35];
c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do begin
readln(F, c.soname);
writeln(c.soname);
end;
readln(F);
while not eof(f) do
with c do
begin
readln(f, c.month);
if c.month=3 then
writeln(c.soname:10, c.year:6);
end;
writeln;
writeln('vivod s faila okon4en. to exit pres - Enter.');
readln;
end.
в задании про файл больше ничего не сказано, но я его делал так
вобщем интересует часть віделенная жирнім. Пишет "Неверный числовой формат" не пойму почему...
while not eof(F) do with c do begin
readln(F, soname, year, month);
writeln(soname);
end;
while not eof(F) do with c do begin
readln(F, soname, year, month);
if month=3 then writeln('Found: ', soname:10, year:6);
end;
М | Для программ используй теги CODE, а не цитаты. |
YAHOOO !!!!! Всё заработало!!! Спасиба что показали мне мои ошибки.
type stud=record
surname:string[15];
year,month,day:integer;
x:string
end;
var F:text;
c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do with c do begin
readln(F, surname, year, month, day, x);
writeln(surname, x);
end;
close(f);
ReadLn(F, surname);
ReadLn(F, year, month, day, x);
Иванов
1234 5 25 дворник
Петрова Дуня
2345 6 31 неплохо поет и танцует
я в файле данніьх пробовал каждую переменную с новой строчки писать, и не получалось. Ладно, сейчас буду пробовать как тіь написал. Спасибо за подсказку.
М | Лень загружаться или пароль забыл? Если не создает угрозу личной безопасности, то лучше все же заходить по-человечески. Уважай тех, кто с тобой говорит. Lapp |
Я всё понял. Всё получаеться теперь))) Ещё раз спасибо)
Лень біьло регестрироваться. Вот, я здесь теперь. Совисть заиграла.