Входной файл

@Ruzel · Регистрация: 14.11.2010

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

На вход программе подаются сведения о сдаче экзаменов учениками 11-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат:
<Фамилия> <Имя> <оценки>,
где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из 15 символов, <оценки> – через пробел три целых числа, соответствующие оценкам по пятибалльной системе. <Фамилия> и <Имя>, а также <Имя> и <оценки> разделены одним пробелом.

Пример входной файла:

5 {Кол-во учеников}
Иванов Петр 4 5 3
Андреев Сергей 5 1 4
Бил Гейтс 5 5 5
Стив Балмер 5 4 5
Стивен Хокинг 5 5 5

Требуется написать как можно более эффективную программу, которая будет выводить на экран фамилии и имена трех худших по среднему баллу учеников. Если среди остальных есть ученики, набравшие тот же средний балл, что и один из трех худших, то следует вывести и их фамилии и имена.

P.S. В интернет много решении, но они все без работы с файлами, надо полноценную программу которая работает с файлами.

Добавлено через 3 минуты
В вашем форуме не нашел ответа на свой вопросы о том как реализовать программу... так что оброщаюсь к вам

@Ruzel · 19.11.2010, 22:23 **[ТС]**

Pascal

var p:array[1..100] of record
      fam:string;
      name:string;
      sum:integer;
    
      end;
    c:char;
    i,j,N,s1,s2,s3,m:integer;
 
begin
 
  Assign (Input,'a.txt');
  reset(Input);
  Assign(OutPut,'b.txt');
  rewrite(OutPut);
   readln(N);
  for i:=1 to N do
    
    begin
     
     p[i].fam:='';
       repeat
          read(c);
          p[i].fam:=p[i].fam+c
       until c=' '; {считана фамилия}
       
     p[i].name:='';
       repeat
          read(c);
          p[i].name:=p[i].name+c
       until c=' '; {считано имя}
   
     p[i].sum:=0;   
     for j:=1 to 3 do
        begin
         read(m);
         p[i].sum:=p[i].sum+m
        end; {подсчитана сумма баллов}
     readln;
    end;
 
  s1:=0; s2:=0; s3:=0;
  
  for i:=1 to N do
  
  begin
      
     if p[i].sum>s1 then
        begin
          s3:=s2; s2:=s1;
          s1:=p[i].sum
        end else
     
     if p[i].sum>s2 then
        begin
          s3:=s2; s2:=p[i].sum
        end else
      
     if p[i].sum>s3 then s3:=p[i].sum;
   end;
  
    for i:=1 to N do
    if p[i].sum>=s3 then  writeln(p[i].name);
    
    Close(OutPut);
end.

@Ruzel 0 / 0 / 1 Регистрация: 14.11.2010 Сообщений: 4
		1
	Входной файл 15.11.2010, 18:07. Показов 4760. Ответов 1 Метки нет (Все метки) На вход программе подаются сведения о сдаче экзаменов учениками 11-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <оценки>, где <Фамилия> – строка, состоящая не более чем из 20 символов, <Имя> – строка, состоящая не более чем из 15 символов, <оценки> – через пробел три целых числа, соответствующие оценкам по пятибалльной системе. <Фамилия> и <Имя>, а также <Имя> и <оценки> разделены одним пробелом. Пример входной файла: 5 {Кол-во учеников} Иванов Петр 4 5 3 Андреев Сергей 5 1 4 Бил Гейтс 5 5 5 Стив Балмер 5 4 5 Стивен Хокинг 5 5 5 Требуется написать как можно более эффективную программу, которая будет выводить на экран фамилии и имена трех худших по среднему баллу учеников. Если среди остальных есть ученики, набравшие тот же средний балл, что и один из трех худших, то следует вывести и их фамилии и имена. P.S. В интернет много решении, но они все без работы с файлами, надо полноценную программу которая работает с файлами. Добавлено через 3 минуты В вашем форуме не нашел ответа на свой вопросы о том как реализовать программу... так что оброщаюсь к вам 0

	19.11.2010, 22:23

Входной файл

Решение