Форум программистов [Powered by Invision Power Board]

Код


Console.Write("Введіть слово для кодування: ");
            string a = Console.ReadLine();
            Console.Write("Введіть висоту частоколу: ");
            string b = Console.ReadLine();
            
            int c = Convert.ToInt32(b);
            if (c > a.Length) Console.WriteLine("Висота частокола більша за слово!");
            else            
                for (int y = 0; y != c; y = y + 1)
                {
                    for (int i = y; i < a.Length; i = i + c)
                    {
                        Console.Write(a[i]);
                    }                 
                }                                 
            Console.ReadKey();

Код


import java.util.Scanner;
import java.io.PrintStream;

public class Code {
    public static void main(String[] arg) {
    // Это техническая часть не имеющая отношения к задаче.
    String consoleEncoding = System.getProperty("consoleEncoding");
    if (consoleEncoding != null) {
        try {
         System.setOut(new PrintStream(System.out, true, consoleEncoding));
        } catch (java.io.UnsupportedEncodingException ex) {
         System.err.println("Unsupported encoding set for console: "+consoleEncoding);
        }
    } else {
        try {
         System.setOut(new PrintStream(System.out, true, "cp866"));
        } catch (java.io.UnsupportedEncodingException ex) {
         System.err.println("Unsupported encoding set for console: "+"cp866");
        }
    }

        // Собственно начало решения
        int hi;
        if (arg.length<2) {
             System.out.println("Использование: java Code a word");
             System.out.println("    a - высота частокола, word - обрабатываемое слово");
             System.out.println("    если высота частокола положительна то кодируем");
             System.out.println("    если высота частокола отрицательна то декодируем");
             return;
        }
        Scanner sc = new Scanner(arg[0]);
        if (sc.hasNextInt())
            hi=sc.nextInt();
        else {
            System.out.println("Недопустмая высота:"+arg[0]);
            return;
        }
        String s; 
        if (hi>0) {
            // Кодируем
            s = new Code().code(hi,arg[1]);
        } else {
            // Декодируем
            s = new Code().decode(-hi,arg[1]);
        }
        System.out.println(s);
    }

    public String code(int hi, String w){
        int l = w.length();
        int ad = -1;
        String work[] = new String [hi];
        for (int i=0;i<hi;i++){
            work[i] = "";
        }
        // Собственно кодирование
        int h = hi-1;
        for (int i=0; i<l; i++){
            work[h]+=w.charAt(i);
            h+=ad;
            if (h==0){
                ad=1;
            } else if (h==hi-1){
                ad=-1;
            }
        }
        // Собираем результат
        String ss = "";
        for (int i=0;i<hi;i++){
            ss=ss+work[i];
        }
        return ss;
    }

    public String decode(int hi, String w){
        int l = w.length();
        // вычисляем число символов с разной высотой
        int hh[]=new int [hi];
        int wh=l/(2*hi-2); // столько было у всех
        for (int i=1; i<hi-1;i++){
            hh[i]=wh*2;
        }
        hh[0]=wh;
        hh[hi-1]=wh;
    wh=l % (2*hi-2); // столько было не у всех
    for (int i=hi-1;i>=0&&wh>0;i--){
        hh[i]++;
        wh--;
    }
    if (wh>0) {  // что - то осталось
        for (int i=1;wh>0;i++){
            hh[i]++;
            wh--;
        }
    }
    // Разбираем строку на подстроки
        String work[] = new String [hi];
    wh=0;
    for (int i=0; i<hi;i++){
        work[i]=w.substring(wh,wh+hh[i]);
        wh+=hh[i];
        hh[i]=0;
    }
    // собираем результат
        int ad = -1;
        // Собственно кодирование
        String ss = "";
        int h = hi-1;
        for (int i=0; i<l; i++){
            ss+=work[h].charAt(hh[h]++);
            h+=ad;
            if (h==0){
                ad=1;
            } else if (h==hi-1){
                ad=-1;
            }
        }
        return ss;
    }
}

Цитата(GodOFCod @ 14.1.2012, 15:29

)

Спасибо Mirkes но мне надо программу на Delphi или C/C + +.

Код


program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

Function Code(Hi: Integer; W: String): String;
Var
  I, L, H, Ad: Integer;
  Work: Array Of String;
Begin
  L := Length(W);
  Ad := -1;
  SetLength(Work, Hi);
  For I := 0 To Hi - 1 Do
    Work[I] := '';
  // Собственно кодирование
  H := Hi;
  For I := 1 To L Do
  Begin
    Work[H - 1] := Work[H - 1] + W[I];
    H := H + Ad;
    If H = 1 Then
      Ad := 1 // Переключаем направление изменения высоты
    Else If H = Hi Then
      Ad := -1; // Переключаем направление изменения высоты
  End;
  // Собираем результат
  Result := Work[0];
  For I := 1 To Hi - 1 Do
    Result := Result + Work[I];
End;

Function Decode(Hi: Integer; W: String): String;
Var
  I, L, H, Wh: Integer;
  HH: Array Of Integer;
  Work: Array Of String;
Begin
  L := Length(W);
  SetLength(HH, Hi);
  SetLength(Work, Hi);
  // вычисляем число символов с разной высотой
  Wh := L / (2 * Hi - 2); // столько было у всех
  For I := 1 To Hi - 2 - 1 Do
    HH[I] := Wh * 2;
  HH[0] = Wh;
  HH[Hi - 1] = Wh;
  Wh = L mod (2 * Hi - 2); // столько было не у всех
  I := Hi - 1;
  While (I >= 0) And (Wh > 0) Do
  Begin
    Inc(HH[I]);
    Dec(Wh);
    Dec(I);
  End;
  if (Wh > 0) Then // что - то осталось
  Begin
    I := 1;
    While Wh > 0 Do
    Begin
      Inc(HH[I]);
      Dec(Wh);
      Inc(I);
    End;
  End;
  // Разбираем строку на подстроки
  Wh = 1;
  For I := 0 To Hi - 1 Do
  Begin
    Work[I] := Copy(W, Wh, HH[I]);
    Wh := Wh + HH[I];
    HH[I] := 0;
  End;
  // собираем результат
  Wh := -1;
  // Собственно декодирование
  Result := '';
  H := Hi - 1;
  For I := 1 To L Do
  Begin
    Result := Result + Work[H, HH[H]];
    Inc(HH[H]);
    H := H + Wh;
    If H = 0 Then
      wh := 1 // Переключаем направление изменения высоты
    Else If H = Hi - 1 Then
      wh := -1; // Переключаем направление изменения высоты
  End;
End;

Var
  Hi: Integer;
  C: Char;
  Word, Answer: String;

begin
  WriteLn(' ‚ўҐ¤ЁвҐ Є®¬ ¤г (c - Є®¤Ёа®ў вм, d - ¤ҐЄ®¤Ёа®ў вм)');
  ReadLn(C);
  WriteLn(' ‚ўҐ¤ЁвҐ ўлб®вг з бв®Є®« ');
  ReadLn(Hi);
  If (IOResult <> 0) Or (Hi < 2) Then
  Begin
    WriteLn('ЌҐўҐа® § ¤   ўлб®в  з бв®Є®« ');
    Halt;
  End;
  WriteLn('‚ўҐ¤ЁвҐ Є®¤ЁагҐ¬го бва®Єг');
  ReadLn(Word);
  If UpperCase(C) = 'C' Then
    Answer := Code(Hi, Word)
  Else
    Answer := Decode(Hi, Word);
  WriteLn(Hi);
  WriteLn(Word);
  WriteLn(Answer);

end.