Разработка алгоритма и кода для трех строковых функций.

[igagogi]

Помогите пожалуйста, буду очень благодарен за любую помощь. Зарание спасибо.

Язык - Turbo Pascal.

Требуется разработать алгоритм и код для трех строковых функций, и объединить их в пользовательскую библиотеку (модуль - UNIT MyString). Необходимо также создать программу «тесты», обращающиеся к библиотеке для проверки работоспособности ваших функций при всех возможных вариантах исходных данных.

1) Функция - CHARSORT(C: STRING; N1, N2: BYTE; L: BOOLEAN): STRING - возвращает отсортированную строку C. N2 - номер позиции в C, с которой идет сортировка, а N1 - количество литер, которое необходимо сортировать. Сортировка по возрастанию L = TRUE, по убыванию L = FALSE.
2) Функция - CHARODD(C: STRING): STRING - возвращает строку, содержащую только нечетные символы строки C.
3) Функция - ISLOWER(C: STRING): BOOLEAN - возвращает TRUE, если первый символ строки С является символом нижнего регистра.

[ViktorR]

Так, сходу:
3) Функция - ISLOWER(C: STRING): BOOLEAN - возвращает TRUE, если первый символ строки С является символом нижнего регистра.

Function IsLower(C : String): Boolean;
begin
   if (Length(C) <> 0) then
      If (C[1] <> Upper(C[1])) then
         IsLower = true
      Else
         IsLower = false;
end;

2) Функция - CHARODD(C: STRING): STRING - возвращает строку, содержащую только нечетные символы строки C.

Function CharOdd(C : String): String;
   var i : integer;
begin
   if (Length(C) <> 0) then
      for i := 1 to Length(C) do
         if ((i mod 2) <> 0) then
            CharOdd[i] := C[i];
end;

как-то так ...

[igagogi]

Спасибо большо за помощь, вот еще хотел узнать, как объединить их в пользовательскую библиотеку (модуль - UNIT MyString).

[BDA]

Некоторые исправления и дополнения:

Function IsLower(C : String): Boolean;
begin
   if (Length(C) <> 0) then
     IsLower := C[1] in ['a'..'z']// вписать все нужные буквы
  else
     IsLower := false;
end;

Function CharOdd(C : String): String;
   var i : integer;
begin
  CharOdd := '';
  i:=1;
 while i <= Length(C) do 
  begin
    CharOdd  := CharOdd  + C[i];
    inc(i, 2);
  end;
end;

http://www.pascal.helpov.net/index/p...es_programming

Пример модуля Паскаля

Unit complexn; 
{--------------------------------} 
Interface 
Type 
Complex= record 
   Re, im: real; 
End; 
Procedure AddC(x,y: complex, var z: complex); 
{---------------------------------} 
Implementation 
   Procedure AddC; 
      z.re:= x.re + y.re; 
      z.im:= x.im + y.im; 
   end ; 
end .

[Serge_Bliznykov]

Function CharOdd(C : String): String;
    CharOdd  := CharOdd  + C[i];

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


нужно сделать так:

Function CharOdd(C : String): String;
var i : integer;
  rez : string;
begin
  rez := '';
  i:=1;
  while i <= Length(C) do
  begin
    rez  := rez  + C[i];
    inc(i, 2);
  end;
  CharOdd := rez
end;

[BDA]

Serge_Bliznykov, Вы правы. Спасибо. Уже не первый раз пишу так
(но когда пишешь в ide, то сразу исправляешь).

Update Вспомнил, что тестировал.
http://ideone.com/TwZoW4
Т.е. pascal (fpc) "спокойно" компилирует (классический Турбо Паскаль не скомпилировал бы).

[igagogi]

Поправьте пожалуйста, если что не так, я новичек в этом и че-то весь запутался. Как то она у меня не работает, делал по похожему примеру.

Вот модуль:

unit modul1;
interface
uses crt;
var i,j,n,a:integer;
    c:string;
    n1,n2:byte;
    l:boolean;
function CHARSORT(C: STRING; N1, N2: BYTE; L: BOOLEAN): STRING;
function CHARODD(C: STRING): STRING;
function ISLOWER(C: STRING): BOOLEAN;
implementation
function CHARSORT(C: STRING; N1, N2: BYTE; L: BOOLEAN): STRING;
var i,j:integer;
    res:string;
    temp:char;
begin
 res:=c;
if L then begin
            for i:=n2+1 to n1+n2-1 do
             for j:=n1+n2-1 downto i do
                if res[j]<res[j-1] then
                 begin
                  temp:=res[j];
                  res[j]:=res[j-1];
                  res[j-1]:=temp;
                 end;
          end
   else begin
          begin
            for i:=n2+1 to n1+n2-1 do
             for j:=n1+n2-1 downto i do
                if res[j]>res[j-1] then
                 begin
                  temp:=res[j];
                  res[j]:=res[j-1];
                  res[j-1]:=temp;
                 end;
          end
        end;
Charsort:=res;
end;

function CHARODD(C: STRING): STRING;
var i : integer;
  rez : string;
begin
  rez := '';
  i:=1;
  while i <= Length(C) do
  begin
    rez  := rez  + C[i];
    inc(i, 2);
  end;
  CharOdd := rez
end;

Function IsLower(C : String): Boolean;
begin
   if (Length(C) <> 0) then
      If (C[1] <> (C[1])) then
         IsLower := true
      Else
         IsLower := false;
end;
end.

Программа:

program pr;
uses crt, modul1;
var i,n:integer;
    c:string;
    l:boolean;
    n1,n2:byte;
begin
  repeat  writeln;writeln('vvedite nomer funcsiyi : 1 - CHARSORT,2 - CHARODD,3 - ISLOWER');
  readln(i);case i of
  1:CHARSORT(c,n1,n2,L);
  2:CHARODD(c);
  3:ISLOWER(c);
  end;if #27=readkey then break;
  until false;
end.

[ViktorR]

Serge_Bliznykov, BDA - Спасибо Вам.
С утра прибежал исправляться, а тут за мной уже "подмели".

igagogi
Без деталей, так, сверху:
function CHARSORT - группа операторов после else дважды в операторных скобках.

Function IsLower - Условие надо вписать по одному из вариантов
If (C[1] <> UpCase(C[1])) then - НО это только для латиницы
а вариант BDA
if (Length(C) <> 0) then
IsLower := C[1] in ['a'..'z']// Тут можно и кириллицу указать
else
IsLower := false;
т.е. более предпочтительный.

[ViktorR]

Переписывать все символы, включая и кириллические не очень удобный способ.
Вот вспомнил другой:

function UpSimv(a : char) : char; {в верхний регистр}
begin
   UpSimv := chr(Ord(a) AND $DF);
{как вариант c Ord('<символ пробела>') }
UpSimv := chr(Ord(a) - Ord(' '));
end;

function LoSimv(a : char) : char; {в нижний регистр}
begin
   LoSimv := chr(Ord(a) OR $20);
  {как вариант c Ord('<символ пробела>') }
   LoSimv := chr(Ord(a) + Ord(' '));
end;

Тогда можно:

Function IsLower(C : String): Boolean;
begin
   if (Length(C) <> 0) then
     IsLower := C[1] = LoSimv(C[1])
end;

Вроде того ...

[Serge_Bliznykov]

Вот вспомнил другой

для русских букв (кириллицы) в Дос кодировке (она же OEM, она же 866) такой способ работать не будет.