Символы и строки в Delphi.

[Poma][a]

Сообщение от Аватар

Ну вот, однобайтная
http://ru.wikipedia.org/wiki/Windows-1251

Ага, спасибо большое!

[Foreseen]

Как то так

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: integer;
s: string;
begin
Output_Text.Text:='';
for i:=Length(Input_Text.Text) downto 1 do
if (ord(Input_Text.Text[i])>96) and (ord(Input_Text.Text[i])<123) then
Output_Text.Text:=Output_Text.Text+Input_Text.Text[i];

for i:=122 downto 97 do
for j:=1 to Length(Output_Text.Text) do
    Begin
    if ord(Output_Text.Text[j])=i then
    s:=s+Output_Text.Text[j];
    End;
Output_Text.Text:=s;
end;

[Serge_Bliznykov]

Сообщение от Cybill

Проблема в том, что я знаю как вывести буквы в обратном алфавитном порядке, но мне нужно только строчные. так как это сделать?

Очень любопытно. Покажите, как?

Cybill, на самом деле всё очень просто.
в теме Вам уже всё объяснили, как эту задачу решить.
Вопрос только упирается в то, что строчные латинские буквы выводить столько раз, сколько они встретились в строке или каждую букву единожды?

вот, например, если дана строка:
Sapay Azyzay
что должна выдать программа?

[Foreseen]

Serge_Bliznykov, В задаче требуют все строчные) А если что, бряк повесит в нужном месте, получит каждый символ единожды

[Poma][a]

Вывести на экран в обратном алфавитном порядке все строчные латинские буквы

Задание может трактоваться по разному..
Тогда и такой вариант имеет место быть..

for ch := 'Z' downto 'A' do Write(ch)

[Foreseen]

Задание может трактоваться по разному..

Препода кондратий хватит

[Mad_Cat]

'Z' downto 'A'

только эт ни разу не строчные

'z' downto 'a'

а вот это строчные

[Serge_Bliznykov]

Сообщение от Poma][a

Задание может трактоваться по разному..
Тогда и такой вариант имеет место быть..

for ch := 'z' downto 'a' do Write(ch)

Poma][a, браво! Супер!

А что, нас же (как инженеров и программистов) учат точно следовать поставленному ТЗ.

цитирую.

Дан текст из n символов. Вывести на экран в обратном алфавитном порядке все строчные латинские буквы. (Delphi)

Так. текст дан. Хорошо. Нужно вывести в обратном алфавитном порядке все строчные латинские буквы. Отлично. Ткните меня носом, где указано, что эти буквы должны ПРИСУТСТВОВАТЬ в тексте?! Что так подразумевалось - вывести все строчные латинские буквы, присутствующие в тексте, или, наоборот, вывести все строчные латинские буквы, которых НЕТ в представленном тексте, это мы можем только догадываться! Домысливать задание, так сказать. А это уже задача участников битвы экстрасенсов на ТНТ, а не программистов.


p.s. уверен, что автор темы просто некорректно/сокращённо передал задание. Но тем не менее, недосказанность налицо!!!

[Poma][a]

только эт ни разу не строчные

Угу.. Спасибо..

Poma][a, браво! Супер!

Ой, да ну что Вы..

[Cybill]

На самом деле, задание написано дословно, об этом преподаватели видимо не подумали)
Нужно выводить только те, что вводили.
вот собственно, что у меня получилось:
procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j:integer;
s,str,stv:string;
pr: boolean;
c:char;
begin
n:=ord('a');
m:=ord('z');
str:='';
s:=Memo1.Text;

for i:=1 to length(s) do
if (ord(s[i])>=n) and (ord(s[i])<=m) then
str:=str+s[i]
else ShowMessage (' Элементы не найдены');


repeat
pr:=true;
for i:=1 to length(str)-1 do
if ord(str[i])<ord(str[i+1]) then
begin
pr:=false;
c:=str[i];
str[i]:=str[i+1];
str [i+1]:=c;
end;
until pr;

Memo2.Lines.Add(str);
end;