Строковые переменные

[locdoc]

Дан текст. найти самую длинную группу цифр и поменять ее с последней группой цифр.

[artemavd]

Или выкладываете наработки или тему закрываю. Если не увижу в следующем вашем посту наработки, закрою.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=121741

[locdoc]

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

Или выкладываете наработки или тему закрываю. Если не увижу в следующем вашем посту наработки, закрою.

ВОТ ТО что я сделал..

проверьте если не сложна..там что то не правильно

program Project2;
 
var
  s : string[60] = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh';
  i : Integer;
  pmax, lmax : Integer;
  pt, lt : Integer;
  ResultStr : string;
 
begin
  i := 1;
  lmax := 0;
  repeat
    if s[i] in ['0'..'9']
    then
      Begin
        lt := 1;
        while (i <= Length(s))
        do
          if s[i+lt] in ['0'..'9']
          then
            Inc(lt)
          else
            Break;
        pt := i;
        if lt > lmax
        then
          begin
            lmax := lt;
            pmax := i;
          end;
        i  := i + lt;
      end;
    Inc(i);
  until i > Length(s);
 
  ResultStr := Copy(s, 1, pmax - 1) + Copy(s, pt, lt) +
               Copy(s, pmax + lmax, pt - pmax - lmax) + Copy(s, pmax, lmax) +
               Copy(s, pt + lt, Length(s) - pt - lt + 1);
  Writeln(s);
  Writeln(ResultStr);
  Readln;
end.

[locdoc]

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

Или выкладываете наработки или тему закрываю. Если не увижу в следующем вашем посту наработки, закрою.

ну и??? я выложил и что

[DRAgon™]

Можно так.Сначала отсортируй массив строк по убыванию,птом находишь с конца свою строку самую максимальную и меняешь с последней.Все.

uses crt;
const N = 5;
var i,j:integer;
r,q,b:String;
x:array [0..n] of String ;
begin
writeln('Ведите массив, cостоящий из' ,n, 'чисел:');
for i:=0 to 5 do
readln(x[i]);
for i:=0 to 5 do
for j:=i+1 to 5 do
if x[i]<=x[j] then
begin
r:=x[i];
x[i]:=x[j];
x[j]:=r
end;
for i:=0 to n do begin
end;
writeln(' MAX Element -    ',x[0]);
 writeln(' Change ');
  for i:=0 to n do begin
 b:=x[0];
 x[0]:=x[n];
 x[n]:=b;
end;
Writeln;
 for i:=0 to n do
      writeln(x[i]);
end.

на можно и так исправил

  const s  = 'sdsgs#d_123_ewat&wea_16489_w,etwe_27_twetw_5_ewr.we_653_fgh';
  var i : Integer;
  pmax, lmax : Integer;
  pt, lt : Integer;
  ResultStr : string;

begin
  i := 1;
  lmax := 0;
  repeat
    if s[i] in ['0'..'9']
    then
      Begin
        lt := 1;
        while (i <= Length(s))
        do
          if s[i+lt] in ['0'..'9']
          then
            Inc(lt)
          else
            Break;
        pt := i;
        if lt > lmax
        then
          begin
            lmax := lt;
            pmax := i;
          end;
        i  := i + lt;
      end;
    Inc(i);
  until i > Length(s);

  ResultStr := Copy(s, 1, pmax - 1) + Copy(s, pt, lt) +
               Copy(s, pmax + lmax, pt - pmax - lmax) + Copy(s, pmax, lmax) +
               Copy(s, pt + lt, Length(s) - pt - lt + 1);
  Writeln(s);
  Writeln(ResultStr);
  Readln;
end.