Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Alina_K
0 / 0 / 0
Регистрация: 05.07.2011
Сообщений: 25
1

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

07.07.2011, 11:23. Просмотров 2020. Ответов 1
Метки нет (Все метки)

Дан текст из k символов. Вывести на экран в алфавитном порядке все прописные русские буквы.
Код ниже. Что нужно исправить чтобы программа выводила строку в алфавитном порядке???
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject;var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);   //Обработка события активации формы
begin
 ComboBox1.SetFocus; //Передача фокуса ComboBox1
end;
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char); //Обработка события нажатия Enter
  begin
  if Key=#13 then begin //Если нажата клавиша Enter, то..
  ComboBox1.Items.Add(ComboBox1.Text); //Строка из окна редактирования заносится
                                          //в список выбора
   ComboBox1.Text:='  '; //Очистка окна редактирования
    end;
   end;
procedure TForm1.Button1Click(Sender: TObject);
Const
 A=['А','Б','В','Г','Д','Е','Ё','Ж','З','И','К','Л',
'М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я'];
var
  st,str: String;
  n,i,nst,index: integer;
  zam: char;
begin
  str:='';
  nst:=ComboBox1.ItemIndex;//Определение номера выбранной строки
  st:=ComboBox1.Items[nst];//Занесение выбранной строки в переменную st
  Edit1.Text:=st;
  for i:=1 to Length(st) do  // от 1 до конца строки
  if st[i] in A then
  str:=str+st[i];
  for i:=1 to Length(str) do  //пузырьковая сортировка
  if str[i]>str[i+1] then
    begin
    index:=i;
    zam:=str[index];
    str[i]:=str[i+1];
    str[i+1]:=zam;
  Edit1.Text:=str;   //вывод получившейся строки
  end;end;
procedure TForm1.FormCreate(Sender: TObject);
  begin
  ComboBox1.Clear; //Очистка окна редактора  ComboBox1
  Edit1.Clear;  //Очистка окна редактора  Edit1
  end;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2011, 11:23
Ответы с готовыми решениями:

Напечатать в алфавитном порядке: все строчные русские согласные буквы
МНОЖЕСТВА Текст задан строкой, напечатать в алфавитном порядке: все строчные русские согласные...

Дан массив А из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу.
Помогите сделать.!! вот задание: Дан массив А из строчных латинских букв. Вывести на экран в...

Дан массив А из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу
Дан массив А из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые...

Как вывести на экран прописные буквы?
помогите пожалуста решить следующую задачу: "Вывести на экран в алфавитном порядке все различные...

Заменить все прописные русские буквы, встречающиеся в тексте, строчными.
Пусть дан текст,за которым следует восклицательный знак.Замените все прописные русские...

1
Arcor
5122 / 1983 / 427
Регистрация: 20.11.2009
Сообщений: 6,596
Записей в блоге: 1
07.07.2011, 15:32 2
вот все буквы русские маленькие

Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var i: Byte;
begin
  for i := 224 to 255 do
    Memo1.Lines.Add(Chr(i));
end;
все большие русские буквы
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var i: Byte;
begin
  for i := 192 to 223 do
    Memo1.Lines.Add(Chr(i));
end;
Добавлено через 5 минут
тьфу задание не правильно понял, ну все же пусть будет

Добавлено через 22 минуты
я вот так сделал задачу, дана строка символов включающая и русские буквы, отфильтровать буквы в порядке возрастания, т.е. по алфавиту

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
const X = ['А'..'Я','а'..'я'];
var S,S1: String;
    i,j: Integer;
    k,n: Integer;
    A: Array of Integer;
begin
  n := 0;
  //Label1.Caption := '';
  S := 'ghugпангагнАенuigiГШпгшпGz8яяguibhbgzuНпнгпнгрпигрнпеНПнгпнгаgzugfzufgzugшгпнгняягпнгп';
  for i := 1 to Length(S) do
    if S[i] in X then
      begin
        S1 := S1 + S[i];
        SetLength(A, n+1);
        A[n] := Ord(S[i]);
        n := n+1;
      end;
  for i := 1 to Length(S1)-1 do
    for j := 1 to Length(S1)-1 do
      if A[j] > A[j+1] then
        begin
          k := A[j+1];
          A[j+1] := A[j];
          A[j] := k;
        end;
  for i := 0 to Length(A) - 1 do
    Label1.Caption := Label1.Caption + Chr(A[i])+' ';
 
end;
Добавлено через 17 минут
Delphi
1
2
  for i := 0 to Length(S1)-1 do
    for j := 0 to Length(S1)-1 do
что-то я вообще затупил... вот так надо 19 и 20 строки сделать...
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2011, 15:32

Напечатать в алфавитном порядке все звонкие согласные буквы
Помогите, пожалуйста, с решением задачи: Дана непустая последовательность слов из строчных...

Вывести на экран только строчные русские буквы
Помогите пожалуйста написать программу на Delphi :-[ Дан текст из k символов. Вывести на экран...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами –...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru