PascalABC.NET почему memory limit? Шифр Юлия Цезаря

[Eugene_41]

www

[Serge_Bliznykov]

ну, если не брать во внимание "магическое" число 120, то я бы заменил Read(st) на ReadLn(st)
и Write(st) на WriteLn(st)


поясню своё замечание насчёт 120.
согласитесь, что так лучше:

if st[i]>='x' then

[Eugene_41]

Не помогает

[Serge_Bliznykov]

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

Не помогает

очень странно
сочувствую.

а если попробовать завести дополнительную строку, куда собирать результат?
типа

srez := '';
.....
srez := srez + chr(ord(.....

либо поменяйте алгоритм.
забудьте про ord и chr
заведите строчку со всеми буквами алфавита, ищите в ней позицию через Pos, вычисляете новый индекс в строке и берите символ оттуда.

кстати, а почему именно PascalABC.NET ?
там нельзя выбрать что-то более вменяемое?

[Serge_Bliznykov]

взял PascalABC.NET версии 3.0 и получил ошибку. он не понимает input ??!!

попробуйте такой код

var
   f,f2 : TextFile;
   st : string[200];
   i : byte;
begin
    Assign (f, 'input.txt');
    Assign (f2 , 'output.txt');
    ReSet (f);
    ReWrite (f2);
    Read(f,st);     
    Close(f);
      for i:=1 to Length(st) do       
        if st[i] >= 'x' then
          st[i] := chr(ord(st[i]) - 23)
        else   
          st[i] := chr(ord(st[i]) + 3);
         
         
    write(f2,st);    
    Close(f2);
    
end.

[Eugene_41]

Не работает

[Serge_Bliznykov]

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

Не работает

беда-печаль...

а какую ошибку выдаёт? Неужели так же ML?

а если заменить String на ShortString что будет?

var
   st : ShortString;

Потребление памяти какое будет?
Ошибка будет такая же или другая?

Либо попробуйте переписать с использованием StringBuilder

p.s. имхо, зря Вы с этим уродцем PascalABC.NET связались. Чтобы его использовать, нужно понимать, что такое .NET Framework и как он работает.

[Serge_Bliznykov]

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

А у Вас последняя версия PascalABC.NET ?

так ошибку выдаёт не его компьютер.
судя по скриншоту, он выгружает файл на какой-то сервер, тот запускает код онлайн и выдаёт результаты - прошёл тесты или нет.
ну, для примера, см. https://acmp.ru/ https://www.e-olymp.com/ru/ и т.п.

[Вадим Мошев]

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

так ошибку выдаёт не его компьютер

Это был спамер, написал бессмысленный пост, вставил скрытую ссылку и ушёл. Не надо ему отвечать.