var
n, Num, i, j, t: integer;
Count: array[1..12] of integer;
Names: array[1..12] of integer;
begin
for i := 1 to 12 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); { Считываем количество запросов}
for i := 1 to N do
begin
ReadLn(t); {считали очередной запрос}
Count[t] := Count[t] + 1;
end;
{Сортируем массивы Names и Count в порядке убывания значений массива Count}
for i := 12 downto 2 do
for j := 2 to i do
if Count[j - 1] < Count[j] then
begin
t := Count[j];
Count[j] := Count[j - 1];
Count[j - 1] := t;
t := Names[j];
Names[j] := Names[j - 1];
Names[j - 1] := t;
end;
for i := 12 downto 1 do
if Count[i] > 0 then
WriteLn(Names[i], ' ', Count[i]);
end.
Объяснение:
У попередніх публікаціях ми вже познайомилися із середовищем програмування PascalABC.NET. Одним із недоліків даного ПЗ для україномовних користувачів (хоч і несуттєвих з точки зору функціональності) була відсутність української локалізації.
Знайти українізатор у Інтернеті не вдалося – його просто не існує. Маючи певний досвід локалізації програмного забезпечення, вирішив проаналізувати можливість перекладу PascalABC.NET українською мовою.
Проглянувши каталог встановленої програми і з’ясувавши принцип підключення файлів з англійською та російською мовами аналогічним чином реалізував можливість обирати в налаштуваннях українську мову інтерфейсу. Днів два пішло на переклад (близько 1500 рядків).
Сьогодні нарешті завершив українізацію інтерфейсу для PascalABC.NET, викладаю у вільний доступ.
Україномовний PascalABC.NET
Завантажити українізатор (45 kb)
Інструкція по встановленню
Розархівувати папку Ukr у папку встановленої програми. (Шлях по замовчуванню – C:\Program Files\PascalABC.NET\Lng\)
У налаштуваннях програми обрати українську мову.
(Сервис – Настройки – Общие – Язык).
Перезавантажити програму.
Українізація актуальна для PascalABC.NET (версія 3.2, збірка 1504 від 09.07.2017)
Upd 17.07.2017 р. Відправляв локалізацію розробникам PascalABC.NET, отримав відповідь: локалізацію додали в програму, з’явиться в наступних оновленнях.
Объяснение:
ТЕМА.
Т=110
Е=100
М=01
А=10
1101000110