Напишите программу организующую хранение в файле нескольких записей (до 10) о результатах экзамена. - id279425620200825 от dominikakrestina 25.08.2020 04:36

Question

Информатика: Напишите программу организующую хранение в файле нескольких записей (до 10) о результатах экзамена. каждая запись содержит 3 поля: номер записи, фамилия, оценка. организуйте вывод всей информации по форме: { 1 иванов 3 }

dominikakrestina · Accepted Answer

Program textFind; uses StrUtils; var text,buffer : String; var tpos,lastpos,counter,biggest : Integer; begin   tpos := 0;   text := ;   while(tpos = 0) do begin     readln(buffer);     text += buffer;     tpos := pos( . ,buffer)   end;   lastpos := 1;   tpos := PosEx( ,text,lastpos);   if tpos = 0 then      tpos := PosEx( . ,text,lastpos);   biggest := tpos-1;  lastpos := tpos+1;   while(not (tpos = 0)) do begin     tpos := PosEx( ,text,lastpos);     if tpos = 0 then         tpos := PosEx( . ,text,lastpos);...

MOGZ ответил