VPF::[Pascal]Помогите найти ошибку в коде

Loginanton

Дата 8.10.2008, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 8.11.2007

Репутация: нет
Всего: нет

Программа должна выводить в выходной файл список вида: профессия - количество человек. Помогите пожалуйста найти ошибку в коде, а то почему то программа программистов игнорирует smile

Всё в прикреплённом файле.
Заранее спасибо

Это сообщение отредактировал(а) Loginanton - 8.10.2008, 23:57

Присоединённый файл ( Кол-во скачиваний: 11 )

PRAX.zip 6,24 Kb

SneG0K

Дата 9.10.2008, 06:24 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: нет
Всего: 54

Мммм... Что значит не ищет? У меня всех показывает. Программистов там аж три штуки=)
Вот только файл не в стандартной кодировке smile

orthrus

Дата 9.10.2008, 07:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: 5
Всего: 16

У тебя ошибка в цикле сортировки:

Код


for j := 1 to 10 do
 for i := 1 to 10 do  { цикл не должен быть до 10, иначе }
    if b[i] > b[i + 1] then {в этой строке получишь ошибку выхода за пределы массива}
       begin
         x := b[i];
         b[i] := b[i + 1];
         b[i + 1] := x;
       end;

Вот переделка твоей программы, только без сортировки:

Код


program prax;
const
     AMOUNT = 10;
{обьявляем переменные}
var
     a , c : text;
     i , j , n, m : byte;
     b : array[1..AMOUNT] of string;
     tmp: array[1..AMOUNT] of string;
     x : string;

begin
{открываем файл на чтение}
  assign(a, 'in.txt');
  reset(a);
{читаем строки из файла в массив}
  for i := 1 to AMOUNT do
  readln(a, b[i]);
  close(a);
{оставляем в массиве только названия профессий}
  for i := 1 to AMOUNT do
  b[i] := copy(b[i], 16, 15);
{удаляем нижние подчёркивания из строк}
  for i := 1 to AMOUNT do
      begin
        j := 1;
        while b[i, j] <> '_' do
        j := j + 1;
        b[i] := copy(b[i], 1, j - 1);
      end;
{считаем сколько каких профессий и записываем результат в файл}
  assign(c, 'out.txt');
  j := 1;
  for i:=1 to AMOUNT do
      begin
        m := 0;
        for n:=1 to j do
            if (tmp[n] <> b[i]) then inc(m)
            else begin
                   m := 0;
                   break;
                 end;
        if (m = n) then
           begin
             tmp[j] := b[i];
             inc(j);
             m := 0;
             for n := i to AMOUNT do
                 if (b[i] = b[n]) then inc(m);
             append(c);
             writeln(c, b[i], ' - ', m, 'шт');
           end;
      end;
  close(c);
  for i := 1 to j do
  writeln(tmp[i]);
  readln;
{закрываем входной файл}
{конец мученьям}
end.

--------------------

Loginanton

Дата 9.10.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 8.11.2007

Репутация: нет
Всего: нет

orthrus, спасибо, работает smile

Единственное, что было бы классно если бы обьяснил как участок кода, тот что считает количества профессий, работает. Меня интересует сам алгоритм.

А вообще за помощь обоим спасибо огромное smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »