Замена слов

[Лесная Эльфийка]

Составить программу, с помощью которой можно в заданном тексте все слова "один", "два" и т.д. заменить на соответствующие цифры "1","2" и т.д.

Program Slova;
uses crt;
   const mst: array [1..9] of string = ('один',два,'три,'четыре',
                                        'пять','шесть','семь','восемь','девять');

   var s,ss: string;
       i,p,k: integer;
       Procedure Zamena;
        begin  delete(s,p,length(mst[i]));
                    str(k,ss);
                    insert(ss,s,p)
        end;
BEGIN
   writeln('Введите строку:');
   readln(s);
   for i:=1 to length(s) do
   begin
     k:=k+1;
     p:=pos(mst[k],s);
     if p<>0 then Zamena;

     if k=9 then k:=0;
   end;
   writeln(s);
   readln;


END.

Можно ли переделать эту программу, чтобы она заменяла слова не только один раз?

[goto ∞]

Для начало поправь массив..
Все слова должны быть в кавычках...

[Лесная Эльфийка]

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

[goto ∞]

Проверил и вот результат..

Еще раз говорю, поправьте все в разделе описания переменных ..

[Son Of Pain]

program tt2;
const words:array[1..9] of string=(
'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
var s:string;
i,j:integer;
begin
writeln('Введите строку: ');
readln(s);
for i:=1 to 9 do begin
j:=pos(words[i], s);
while j>0 do begin
delete(s, j, length(words[i]));
insert(chr(i+48), s, j);
j:=pos(words[i], s);
end;
end;
writeln('Результат: ', s);
readln;
end.

Только компилятора нет под рукой, так что проверяй, могут быть ошибки )

[Лесная Эльфийка]

Введи: два два два два

Son Of Pain, спасибо, работает. =^_^=

[goto ∞]

Вот сам код(отличие в вводе/выводе)

Вот сам код(отличие в вводе/выводе только)

var s,ss : string; i,p,k : integer;
    const mst: array [1..9] of string = ('один','два','три','четыре',
'пять','шесть','семь','восемь','девять');
procedure Zamena;
begin
delete(s,p,length(mst[i]));
str(k,ss);
insert(ss,s,p);
end;

begin
 s := edit1.Text;
 k := 0;
 for i:=1 to length(s) do
  begin
   inc(k);
   p:=pos(mst[k],s);
   if p<>0 then Zamena;
   if k=9 then k:=0;
 end;
  label1.Caption := s;
 end;

[Лесная Эльфийка]

Сообщение от goto ∞

Проверил и вот результат..

Еще раз говорю, поправьте все в разделе описания переменных ..

не только один раз

insert(chr(i+48), s, j); - эт кстати что значит? ОО

[Son Of Pain]

У тебя в переменной i сейчас номер слова. Если его перевести в строку, это всегда будет один символ (ибо цифры от 1 до 9). Коды цифр в таблице ascii начинаются с 48, следовательно, прибавляя 48 к одноцифровому числу ты получаешь его символьное представление. Короче говоря, это чтобы лишний раз не вызывать str :D

[Лесная Эльфийка]

Сообщение от goto ∞

Вот сам код(отличие в вводе/выводе)

Вот сам код(отличие в вводе/выводе только)

var s,ss : string; i,p,k : integer;
    const mst: array [1..9] of string = ('один','два','три','четыре',
'пять','шесть','семь','восемь','девять');
procedure Zamena;
begin
delete(s,p,length(mst[i]));
str(k,ss);
insert(ss,s,p);
end;

begin
 s := edit1.Text;
 k := 0;
 for i:=1 to length(s) do
  begin
   inc(k);
   p:=pos(mst[k],s);
   if p<>0 then Zamena;
   if k=9 then k:=0;
 end;
  label1.Caption := s;
 end;

текстовый файл то зачем? Смысле усложнение только