Задачи по Паскалю

[Сильванович Михаил]

#3

Может кто-то знает короче способ?

const 
 c = '0'..'9';

var
 i: integer;
 str: string;

begin
 write('Instert any string: ');
 readln(str);
 for i:=1 to length(str) do
  if str[i] in c then
   begin
    if str[i]<>'0' then str[i]:=Chr(Ord(str[i])-1) else str[i]:='.';
   end;
  write('полученная строка = ',str);
  readln;
end.

[Stilet]

Может так короче :
uses crt;
var c:char;s:string;
begin
repeat
c:=readkey;write(c);
if c in ['0'..'9'] then
if c <> '0' then s:=s+chr(ord(c)-1)
else s:=s+'.' else s:=s+c;
until c=#13;
writeln;writeln(s);
end.

[Net]

Использовать асмовский трюк с "Chr(Ord(str[i])-1)". Заменить это на Dec(str[i]). Компилер так и поступает, но здесь будет декремент сразу в памяти, без лишних пересылок туда-сюда по регистрам.
Константу не трогаем, код меньше не станет, потеряем в гибкости.

const c = ['0'..'9'];
var i: integer;
    str: string;

begin
    write('Instert any string: ');
    readln(str);
    for i:=1 to length(str) do
        if str[i] in c then
        begin
            if str[i] <> '0' then dec(str[i]) 
            else str[i]:='.';
        end;
    write('полученная строка = ',str);
    readln;
end.

Stilet, делать подобные склейки s:=s+c в цикле - убийство производительности. На каждый единственный символ будет вызываться менеджер памяти, и перераспределять память под строку - куча лишнего кода и тормоза. Нет, ну естественно, если этот цикл будет крутиться в приличной программе, с важным назначением. Не считайте за придирки

[Stilet]

Ну вообще то в Паскале строка всего лишь 255 символов, так что распределение памяти не особо будет стараться. Хотя конечно с уже введенной строкой тоже можно работать без особых проблем. Весь вопрос в том что автор имел ввиду под краткостью - короче читабельный код или машинный.
А про DEC я и забыл.

[Alex21]

Хочу напомнить задание:

3 - Заменить в группах символов, состоящих только из цифр, все цифры предыдущими по значению цифрами, а '0' заменить на точку.
Например, строка: ‘ 6е-1 75 bа12 123‘ ; результат: ‘ 6е-1 64 bа12 012‘

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

[Stilet]

Блин я как всегда задание провтыкал. Вот примерчик на мой взгляд короче

uses crt;
var k,e,s:string;i:integer;c:char;b:boo lean;
begin
b:=true; clrscr;
repeat
c:=readkey;b:=true; write(c);
while (c<>#13)and(c<>' ') do begin k:=k+c;
if (c<'0')or(c>'9') then begin s:='';b:=false;end
else begin dec(c);s:=s+c;end;
c:=readkey;write(c);
end;
if b then
e:=e+s
else
e:=e+k;
e:=e+' ';s:='';k:='';
until c=#13;
writeln;writeln(e);
end.