задачи на Turbo Pascal

[sufik]

))))))))))

[Mad_Cat]

3 тут
2)

s:=s+a[1,1]+a[n,n]+a[1,n]+a[n,1];
for i:=2 to n-1 do
s:=s+a[1,i]+a[i,1]+a[n,i]+a[i,n];

[Hacker19_90]

ну и я тогда 1 крякозябры эт буквы русского алфавита

program cod_decod;
uses crt;
const
    CodeTableUp:array[1..33] of char = ('Ђ','Ѓ','‚','ѓ','„','…','р','†','‡',
    '€','‰','Љ','‹','Њ','Ќ','Ћ','Џ','ђ','‘','’','“','”','•','–','—','˜','™',
    'љ','›','њ','ќ','ћ','џ');
    CodeTableDown:array[1..33] of char = ('*','Ў','ў','Ј','¤','Ґ','с','¦','§',
    'Ё','©','Є','«','¬','*','®','Ї','а','б','в','г','д','е','ж','з','и','й',
    'к','л','м','н','о','п');
    CountChar = 33;

var
    str: string;
    n: byte;
    mode: byte;

function Coder (const s: string; const n: integer):string;
var
    i, j: integer;
    s1: string;
begin
    if not(n in [0..32]) then
    begin
        Coder := 'N is NOT IN RANGE';
        exit;
    end;
    s1 := '';
    if length(s) > 0 then
    begin
        for i := 1 to length(s) do
        begin
            if s[i] in ['Ђ'..'џ'] then
            begin
                for j := 1 to CountChar do
                    if CodeTableUp[j] = s[i] then
                        if (CountChar - j) >= n then
                        begin
                            s1 := s1 + CodeTableUp[j+n];
                            break;
                        end
                        else
                        begin
                            s1 := s1 + CodeTableUp[n - (CountChar - j)];
                            break;
                        end;
            end
            else if s[i] in ['*'..'Ї','а'..'п'] then
                 begin
                     for j := 1 to CountChar do
                         if CodeTableDown[j] = s[i] then
                             if (CountChar - j) >= n then
                             begin
                                 s1 := s1 + CodeTableDown[j+n];
                                 break;
                             end
                             else
                             begin
                                 s1 := s1 + CodeTableDown[n - (CountChar - j)];
                                 break;
                             end;
                 end
                 else s1 := s1 + s[i];
        end;
    end;
    Coder := s1;
end;

function Decoder (const s: string; const n: integer):string;
var
    i, j: integer;
    s1: string;
begin
    if not(n in [0..32]) then
    begin
        Decoder := 'N is NOT IN RANGE';
        exit;
    end;
    s1 := '';
    if length(s) > 0 then
    begin
        for i := 1 to length(s) do
        begin
            if s[i] in ['Ђ'..'џ'] then
            begin
                for j := 1 to CountChar do
                    if CodeTableUp[j] = s[i] then
                        if j > n then
                        begin
                            s1 := s1 + CodeTableUp[j-n];
                            break;
                        end
                        else
                        begin
                            s1 := s1 + CodeTableUp[CountChar - (n - j)];
                            break;
                        end;
            end
            else if s[i] in ['*'..'Ї','а'..'п'] then
                 begin
                     for j := 1 to CountChar do
                         if CodeTableDown[j] = s[i] then
                             if j > n then
                             begin
                                 s1 := s1 + CodeTableDown[j-n];
                                 break;
                             end
                             else
                             begin
                                 s1 := s1 + CodeTableDown[CountChar - (n - j)];
                                 break;
                             end;
                 end
                 else s1 := s1 + s[i];
        end;
    end;
    Decoder := s1;
end;

begin
    clrscr;
    Writeln ('Enter string: ');
    Readln (str);
    Writeln ('Enter displacement (can be in [0..32]): ');
    Readln (n);
    Writeln ('Enter work mode (0-code/1-decode):');
    Readln (mode);
    case mode of
        0: Writeln ('Your code: ', Coder(str, n));
        1: Writeln ('Your decode:', Decoder(str, n));
        else Writeln ('Error mode!!!');
    end;
    ReadKey;
end.

P.S.: Отдельное спасибо Mad_Cat