Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.01.2015, 17:13   #11 (permalink)
ИриSka-147
Новичок
 
Регистрация: 18.01.2015
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

у меня авс.net
ничего не получается
ИриSka-147 вне форума   Ответить с цитированием

Старый 19.01.2015, 17:13
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Довольно частая проблема, нашлись похожие темы

Паскаль, строки
Паскаль, строки

Старый 19.01.2015, 17:22   #12 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от ИриSka-147 Посмотреть сообщение
у меня авс.net
ничего не получается
Извините, но, как видите - программу я совсем не переделывал (кроме замены кириллицы латиницей в сообщениях и добавления останова в самом конце), однако в моём DOS Free Pascal она работает "на ура", как и должна, ибо, насколько могу судить, написана абсолютно грамотно и ошибок (ну, если не считать read/readln) не содержит.
Я уже неоднократно высказывал здесь своё мнение по поводу этого не при дамах будь сказано изделия №2 по имени АВС, думал, хоть .NET лучше, но, похоже, того же и столько же и тем же самым по тому же месту.
Ну что же, попытайтесь отладить всякими там остановами, выводом промежуточных результатов и т.п., чтобы понять, на чем эта дрянь спотыкается. Я Вам тут, к сожалению, не помощник.
Vladimir_S вне форума   Ответить с цитированием
Старый 19.01.2015, 17:26   #13 (permalink)
ИриSka-147
Новичок
 
Регистрация: 18.01.2015
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое)
ИриSka-147 вне форума   Ответить с цитированием
Старый 19.01.2015, 19:38   #14 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Есть одна гипотеза. Попробуйте такой вариант:
Код:
Uses CRT;
Var
 s:string;

Function RAR(s:string):string;
var
 s1,s2: string;
 i,j,k: integer;
begin
 s1:='';
 i:=1;
 while i<=length(s)-1 do
  begin
   if s[i]=s[i+1] then
    begin
     k:=1;
     j:=i;
     repeat
      k:=k+1;
      j:=j+1;
     until s[j]<>s[j+1];
     str(k,s2);
     s1:=s1+s[i]+'('+s2+')';
     i:=i+k;
    end
   else
    begin
     s1:=s1+s[i];
     i:=i+1;
    end;
  end;
 if s[length(s)]<>s[length(s) - 1] then s1:=s1+s[length(s)];
 RAR:=s1;
end;

Begin
 write('Enter the string: ');
 Readln(s);
 write('Compressed string: ', RAR(s));
 ReadKey
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:11.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.