Переставить все буквы латинского алфавита в начало строки в порядке следования.

[zaq2000]

Составить программу обработки строк. Переставить все буквы латинского алфавита в начало строки в порядке следования.

[DaniKz]

Правда сказать давно не писал на Паскале....
Могу только примерно написать алгоритм выполнения задачи....
Должно получиться типа этого:

Var Strg : String;
i,j,L: Integer;
ch: char;
Begin
ReadLn(Strg). {вводим строку}
L := Length(Strg); {определяем длину строки}
L := L - 1. {минус один, для того что бы у нас не выползла ошибка}
for j:= 1 to L 
for i:= 1 to L
begin
if XXXX(Strg[i]) > XXXX(Strg[i+1]). {здесь вместо ХХХХ оператор определяющий ASCII код символа, я непомню его :)))) }
begin
{осуществляем замену символов}
ch := Strg[i].
Strg[i] := Strg[i+1];
Strg[i+1] := ch;
end;
end;
end.

Коментарий:
1. ХХХХ - помню есть какаето стандартная функция определения ASCII код символа,..... (уже лет 5 не писал такие программы)
2. Два цикла вместо одного.... нужны для полной обработки строки...

P.S.: Давно не писал на Паскале и Delphi.... сейчас работаю в SAP R3.... Абапером )))

[DannerDOS]

program Zadaha_Daniyara;
uses crt;
var a,b:string; i,j,k,m,n:integer; p:char;
begin
clrscr;
readln(a);
b:='абвгдежзийклмнопрстуфхцчшщъыьэю я'; {Алфавитов я незнаю так что необессуте, особенно Латинского... ну там подставить можно а русский алфавит я в И-нете нашол... }
k:=1;
while k<>0 do
begin
k:=0;
for i:=1 to length(a)-1 do
begin
for j:=1 to length(b) do
begin
if b[j]=a[i] then m:=j;
if b[j]=a[i+1] then n:=j;
end;
if m>n then
begin
k:=1;
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
end;
end;
end;
writeln(a);
readkey;
end.

[Serge_Bliznykov]

Ребят, я конечно, приношу свои извинения, но, разве, так не проще?:

var
  i : integer;
  s,s2 : integer;
begin
  WriteLn;
  Write('Введите строку');
  ReadLn(s);
  s2 := ''; {обнулили результирующую строчку c латиницей}
  s3 := ''; {обнулили резултьтирующую строчку для прочих}
  for i:=1 to Length(s) do
    if s[i] in ['a'..'z','A'..'Z'] then s2 := s2 + s[i]
    else s3 := s3 + s[i];

  s := s2 + s3;
  WriteLn('Результат',s);
end.

[alex_fcsm]

Serge_Bliznykov я имел наглость немного подправить Ваш код:

var
  i : integer;
  s,s2,s3 : string;
begin
  WriteLn;
  Writeln('Введите строку');
  ReadLn(s);
  s2 :=''; {обнулили результирующую строчку c латиницей}
  s3 :=''; {обнулили резултьтирующую строчку для прочих}
  for i:=1 to Length(s) do
    if s[i] in ['a'..'z','A'..'Z'] then s2 := s2 + s[i]
    else s3 := s3 + s[i];

  s := s2 + s3;
  WriteLn('Результат: ',s);
end.

[Serge_Bliznykov]

alex_fcsm :-) да не поправить, а исправить ошибку. Спасибо. :-)

[DaniKz]

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

Ребят, я конечно, приношу свои извинения, но, разве, так не проще?:

Так проще....
Но если использовать мой вариант у нас не только все буквы будут в начале строки.... но и сами буквы меж собой отсортируются по возрастанию....

P.S.: Ведь всегда при выполнении Лаб.работ препод что нибудь да придумает

[DannerDOS]

Да... наши так на всякий случай... Нужно учитывать все!

[alex_fcsm]

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

Так проще....
Но если использовать мой вариант у нас не только все буквы будут в начале строки.... но и сами буквы меж собой отсортируются по возрастанию....

P.S.: Ведь всегда при выполнении Лаб.работ препод что нибудь да придумает

Тогда Вы не выполните исходное условие

[DannerDOS]

- Исходные условия мы перевыполняем!!!