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

[stalker1995s]

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

Это Дельфийская связка, в Паскале

PriceText: Text;

А разница та какая ? Смысл в одном, да и не жуткий я грамотей согласен.

[netpolice]

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

А разница та какая ? Смысл в одном, да и не жуткий я грамотей согласен.

Согласен разницы нет, но вдруг у D1esel реально Turbo Pascal, он же обидится (я имею ввиду Pascal). Делфи в обратном случае тоже обидится.

[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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[netpolice]

Задание не то

Млин и оформите правильно код, А то совершенно не читаем.

[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.

Вот в txt заданы данные



___________
Код нужно оформлять по правилам (а не тегом цитирования!):
тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[D1esel]

вот в txt заданы данные

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.

[Serge_Bliznykov]

D1esel, цитирую ваше задание:

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

1. Описать запись с именем Price, содержащую следующие поля:

название товара;
название магазина, в котором продается товар;
стоимость товара в рублях.

сравните с вашим кодом. Попытайтесь найти совпадения...

[D1esel]

Не получается

[netpolice]

  writeln('Введите наименование'); Readln(name);

Если я правильно понял код (спс модератору за форматирование), то данная строчка должна при каждом считывании одной записи файла выводиться, Далее

for j := len + 1 to 20 do name := name + ' ';          {4}

Зачем вы до 20-ого символа забиваете пробелами? (реально не могу понять)

Ну и вообщем несколько сумбурный код

while true do begin

Ах да, ну это уже смертный грех... Ну нельзя так... Это против правил программирования, вот зациклитесь будете знать

[D1esel]

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