VPF::упорядковать букви - Форум программистов

Zorak

Дата 26.6.2008, 20:18 (ссылка)

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

Загрузка ...

Опытный

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

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

вот проблема,... есть масив латинских букв.. например "d, g, f, y, t, j", мне нужно их упорядочить в алфавитном порядке.. как ето организовать в Паскале ?? помогите пжлста.... заранее спасибо =)

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

Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.

Majar

Дата 27.6.2008, 00:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот код программы:

Код


program vin7;
var
 ar: array [1..100] of char;
 i, n, k: integer;
 ch: char;
begin
 write('Vvedite kol-vo elementov massiva: ');
 readln(n);
 writeln('Vvedite elementu massiva: ');
 for i:= 1 to n do
  readln(ar[i]);
 for k:= 1 to n-1 do
  for i:= 1to n-k do
   if ar[i] > ar[i+1] then
    begin
     ch:= ar[i];
     ar[i]:= ar[i+1];
     ar[i+1]:= ch;
    end;
 writeln('Uporyadochennui po alfavitu massiv: ');
 for i:= 1 to n do
  writeln(ar[i]);
 readln;
end.

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