Помощь - Поиск - Пользователи - Календарь
Полная версия: Как преобразовать слово в символьный массив?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
KerK
Подскажите пожалуйста, каким макаром из какого-нибудь слова создать отсортированный символьный массив?
Т.е. дано слово, его нужно разложить и запихнуть в символьный массив, а потом отсортировать в обратном алфавитном порядке.

Нашел на форуме:
a:array['A'..'Z'] of чего_то_там;
i:char;
...

for i:='A' to 'Z' do a[i]:=что_то_нужное_мне

Там дальше понятно, как делать перебираем через фор алфавит и сравниваем с нашим массивом и присваеваем.... и т.д.

А как разбить слово на буквенный массив?
volvo
Слово задано в виде строки (String)? Тогда оно уже в виде "буквенного" массива, ты же можешь к каждому символу строки обратиться отдельно...
Гость
Выкладываю решенную задачу, если кому-нибудь понадобится.


program sort;

type
Dataitem=char;
DataArray=array[1..100] of char;
var
massiv:DataArray;
t,t2:integer;
slovo:string;

Procedure Bubble(var item:DataArray; count:integer);
var
i,j:integer;
x:Dataitem;
begin
for i:=2 to count do
begin
for j:=count downto i do
if item[j-1]<item[j] then
begin
x:=item[j-1];
item[j-1]:=item[j];
item[j]:=x;
end;
end;
end;

begin
slovo:='н«ҐЄваЁдЁЄ жЁп';
for t:=1 to length(slovo) do massiv[t]:=char(slovo[t]);
Bubble(massiv, t);
Write(''
Write('Њ ббЁў а бЇ®«®¦Ґ­­л© ў ®Ўа в­®¬  «д ўЁв­®¬ Ї®ап¤ЄҐ: ');
for t2:=1 to t do write(massiv[t2]);
Writeln;
end.

KerK
Прошу у знающих, совета, ... может что-нибудь изменить, чтобы красиво было?
volvo
Цитата
может что-нибудь изменить, чтобы красиво было?
Так красивее будет, правда?
program sort;

type
DataItem = Char;
DataArray = array[1..100] of DataItem;
var
massiv:^DataArray;
slovo:string;

Procedure Bubble(var item: DataArray; count: integer);
var
i, j: integer;
x: DataItem;
begin
for i := 2 to count do begin
for j := count downto i do

if item[j-1]<item[j] then begin
x:=item[j-1];
item[j-1]:=item[j];
item[j]:=x;
end;

end;
end;

begin
slovo := 'start, finish';

massiv := @slovo[1];
Bubble(massiv^, length(slovo));
Write('sorted word: ');
writeln(slovo);
end.
KerK
Может и так... Спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.