Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2011, 17:20   #11
WebbMan
Форумчанин
 
Регистрация: 16.01.2011
Сообщений: 168
По умолчанию

Цитата:
repeat
read(c);
if c<>'.' then inc(Cnt[c]);
until c='.';
спасибо учла...

Сделала, только вот результат кривой почему то...

Может кому пригодится вот:
Код:
var
  cnt : array[char] of integer;
  c : char;
  g : integer;
  y : char;
  i : integer;
  a,Size : integer;
  arr,two_string : string;
begin
  for c:=Low(cnt) to High(Cnt) do cnt[c] := 0;

  repeat
    read(c);
    if c<>'.' then inc(Cnt[c]);
  until c='.';

  {ўлў®¤ १г«мв*в*}
  for c:=Low(cnt) to High(Cnt) do
    if cnt[c]>0  then
    {   WriteLn('‘Ё¬ў®«: ',c,' Є®«ЁзҐбвў®: ',cnt[c]); }
       if cnt[c] mod 2 = 0 then begin
        a:=cnt[c] div 2;
        for i:=1 to a do arr:=arr+c;



         end

       else if cnt[c] > g then begin g:=cnt[c]; y:=c; end;

       g:=g div 2;
       for i:=1 to g do arr:=arr+y;
     {  arr:=arr+y; }
       writeln('получили нужную нам половину: ',arr);


       Size:=SizeOf(arr);

       for i:=1 to Size  do
     {  writeln(arr[Size-i]); }
        two_string:=two_string+arr[Size-i];
         writeln('перевернули',two_string);
      write(arr+y); write(two_string);
  readln;

end.
WebbMan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчитать количество букв "А" в предложении и общее количество букв.В тексте из файла несколько строк. kvas91 Общие вопросы C/C++ 3 14.11.2010 16:51
Подсчитать количество слов и количество букв MDSIQ Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 13.11.2010 16:57
Посчитать количество введенных двоек Coder01 Общие вопросы Delphi 4 23.08.2010 19:38
подсчитать кол-во букв Naposaram Общие вопросы Delphi 3 10.03.2009 16:17