1 Востаннє редагувалося Santos.Pointa (25.11.2014 20:12:11)

Тема: Масиви запису

type String15=string[15];
     Student=record
     SurName:String15;
     Name:String15;
     FatherName:String15;
     end;
     Group=array [1..3] of Student;
var f:text;
    s:string;
    i:integer;
    name:string15;
    Group1:Group;

begin
Assign(f,'example.txt');
Reset(f);
i:=0;
while not eof(f) do
 begin
 readln(f,s);
 s:=s+' ';
 i:=i+1;
 Group1[i].surname:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 Group1[i].name:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 Group1[i].fathername:=copy(s,pos(' ',s),1);
 Delete(s,pos(' ',s),1);
 end;
Close(f);
for i:=1 to 3 do writeln(Group1[i].name);
end.

У файлі міститься 3 рядки зі змістом Прізвище Ім'я По батькові. Програма має все считати і вивести мені. Чомусь не працює, у чому проблема?

2

Re: Масиви запису

Почитайте про функцію Copy: http://pascal.org.ua/structure-types З Delete аналогічно.