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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2017, 17:40   #1
student_23
Новичок
Джуниор
 
Регистрация: 26.01.2017
Сообщений: 7
По умолчанию Проверить задачу на ошибки

Здравствуйте! Просьба проверить на ошибки.
Если таковые имеются. Исправить. Спасибо.

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов с записью в .ini


Код:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;                                        //
    n,i,j,k,sm:integer;   //  
begin
s:=Edit1.Text;
n:=length(s); // 
sm:=0;
i:=1;
while i<=n do //
if s[i]='1' then      
 begin
  k:=0;
  j:=i;
  while(j<=n)and(s[j]='1') do
   begin
    inc(k);
    inc(j);
   end;
  if odd(k) then inc(sm,k);
  inc(i,k);
 end
else inc(i);
memo1.Text:='Количество единиц в группах с нечетным количеством символов='+IntToStr(sm);
ConfigFile.WriteString('Init', 'SourceString', s);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of  // 
'0','1':;
else key:=#0;
end;
    end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ConfigFileDirectory := GetCurrentDir;
  ConfigFile := TIniFile.Create(ConfigFileDirectory + '\Config.ini');
  SourceString := ConfigFile.ReadString('Init', 'SourceString', '1');
  Edit1.Text := SourceString;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ConfigFile.Free;
end;
student_23 вне форума Ответить с цитированием
Старый 26.01.2017, 17:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Просьба проверить на ошибки.
Задаешь несколько разных строк и сравниваешь результат программы и результат на бумаге. Аналогично и по другим задачкам. Это и есть проверка, а не вываливание на форум кучи постов ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет. Delphi. Проверить задачу на ошибки student_23 Помощь студентам 3 27.01.2017 09:45
PHP -> Файлы -> Проверить программу на ошибки Katus Помощь студентам 2 08.02.2012 22:55
Проверить на правильность задачу sam5213 Паскаль, Turbo Pascal, PascalABC.NET 0 23.12.2010 18:28
нужно проверить на ошибки, ассемблер pandamonic Фриланс 2 13.08.2009 22:23