Заменить в символьной строке все буквы "a" на буквы "b"

@Геннадий2234 · Регистрация: 13.11.2019

Студворк — интернет-сервис помощи студентам

Как ужать этот код? Не проходит по скорости на последнем тесте

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var 
s:string; 
i,k,:integer; 
begin 
readln(s); 
k:=0; 
for i:=1 to length(s) do 
case s[i] of 
'a': begin s[i]:='b'; inc(k); end; 
'A': begin s[i]:='B'; inc(k); end; 
'b': begin s[i]:='a'; inc(k); end; 
'B': begin s[i]:='A'; inc(k); end; 
end; 
s.println; 
k.print 
end.

@eaa · 13.11.2019, 18:08

Текст задачи какой? Может у вас алгоритм не правильный.

@Геннадий2234 · 13.11.2019, 18:10 **[ТС]**

Сообщение от eaa

Текст задачи какой? Может у вас алгоритм не правильный.

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , буквы A на буквы B , буквы b на буквы a и буквы B на буквы A .

Входные данные
Входная строка содержит символы латинского алфавита, как строчные, так и заглавные.

Выходные данные
Программа должна вывести в первой строке получившуюся в результате обработки символьную строку, а во второй – количество выполненных замен.

@eaa · 13.11.2019, 18:19

Сообщение от Геннадий2234

Не проходит по скорости на последнем тесте

Значит проблемы со вводом/выводом. Попробуйте через чтение/запись в файл сдать, если есть такая возможность.

@Геннадий2234 · 13.11.2019, 18:20 **[ТС]**

нету, к сожалению

@eaa · 13.11.2019, 18:30

Попробуйте Writeln(s) вместо s.Println.
Также попробуйте добавить это:

Code
1
2
3
4
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  ...

Или перепишите код на FreePascal, скорее всего не обновленный PascalABC.NET на проверяющей системе.

@Sun Serega · 15.11.2019, 08:50

Сообщение от eaa

Значит проблемы со вводом/выводом

При чём тут ввод/вывод если

Сообщение от eaa

Не проходит по скорости

Вывод в файл будет всегда медленнее чем вывод в оперативную память.

Сообщение от eaa

скорее всего не обновленный PascalABC.NET

Обновления PABC.Net не влияют на скорость конечных программ. А вот что влияет - так это говнокод вроде

Сообщение от Геннадий2234

s[i]:=

В .Net строки неизменяемы, поэтому этот код создаёт 100500 строк с небольшими различиями.
Если нужны изменяемые строки - надо использовать StringBuilder.
А в данном случае - сохранять назад вообще не надо, лучше сразу в вывод:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  var n := 0;
  foreach var ch in ReadString do
    case ch of
      'a': begin Write('b'); n+=1; end;
      'A': begin Write('B'); n+=1; end;
      'b': begin Write('a'); n+=1; end;
      'B': begin Write('A'); n+=1; end;
      else Write(ch);
    end;
  Writeln;
  Write(k);
end.

P.S. ну и глобальные переменные - это тоже медленно. Тут запись в счётчик идёт очень часто, поэтому влиять тоже может. Но основной проблемой были однозначно строки.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@eaa Status 418 4584 / 2350 / 601 Регистрация: 26.11.2017 Сообщений: 5,262 Записей в блоге: 3
	13.11.2019, 18:08
	Текст задачи какой? Может у вас алгоритм не правильный. 0

@Геннадий2234 0 / 0 / 0 Регистрация: 13.11.2019 Сообщений: 3
	13.11.2019, 18:20 [ТС]
	нету, к сожалению 0

Заменить в символьной строке все буквы "a" на буквы "b"

Решение