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.

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

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

19a52bf9db373e8143f3dfa6980ac9fb.pas

Answer 2

Нужно еще.... максимальное ремя программы 2.09 , а эта программа занимает 2.106
Я уже сколько голову ломаю , как это сделать.... ничего в голову не приходит.....

Answer 3

Можно узнать, где я могу проверить задачу?

Answer 4

https://informatics.msk.ru/mod/statements/view3.php?id=11250&chapterid=112337#1

Answer 5

Вовсе необязательно было давать ссылку, но ладно

Answer 6

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

Answer 7

В этой тестирующей системе Free Pascal что - то глючит. Оформите программу как консольное приложение Delphi, добавив несколько строк в начало файла и выберите транслятор Delphi 6 Borland, все тесты проходит без проблем. Расширение файла с программой сделайте dpr. program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s: string;
i,k: longint;
f: text;
begin
assign(f,'input.txt');
reset(f);
k:=0;
readln(f,s);
close(f);
Далее по тексту.