[Mougogblp]

Доброе время суток.
Помогите, в написании программы, задали по учебе, а я не силен.

Вводится последовательность из семи чисел или букв. Программа определяет, является ли последовательность возрастающей? Вариант ввода меняется контекстным меню. С помощью линейки прокрутки меняется размер шрифта в окнах (10-15). Очистка ввода - соответствующей клавишей. Запуск анализа - ввод последнего символа.

Заранее Спасибо!

[NIch]

Что значит

Вариант ввода меняется контекстным меню

Цифры или буквы??? Наверно да...

Код:

Procedure EditonKeyPress;//В событиях поля для ввода выбрать onKeyPress
begin
 Edit.Text := String;//Содержимое эдит в переменую
 if Length(String)=7 then begin//если символов 7 то запуск анализа
  if 
    ((Ord(String[0])>Ord(String[1])) and//если нулевой символ больше первого
    (Ord(String[1])>Ord(String[2])) and
    (Ord(String[2])>Ord(String[3])) and
    (Ord(String[3])>Ord(String[4])) and
    (Ord(String[4])>Ord(String[5])) and
    (Ord(String[5])>Ord(String[6])) and
    (Ord(String[6])>Ord(String[7])))
  then //то показать ссобщение
   ShowMessage('Последовательность вознастающая');
 end;
end;

Вот анализ по быстрому...Остальное проще...

[Konrad]

NIch, отличный пример кода...
Особенно если строка будет длиной в 150 символов....
5 по информатике в кармане.

[NIch]

Почитай лучше задание...

Вводится последовательность из семи чисел или букв

А если последовательность будет поболе то можно при помощи цикла организовать...типа

Код:

var
 i : integer;
 Bool : boolean;
 String : String;
begin
...
for i :=1 to Length(String) do begin//от единицы до конца строки
 if Ord(String[i-1])>Ord(String[i]) then begin//если предыдущий меньше текущего
  Bool := true;//Дополнительная переменная Да 
 end
 else begin//если предыдущий не меньше текущего
  Bool := false;// Нет
  Break;//выйти из цикла
 end;
 if Bool = true then//в конце цикла если да то
  ShowMessage('Последовательнось возрастающая');

Код не проверял...

[Aristarh Dark]

А мне вот тупо интересно как последовательности из "букв и цифр" определить "возростание-убывание"?

[NIch]

ну видимо по коду символа...

[Asinkrit]

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

Почитай лучше задание...

А если последовательность будет поболе то можно при помощи цикла организовать...типа

Код:

var
 i : integer;
 Bool : boolean;
 String : String;
begin
...
for i :=1 to Length(String) do begin//от единицы до конца строки
 if Ord(String[i-1])>Ord(String[i]) then begin//если предыдущий меньше текущего
  Bool := true;//Дополнительная переменная Да 
 end
 else begin//если предыдущий не меньше текущего
  Bool := false;// Нет
  Break;//выйти из цикла
 end;
 if Bool = true then//в конце цикла если да то
  ShowMessage('Последовательнось возрастающая');

Код не проверял...

Код:

Procedure EditonKeyPress(Sender:TObject);
var
  bool:Boolean;
begin
  bool:=true;
  with (Sender as TEdit).Edit do
    if Length(Text)=7 then
      for i:=2 to Length(Text) do //!! именно от второго символа
        if not Ord(Text[i-1])>Ord(Text[i]) then begin
          bool:=false;
          break;
          end;
  if bool then
    ShowMessage('Последовательнось возрастающая');
end;

Admin: Теги и еще раз теги!

[Asinkrit]

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

Почитай лучше задание...

А если последовательность будет поболе то можно при помощи цикла организовать...типа

Код:

var
 i : integer;
 Bool : boolean;
 String : String;
begin
...
for i :=1 to Length(String) do begin//от единицы до конца строки
 if Ord(String[i-1])>Ord(String[i]) then begin//если предыдущий меньше текущего
  Bool := true;//Дополнительная переменная Да 
 end
 else begin//если предыдущий не меньше текущего
  Bool := false;// Нет
  Break;//выйти из цикла
 end;
 if Bool = true then//в конце цикла если да то
  ShowMessage('Последовательнось возрастающая');

Код не проверял...

Код:

Procedure EditonKeyPress(Sender:TObject);
var
  bool:Boolean;
begin
  bool:=true;
  with (Sender as TEdit) do
    if Length(Text)=7 then
      for i:=2 to Length(Text) do 
        if not Ord(Text[i-1])>Ord(Text[i]) then begin
          bool:=false;
          break;
          end;
  if bool then
    ShowMessage('Последовательнось возрастающая');
end;

for i:=2 to Length(Text) do - !! именно от второго символа, иначе будет ошибка)

[NIch]

Можно и проще)

Можно по разному))))

[Asinkrit]

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

Можно по разному))))

В моем случае код более оптимизироавнный

[NIch]

Где же он более оптимизирован??? Тот же хрен только вид сбоку))) ИМХО
Я не претендовал на звание максимального оптимизатора, а лишь хотел показать Mougogblp в каком направлении двигаться...

[Asinkrit]

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

Где же он более оптимизирован??? Тот же хрен только вид сбоку))) ИМХО
Я не претендовал на звание максимального оптимизатора, а лишь хотел показать Mougogblp в каком направлении двигаться...

Незначительно оптимизирован)
Из цикла убраны, jump(с точки зрения ассемблера) (... else ...) и ненужное присваивание (Bool := true, замененное на одно в начале)

[NIch]

Спасибо за уточнения)))

[Mougogblp]

Был бы очень признателен, если кто нибудь скинул на почту сам проэкт не компилированный в exe файл..
А то я совсем не понимаю в delphi...