Записи и Файлы

@ostromir · Регистрация: 26.11.2010

Author24 — интернет-сервис помощи студентам

в файле input.txt дана строчка "35 M classicism skiing" (без кавычек) (+там несколько строк такого типа)
есть так же свой тип, где описан рост, пол, направление музыки, вид спорта.
надо, чтоб было
рост=35
пол=М
направление музыки=classicism
вид спорта=skiing

Pascal

type anketa=record
 
      rise:integer;     //Рост
      floor:string[2];   //Пол
      music:string[20];   //Направление музыки
      sport:string[22];  //Вид спорта
     end;
 
var
  f:textfile;
  i,k,j,m:integer;
  student:array of anketa;
  s:string;
begin
   AssignFile(f,'input.txt');
   reset(f);
   readln(f,k);
   setlength(student,k);
   for i:=0 to k-1 do
      begin
        with student[i] do
          begin
            read(f,student[i].rise);
            read(f,student[i].floor);
            read(f,student[i].music);
            readln(f,student[i].sport);
          end;
      end;
   for i:=0 to k-1 do
      begin
        writeln('Student: ',i);
        writeln(student[i].rise);
        writeln(student[i].floor);
        writeln(student[i].music);
        writeln(student[i].sport);
      end;
   readln;
  closefile(f);
 
end.

@Puporev · 03.04.2012, 10:59

Delphi

Assignfile(f,'input.txt');
   reset(f);
   readln(f,k);
   setlength(student,k);
   for i:=0 to k-1 do
    begin
     readln(f,s);
     with student[i] do
      begin
       rise:=StrToInt(copy(s,1,pos(' ',s)-1));//первое слово
       delete(s,1,pos(' ',s)); //удаляем с пробелом
       floor:=s[1];//символ пола
       delete(s,2); //удаляем с пробелом
       music:=copy(s,1,pos(' ',s)-1); //третье слово
       delete(s,1,pos(' ',s)); //удаляем с пробелом
       sport:=s;//четвертое слово=остаток строки
      end;
    end;

	03.04.2012, 10:59