Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составить программу которая организует вввод в массив записей следующих данных об учащихся: имя, фамилия, возраст, школа, класс из файла INPUT.DAT (не больше 10 человек)

Ответ оставил Гость

Type
  sc=record
    name:string;
    fam:string;
    age:byte;
    school:integer;
    clas:string
  end;
var
  i,n:integer;
  a:array[1..10] of sc;
  f:Text;
begin
  Writeln(Читаем данные из файла input.txt);
  Assign(f,input.txt); Reset(f);
  n:=0;
  while (not Eof(f)) and (n<10) do begin
    Inc(n);
    Readln(f,a[n].fam); Readln(f,a[n].name);
    Readln(f,a[n].age); Readln(f,a[n].school);
    Readln(f,a[n].clas)
  end;
  Close(f);
  Writeln(Принято записей: ,n);
  Writeln(Контрольный вывод);
  for i:=1 to n do
  begin
    Writeln(Школьник ,i,:);
    Write(a[i].name, ,a[i].fam,, );
    Write(a[i].age, лет, школа №,a[i].school);
    Writeln(, класс ,a[i].clas)
  end
end.

Тестовое решение:
Читаем данные из файла input.txt
Принято записей: 3
Контрольный вывод
Школьник 1:
Иванов Иван, 14 лет, школа №126, класс 7б
Школьник 2:
Петров Петр, 13 лет, школа №18, класс 6а
Школьник 3:
Семенова Валентина, 15 лет, школа №52, класс 8г

Файл input.txt для тестового решения находится во вложении.