VPF::[Pasсal] Сортировка символов в строке

BCworm

Дата 19.2.2008, 04:45 (ссылка)

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

Загрузка ...

Шустрый

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

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

Помогите пожалуйста

В программе есть 2 переменные A и B типа string каждая по 10 символов
Мне нужно отсортировать символы в этих строках, которые естественно в разбросанном порядке
Подсобите кто знает как это сделать. Нужно чтобы не отсортированная строка сортировалась например функцией или процедурой а результат возвращался обратно в эту же переменную

Rodman

Дата 19.2.2008, 09:56 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

эх маладешь!

Код


program Project2;
uses
  Crt;
const N=10;
function Sort(prm:String):String;
var i, j:  Integer;
      t:char;
begin
  for i := N - 1 downto 1 do
    for j := 1 to i do
        if ord(prm[j]) > ord(prm[j+1]) then
        begin
            t := prm[j];
            prm[j] := prm[j+1];
            prm[j+1] := t;
        end;
  Sort:=prm;
end;
var a,b:String[N];
begin
  Writeln('Enter string A: ');
  Readln(a);
  Writeln('Enter string B: ');
  Readln(b);
  Writeln('Result');
  Writeln('A = '+ Sort(A));
  Writeln('B = '+ Sort(B));
  Readln;
end.

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

CRM с функцией АвтоОбзвона

Лотереи мира

BCworm

Дата 19.2.2008, 10:32 (ссылка)

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

Загрузка ...

Шустрый

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

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

Большое человеческое спасибо!
Но сортировать то оно сортирует а вот значение обратно отсортированное значение той же переменной не присваивает. поэтому если write(a) после вызова процедуры сделать опять выйдет первоначальнео значение А мне нужно именно чтоб значение из переменной сортировалось и возвращалось в ту же переменную

Это сообщение отредактировал(а) BCworm - 19.2.2008, 10:37

THandle

Дата 19.2.2008, 11:09 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


program Project2;
uses
  Crt;
const N=10;
function Sort(prm:String):String;
var i, j:  Integer;
      t:char;
begin
  for i := N - 1 downto 1 do
    for j := 1 to i do
        if ord(prm[j]) > ord(prm[j+1]) then
        begin
            t := prm[j];
            prm[j] := prm[j+1];
            prm[j+1] := t;
        end;
  Sort:=prm;
end;
var a,b:String[N];
begin
  Writeln('Enter string A: ');
  Readln(a);
  Writeln('Enter string B: ');
  Readln(b);
  Writeln('Result');
  A := Sort(A);
  B := Sort(B);
  Writeln('A = '+ A);
  Writeln('B = '+ B);
  Readln;
end.

Кстати crt, как мне кажется лишний.

BCworm

Дата 20.2.2008, 02:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Еще раз огромный респект! Именно то что надо

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