Лёгкая задача на строки!

[ldx]

Здравствуйте,помогите пожалуйста решить!
Каждый символ в тексте кроме пробела и точки,заменить его порядковым номером.

здесь будет цикл но как написать?
как использовать процедуру “str” ?
Заранее спасибо!

[Карась]

Посмотри вот этот пример. Старый какойто исходник. По сути идёт ввод с клавы и определяется наименьший код введённых знаков.

Этово должно быть достаточно чтобы понять какие функции надо использовать...

Uses Crt;

Var Key:Char;
    Min : Integer;

Begin
TextBackground(0);
TextColor(5);
ClrScr;

Min := 255;

Repeat
      ReadLn(Key);
      If Ord(Key) < Min Then Min := Ord(Key);
Until Key = '*';

Writeln('Меньшее значение (', Min,') имеет символ ', Char(Min));
ReadKey;
End.

[ldx]

спасибо!!!

[puporev]

как использовать процедуру “str” ?

Правильно ведь мыслил, да старшие товарищи с толку слегка сбили, это они могут. Тебе ведь порядковые номера в массиве(строке) нужны, а не коды в таблице, поэтому Ord здесь не рулит, а нужно так:

uses crt;
var s,s1,t:string;
    i:integer;
begin
clrscr;
write('s: ');readln(s);
s1:='';
for i:=1 to length(s) do
   begin
    if (s[i]=' ')or(s[i]='.')then
     s1:=s1+s[i] else
       begin
        str(i,t);
        s1:=s1+t;
      end;
   end;
writeln(s1);
readln
end.

[Карась]

Эуа... неправильно понял условие
Извиняюсь....

[ldx]

puporev спасибо!!!