Операции со строками,как написать проограмму

[lialia]

Известно что в начале строке s длиной не более 40 символов находится не более 25 латинских букв за которыми следуют пробелы. напечатать эту строку предварительно удалив все вхождения th. Символ пробел заменить символом умножить(*).

[Sciv]

И Вам доброй ночи, повелитель!

как написать проограмму

Вкурить задание до полного просветления, разработать алгоритм (возможно, с блок-схемой), запустить паскаль и записать алгоритм в виде программы.

А серьезно - в чем конкретно затруднения?

[Stilet]

предварительно удалив все вхождения th

i:=pos('th',s);
while i<>0 do begin delete(s,i,2);i:=pos('th',s);end;

Символ пробел заменить символом умножить(*).

i:=pos(' ',s);
while i<>0 do begin s[i]='*';i:=pos(' ',s);end;

s - Строка i - целая переменка

[lialia]

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

И Вам доброй ночи, повелитель!



Вкурить задание до полного просветления, разработать алгоритм (возможно, с блок-схемой), запустить паскаль и записать алгоритм в виде программы.

А серьезно - в чем конкретно затруднения?

затруднение во всем , начиная с самого начала))даже не знаю с чего начать,помогитеи пжлст

[Sciv]

затруднение во всем , начиная с самого начала))даже не знаю с чего начать,помогитеи пжлст

Начать нужно с объявления переменных. Одна, типа string, у Вас будет точно - это исходная строка. Вторая, типа integer - позиция подстроки в строке. Дабы не отрываться от кода, предложенного Stilet'ом:

Var s: string;
    i: integer;

Далее оформляем программу. Текст кода программы пишется между операторами begin и end.

Первым делом вводим строку:

begin
  ReadLn(s);
  ...
  WriteLn(s);
  ReadLn;
end.

Вместо многоточий пишите код Виталия. В конце программы - выводим строку. Оператор ReadLn нужен, чтобы программа не закрывалась сразу, а ждала нажатия ентера.

[lialia]

спасибо)а скажите как сделать так ,чтобы выполнялось что в строке s длиной не более 40 символов находится не более 25 латинских букв?я имею ввиду что если будет более 25 букв,чтобы выдывало false ,или если длинна строки более 40 символов

[MihalNik]

Известно что в начале строке s длиной не более 40 символов находится не более 25 латинских букв

Т.е. это же вроде как дано изначально?
Но если что:

if length(s)>40 then writeln('в строке более 40 символов')
else begin
{основной код}
end;

[lialia]

спасибо =)