Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2016, 17:30   #1
Heirat
 
Регистрация: 13.02.2016
Сообщений: 4
По умолчанию Задача с acmp, сортировка по алфавиту

Здравствуйте, укажите на ошибку в коде задачки с сайта acmp - http://acmp.ru/index.asp?main=task&id_task=633
Код:
program AcmWorldFinals;

procedure Swap (var a, b : string);

var
        t : string;

begin
     t := a;
     a := b;
     b := t
end;

procedure SortingPlayers (var a: array of string);
var
        i, j : LongInt;

begin
        for i := 1 to 2 do
                for j := 1 to 3 - i do
                        if a[j] > a[j + 1] then
                                Swap (a[j], a[j + 1]);
end;

var
        tm: string;
        a : array [1..3] of string;

begin
        ReadLn (tm);
        ReadLn (a[1]);
        ReadLn (a[2]);
        ReadLn (a[3]);

        SortingPlayers (a);

        WriteLn (tm + ': ' + a[1] + ', ' + a[2] + ', ' + a[3]);
end.
Пробовал дебажить, останавливается на строке for i := 1 to 2 do , говорит runtime 201
Heirat вне форума Ответить с цитированием
Старый 13.02.2016, 17:41   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

автор, может быть пора уже повзрослеть, выплюнуть мамкину сиську изо рта и начать нумеровать открытые и динамические массивы с нуля? Ты, хоть, понимаешь, что передаётся в твою функцию
Код:
procedure SortingPlayers (var a: array of string);
когда ты перед параметром ставишь директиву var?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 13.02.2016 в 17:45.
min@y™ вне форума Ответить с цитированием
Старый 13.02.2016, 18:01   #3
Heirat
 
Регистрация: 13.02.2016
Сообщений: 4
По умолчанию

Я посмотрел на ваш ответ и добавил тип TArr = array [1..3] of string, и в местах поставил var a : TArr и всё заработало, задачу приняли. Спасибо
Heirat вне форума Ответить с цитированием
Старый 13.02.2016, 18:12   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
задачу приняли
а надо было руки оторвать.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка по алфавиту Krolik_Baksi Паскаль, Turbo Pascal, PascalABC.NET 1 10.12.2014 01:22
Stack overflow (C++) (Задача с acmp №9) Ghost3 Помощь студентам 4 15.04.2013 18:41
Сортировка по алфавиту aerocool Помощь студентам 14 06.02.2013 16:26
Сортировка по алфавиту. asmars Общие вопросы C/C++ 3 17.04.2012 00:42