Составить программу определения списков. Записи. Работа с текстовыми файлами

@Nikushor · Регистрация: 02.05.2012

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

Тема: Записи. Работа с текстовыми файлами.
На олимпиаде по информатике на школьников заполнялись анкеты: фамилия, номер школы, класс, занятое место. Эта информация хранится в текстовом файле. Составить программу определения списков учеников, занявших первое место, с указанием их класса.

@BumerangSP · 17.05.2012, 18:38

Pascal

uses crt;
type klass = record
   fam: string;
   num,kl,pl:integer;
  end;
var olim: klass;
    i,j,k: integer;
    s: string;
    f: text;
begin
 clrscr;
 assign(f,'text.txt');
 reset(f);
 while not eof(f) do
  begin
   write('Фамилия: ');
   readln(f,olim.fam);
   writeln(olim.fam);
   write('Номер школы: ');
   readln(f,olim.num);
   writeln(olim.num);
   write('Класс: ');
   readln(f,olim.kl);
   writeln(olim.kl);
   write('Место: ');
   readln(f,olim.pl);
   writeln(olim.pl);
   writeln;
  end;
  reset(f);
  writeln('Из них первое место заняли:');
  while not eof(f) do
  begin 
   readln(f,olim.fam);
   readln(f,olim.num); 
   readln(f,olim.kl);
   readln(f,olim.pl);  
   if olim.pl=1 then
    writeln(olim.fam,', школа #',olim.kl);
  end;
 readln;
 close(f);
end.

Текстовый файл лежит в папке с исходником. Записи в нем располагаются в порядке как в задании. Для каждого пункта отдельная строка.

@Nikushor · 17.05.2012, 19:24 **[ТС]**

большое спасибо

@Nikushor 2 / 2 / 1 Регистрация: 02.05.2012 Сообщений: 59
		1
	Составить программу определения списков. Записи. Работа с текстовыми файлами 17.05.2012, 15:39. Показов 1027. Ответов 2 Метки нет (Все метки) Тема: Записи. Работа с текстовыми файлами. На олимпиаде по информатике на школьников заполнялись анкеты: фамилия, номер школы, класс, занятое место. Эта информация хранится в текстовом файле. Составить программу определения списков учеников, занявших первое место, с указанием их класса. 0

@Nikushor 2 / 2 / 1 Регистрация: 02.05.2012 Сообщений: 59
	17.05.2012, 19:24 [ТС]	3
	большое спасибо 0

Составить программу определения списков. Записи. Работа с текстовыми файлами

Решение