Обработка строк в Delphi

[Onill]

Здравствуйте, помогите разобраться в написании некоторых программ, я новичек по данной категории, кому не сложно напишите код программы в Delphi7, с объяснением.

1)Дана строка, содержащая полное имя файла. Выделить из этой строки название последнего каталога (без символов «\»). Если файл содержится в корневом каталоге, то вывести символ «\».

2)Дано зашифрованное предложение на русском языке (способ шифрования - Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра, расположенную в алфавите на K-й позиции после шифруемой буквы (например, для K = 2 «А» перейдет в «В», «а» — в «в», «Б» — в «Г», «я» — в «б» и т. д.). Букву «ё» в алфавите не учитывать, знаки препинания и пробелы не изменять.) и кодовое смещение K (0 < K < 10). Расшифровать предложение.

3)Дано предложение, зашифрованное по правилу(строку зашфровать, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях (например, строка «Программа» превратится в «ргамамроП»). Расшифровать это предложение.

буду благодарен если кто откликнется

[Serge_Bliznykov]

задачи простые. но 2-я и 3-я решение, конечно, займёт какое-то время..

1-я.

var i, PosSlash1, PosSlash2 : integer; 
    s : string;
    LastFolder : string;
begin
   s := Edit1.Text;
   i := length(s);
   while (i>0) and ( s[i]<>'\' ) do Dec(i);
   if i>0 then PosSlash1 := i
   else begin
      ShowMessage('Ошибка! В исходной строке не задано полное имя файла!');
      Exit;
   end;
   Dec(i);
   while (i>0) and ( s[i]<>'\' ) do Dec(i);
   if i>0 then begin 
         PosSlash2 := i;
         LastFolder := Copy(s, PosSlash2 + 1, PosSlash1-PosSlash2-1);
   end
   else  LastFolder := '\';

   ShowMessage('Последний каталог = '+LastFolder);

если нужно консольное приложение, то замените ввод на Readln и все ShowMessage на WriteLn


а Вы сами что-то делать собираетесь? Или будете ждать готовенького решения задач?!

[Onill]

я сделал предъидущие 4 задачи, могу показать для подтверждения, просто эти 3 вызвали у меня заруднение. Тк 1 раз с таким сталкиваюсь.

[Serge_Bliznykov]

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

я сделал предъидущие 4 задачи, могу показать для подтверждения, просто эти 3 вызвали у меня заруднение. Тк 1 раз с таким сталкиваюсь.

ясно.
т.е. всё-таки самостоятельно будете пытаться решить?
это похвально.

тогда маленькие советы/подсказки/hints:

вторая задача.
я бы завёл константу, содержащую весь допустимый алфавит. Номер символа в этой строки и даст нам код буквы. дальше к полученному коду нужно прибавить число K (NewCode := OldCode + K) и, если полученное число меньше длины алфавита, то взять из алфавита символ с кодом NewCode, если же число NewCode > длины алфавита, то нужно из этого кода вычесть длину алфавита и затем взять из алфавита символ с кодом NewCode.

у меня, конечно, чешутся руки написать решение. но я оставляю это удовольствие Вам

подсказки в виде кода

const
   Alphabet = 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
   AlphabetUpper = 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

...
  перебор символов строки
  for i:=1 to Length(s)

...
  найти код символа в заданном алфавите (грубо говоря, позицию символа в строке-константе)
  OldCode := Pos( s[i], Alphabet);

  если полученный код получился 0 - но символа нет в данном алвавите и символ нужно оставить как есть


  NewCode := OldCode + K;
  if NewCode>Length(Alphabet) 
        then NewCode := NewCode - Length(Alphabet);


  получить символ с кодом NewCode из строки Alphabet
  s[i] := Alphabet[ NewCode ];

для третьей задачи я бы рекомендовал воспользоваться дополнительной строкой - где и накапливать результаты... а перебирать символы исходной строки двумя циклами - сначала по чётным индексам, потом, в обратную сторону, по нечётным...

[Onill]

Serge_Bliznykov спасибо за помощь неожидал, что кто-либо откликнится, если у меня будут вопросы по 3, могу ли я вам их задать?

[Serge_Bliznykov]

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

Serge_Bliznykov спасибо за помощь неожидал, что кто-либо откликнится

пожалуйста!

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

, если у меня будут вопросы по 3, могу ли я вам их задать?

ну разумеется!
в этой же теме можете их и задавать.
И чем вопросы будут более конкретными (с вашими наработками в виде кода), тем быстрее и конкретнее получите ответ...


p.s. хотя, если честно, третья задача тоже очень простая. не думаю, что при её решении Вы запутаетесь..

[Onill]

К сожалению со 2 программой у меня вышли затруднения.. Попытался зашифровать строку и выполнить замену, но ничего не вышло

var
  i:integer;
  s,k:string;
begin
  a:= Edit30.Text;
  for i:=1 to length(s) do begin
    a:=ord(s[i]);
    if (a>191)and(a<224-k)and(a>224)and(a<225-k) then s[i]:=chr(a+k);
  end;
  edit31.text:=S;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Onill, Вы мой пост #4 видите? Там строчки кода с комментариями видите?
Какое отношение ваши ord() и сравнения с 191, 224, 225 имеют к этому коду можете объяснить?
(и, кстати, вы хотя бы понимаете, что эти волшебные циферки обозначают? )

дальше - разве из исходного задания не ясно, что K - это целочисленная переменная?
Почему Вы её строкой сделали?!

дальше - где K иницилизируется? (в вашем случае K - это ключ шифра - на сколько символов сдвигать буквы). Где это у Вас задаётся.

дальше. что за переменная a вдруг возникла? Которой сначал строка присваивается. Потом идёт обращение к незаполненной переменной s, а потом a вдруг числовое значеие (которое ord() возвращает) присваивается).

дальше. если уже вы работаете с кодами символов напрямую так почему Вы не взяли предложенный мной алгоритм преобразования?!

Всё, что Вы написали - жуткая нелепица!


если уж так хотите работать напрямую с кодами символов, тогда рассмотрите такой пример кода

const
  AlphaBetLength = 32;

procedure TForm1.ButtonCryptClick(Sender: TObject);
{зашифровать строку путём сдвига символов на заданное число}
var
  i, K : integer;
  s: AnsiString;
  one, MaxCode : integer;
begin
  K := StrToIntDef(Edit_K.Text, 0);
  if (K<1) or (K>=10) then begin
    ShowMessage('Задайте переменную K ( 0 < K < 10 )!');
    Exit;
  end;
  s := Edit30.Text;
  for i:=1 to length(s) do begin

    if (s[i]>='А') and (s[i]<='Я') then MaxCode := ord('Я')
    else
      if (s[i]>='а') and (s[i]<='я') then MaxCode := ord('я')
      else MaxCode := 0;

    if MaxCode<>0 then begin
      one := ord(s[i]);
      one := one + K;

      if one>MaxCode then
         one := one - AlphaBetLength;
      s[i] := AnsiChar( one );
    end;  
  end;
  edit31.text:=S;
end;

[Onill]

циферки взяты из таблицы ASCI

[Serge_Bliznykov]

я выложил вариант криптования. разбирайтесь.
попытайтесь декрипт самостоятельно написать.
Успехов.