Уважаемые эксперты,прошу помочь решить задачку,на текстовые файлы.
Дан текстовый файл(уже создан) в котором хранитится информация(фио учителей,предмет,кол-во часов,стаж работы)
program teachers;
uses crt;
var
tf:Text;
s:string;
no:integer;
f,i,o,topic,hours,stag:string;
begin
Assign(tf,'E:\1.txt');
Reset(tf);
Clrscr;
while not eof(tf) do
begin
Readln(tf,s);
no:=Pos(' ',s);
f:=Copy(s,1,no-1);
Delete(s,1,no);
no:=Pos(' ',s);
i:=Copy(s,1,no-1);
Delete(s,1,no);
no:=Pos(' ',s);
o:=Copy(s,1,no-1);
Delete(s,1,no);
no:=Pos(' ',s);
topic:=Copy(s,1,no-1);
Delete(s,1,no);
no:=Pos(' ',s);
hours:=Copy(s,1,no-1);
Delete(s,1,no);
stag:=s;
if (topic='mathematics') or (topic='informatics') then
begin
Writeln(f,' ',i,' ',o);
Writeln('stag=',stag, ' hours=',hours);
end;
end;
Close(tf);
Readln;
end.
это типизированный файл
Иванов Дмитрий Петрович,математика,68,3
Петрова Мария Сидоровна,физика,44,5
...
А вдруг это действительно текстовый файл?
Извиняюсь что не уточнил,пример который написал Alex1,будет верный.
А вдруг это действительно текстовый файл?
Извиняюсь что не уточнил,пример который написал Alex1,будет верный.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.