Собрать в файле g сведения о лучших учениках школы

[shkolnik]

Собрать в файле g сведения о лучших учениках школы

Дан файл f, содержащий сведения об учениках. Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится и отметки полученные учеником в последней четверти. Собрать в файле g сведения о лучших учениках школы, т.е. об учениках, не имеющих отметок ниже 4 и по сумме баллов не уступающих другим ученикам своего и параллельных классов.

 

[Vladimir_S]

Ответ традиционный: тыц!

 

[shkolnik]

Попробовал сделать по шаблону, но не знаю как сделать вывод нескольких учеников и как вывести сумму баллов

 

[Vladimir_S]

Попробовал сделать по шаблону, но не знаю как сделать вывод нескольких учеников и как вывести сумму баллов

Выкладывайте свои наработки - посмотрим. И ОБЯЗАТЕЛЬНО входной файл f, можно в текстовом виде.

 

[shkolnik]

Наверно самый идиотский набросок, ну как то так
var f: text;
Lastname: string;
Name: string;
Klass: string;
Mark:integer;
n,i,k: integer;

begin
assign(f,filename);
reset(f);

writeln('Ученик:');
k := 0;
readln(f,n);
for i := 1 to n do
begin
readln(Lastname);
readln(Name);
readln(Klass);
readln(Mark);
if (Mark > 4) then {}
begin
if Mark = then

close(f);
readkey;
end.

 

[Vladimir_S]

Нет-нет, такие задачи решаются через тип "запись" ("record") и организацию массива записей. Кроме того, я просил Вас показать, как Вы представляете себе вид исходного файла. Чтобы было видно где, что и в каком порядке расположено.

Кроме того, если Вы используете команду Readkey, то будьте любезны поставить в начале uses CRT; , потому что это команда модуля CRT.

 

[shkolnik]

Вот есть еще такой
const
N=4;
var
Student:Array[1..N] of Record
Lastname:string;
Name:string;
Klass:Word;
Mark:Word;
end;
i,i0:integer;
Rate:integer;
Begin
Rate:=4;
For i:=1 to N do
With Student do
begin
Writeln(i,' Ученик');
Write('Фамилия: ');
Readln(Lastname);
Write('Имя: ');
Readln(Name) ;
Write('Класс: ');
Readln(Klass);
Write('Оценка: ');
Readln(Mark);
Writeln;
If Mark>Rate then
begin
i0:=i;
Rate:=Mark;
end;
end;
Writeln('Лучшиие ученики:');
With Student[i0] do
begin
Writeln('Name: ',Name);
Writeln('Lastname: ',Lastname);
Writeln('Klass: ',Klass);
Writeln('Mark: ',Mark);
end;
readln;
End.

это опираясь на тему в первом сообщении

 

[Vladimir_S]

Вот есть еще такой

Уже лучше. Правда, обычно в таких случаях тип вводят отдельно, т.е. так:

Type 
 Stud=Record
       Lastname:string;
       Name:string;
       Klass:Word;
       Mark:Word;
      end;
Var
 Student:Array[1..N] of Stud;

И в третий (и последний) раз повторяю: покажите пример исходного файла! Т.е. список, содержащий фамилии учеников, класс и оценки.
Тогда можно будет продолжить. Но только завтра. А если указанный перечень так и не появится, то - извините, ничем не могу помочь.

 

[shkolnik]

1 Ученик
Фамилия: Иванов
Имя: Иван
Класс: 5А
Оценка: 5

2 Ученик
Фамилия: Петров
Имя: Петр
Класс: 9В
Оценка: 4

3 Ученик
Фамилия: Соколов
Имя: Алексей
Класс: 6А
Оценка: 3

4 Ученик
Фамилия: Козлов
Имя: Олег
Класс: 5А
Оценка: 5
Единственное ни как не могу сообразить, как сделать несколько оценок (которые получены за четверть)

 

[Vladimir_S]

Сразу скажу: с таким файлом работать ОЧЕНЬ трудно. Предлагаю такой вариант:

Иванов
Иван
5А
5 4 3 4 3 5

Петров
Петр
9В
4 4 3 4 3 3

и т.д.



Количество оценок целесообразно задать в виде константы (напр. Nm = 6). Как их считать - поясню. Но не сегодня.

 

[Vladimir_S]

Хорошо, повожусь я с Вашей задачкой, только вот обнаружил, что вот этого:

и по сумме баллов не уступающих другим ученикам своего и параллельных классов.

напрочь не понимаю! Каким "другим ученикам"? Всем? Или имеется в виду выше средней суммы? Допустим, нашли мы ученика с максимальной суммой баллов, например, круглого отличника. Тогда все "хорошисты", естественно, будут ему уступать. Как быть?

 

[Vladimir_S]

Так, ну поскольку разъяснений по поводу вышеуказанного мутного условия не последовало, ограничимся пока частью задачи:

Дан файл f, содержащий сведения об учениках. Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится и отметки полученные учеником в последней четверти. Собрать в файле g сведения о лучших учениках школы, т.е. об учениках, не имеющих отметок ниже 4

Const
 Nm=6;

Type
 Pup=Record
      Surname, Name, Class:String;
      Ball:Array[1..Nm] of Byte;
     end;

Var
 f,g:Text;
 Pupil:Array[1..100] of Pup;
 i,j,N:byte;
 b:boolean;

Begin
 Assign(f,'D:\Data.txt');
 Reset(f);
 N:=0;
 Repeat
  Inc(N);
  with Pupil[N] do
   begin
    Readln(f,Surname);
    Readln(f,Name);
    Readln(f,Class);
    for j:=1 to Nm do read(f,Ball[j]);
    Readln(f);
   end;
  if not EoF(f) then readln(f);
 Until EoF(f);
 Close(f);
 Writeln('Full list of pupils:');
 for i:=1 to N do
  with Pupil[i] do
   begin
    write(Surname:15,Name:10,Class:4);
    for j:=1 to Nm do write(Ball[j]:4);
    writeln;
   end;
 writeln;
 Assign(g,'D:\Result.txt');
 Rewrite(g);
 Writeln('List of pupils having no marks less then 4:');
 for i:=1 to N do
  with Pupil[i] do
   begin
    b:=true;
    for j:=1 to Nm do
     if Ball[j]<4 then b:=false;
    if b then
     begin
      writeln(g,Surname);
      writeln(g,Name);
      writeln(g,Class);
      for j:=1 to Nm do write(g,Ball[j],' ');
      writeln(g);
      writeln(g);
      write(Surname:15,Name:10,Class:4);
      for j:=1 to 6 do write(Ball[j]:4);
      writeln;
     end;
   end;
 Close(g);
 Readln
End.

К сожалению, с использованием кириллицы у меня некие сложности, связанные с кодировкой, поэтому использована латиница (англ. яз.). Поправьте, если надо. Кроме того, имена файлов и пути к ним тоже можете поставить свои.

 

[shkolnik]

про условие вы правы, скорее всего нужно просто найти круглого отличника. Спасибо большое вам за помощь!