Question

Помогите уменьшить время программы, все тесты проходит, проблема только во времени (на языке паскаль) var s:string ; var k,i:integer; begin readln(s); k:=0; for i:=1 to length(s) do if s[i]='a' then begin s[i]:='b'; k:=k+1; end; for i:=1 to length(s) do if s[i]='A' then begin s[i]:='B'; k:=k+1; end; writeln(s); writeln(k); end.

Answer 1

Код (Pascal)

var

 s: string;

 k, i: integer;

begin

 readln(s);

 k := 0;

 for i := 1 to length(s) do

   if s[i] = 'a' then

   begin

     s[i] := 'b';

     k := k + 1;

   end

   else if s[i] = 'A' then

   begin

     s[i] := 'B';

     k := k + 1;

   end;

 writeln(s);

 writeln(k);

end.

-----------------------------------------

Файл с решением прикреплён.

Answer 2

На Паскале если используются переменные типа string, то обработка строки занимает ну ооооочень много времени.  Вместо string лучше использовать массив char.  На скринах приведен пример программ с использованием char.  Символы считывались из файла , размер 20000.  Время работы программ (разницу) оцените сами.

Answer 3

Для уменьшения времени выполнения программы можно использовать другой подход. Вместо того, чтобы проходить по строке два раза и заменять символы 'a' и 'A', вы можете выполнить замену символов в одном проходе. Вот более оптимизированный вариант вашей программы на языке Pascal:

pascalCopy code
var
  s: string;
  k, i: integer;
begin
  readln(s);
  k := 0;

  for i := 1 to length(s) do
  begin
    if (s[i] = 'a') or (s[i] = 'A') then
    begin
      s[i] := 'b';
      k := k + 1;
    end;
  end;

  writeln(s);
  writeln(k);
end.

В этой версии программы мы проходим по строке только один раз и заменяем символы 'a' и 'A' на 'b', если они соответствуют условию. Это должно существенно ускорить выполнение программы, так как мы избегаем второго прохода по строке.