Задача строки

[Serge_Bliznykov]

Нужно из этого кода переделать под задачу с оценками

Оп-с.. а когда задача про товары в магазине вдруг превратилась в задачу про оценки?! я что-то пропустил?!

[netpolice]

Сообщение от Serge_Bliznykov

Оп-с.. а когда задача про товары в магазине вдруг превратилась в задачу про оценки?! я что-то пропустил?!

Ага я тоже с трудом понимаю товарища!!!

Так ладно, напишите нам Ваши новые переменные и типы по новому заданию,

[D1esel]

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

Список записывается в файл либо под старым, либо под новым именем.}

program store;
const Max_n = 100;
type
   str20 = string [20];
   goods = record
      name   : str20;
      price  : real;
      number : integer;
   end;
var stock     : array[1 .. Max_n] of goods;
    i, j, len : integer;
    name      : str20;
    found     : boolean;
    f         : text;
begin
   assign(f, 'stock.txt'); reset(f);
   i := 1;
   while not Eof(f) do begin
      with stock[i] do readln(f, name, price, number);
      inc(i);
      if i > Max_n then begin                             {1}
         writeln('Переполнение массива'); exit end;
      end;
      while true do begin                                    {2}
      writeln('Введите наименование'); Readln(name);
      len := length(name);
      if len = 0 then break;                                 {3}
      for j := len + 1 to 20 do name := name + ' ';          {4}
      found := false;
      for j := 1 to i - 1 do begin                           {5}
          if name <> stock[j].name then continue;
          with stock[j] do writeln (name:22, price:7:2, number:5);
          found := true;
          break;
      end;
      if not found then writeln ('Товар не найден');         {6}
      end;
end.

Текст и примерный код

[Mad_Cat]

а когда задача про товары в магазине вдруг превратилась в задачу про оценки

с поста #4 данного топика

[netpolice]

goods = record
name : str20;
price : real;
number : integer;

Я так понимаю это опять перепечатка старого, или у вас реально каждый студент имеет цену, ну я еще понимаю создать такой список по преподавателям , или я не совсем понимаю на кого вы учитесь...
Как бы не обвинили бы Вас в пропаганде педофилии, а то первокурсники не все 18 лет имеют

[Serge_Bliznykov]

Mad_Cat, спасибо.

D1esel, посмотрите для затравки вот в эту тему:
Запись типизированного файла из текстового.

и ещё. разбирать (ещё говорят, "парсить") строку на отдельные элементы можно только если известен формат строки.
Поэтому, опишите, что у Вас в исходном текстовом файле + выложите сюда на форум архив с этим самым текстовым файлом.
При этом рекомендую обратить внимание, что оценки должны каким-то образом быть связаны с дисциплиной.

[D1esel]

Это 2 курс
У каждого студента своя задача.
Есть мысли по поводу задачи???

[D1esel]

В текстовом файле имя студентов и 3. Их полученные оценки
Дисциплин быть не должно я думаю их можно просто обозначить 1 2 3

[D1esel]

Ну так как?