Строки в TurboPascal 7.0

[Сержuk]

Задана строка S='Win 3.1 12345 Turbo Pascal 7.0 Delphi 2.0 3.0 4.0'
Найти порядковые номера всех цифр, встречающихся в строке и их общее количество.
Сформировать новую строку путем добавления к каждой строчной латинской букве в S
соответствующей ей заглавной буквы и удаления цифры 2. Разработать программу с выводом в выходной файл.

Главная проблема что не знаю как использовать команду удаления и добавления в строку.

[Lelya-perinya]

удаление
delete(str,i,n) - удаление из str n символов начиная с позиции i
добавление
вставка insert(str1,str2,i) - вставляет str2 в str1 начиная с позиции i

#:
delete(s,15,6);
после этого s: S='Win 3.1 12345 Pascal 7.0 Delphi 2.0 3.0 4.0'
insert(s,' Borland',14);
после этого s: S='Win 3.1 12345 Borland Pascal 7.0 Delphi 2.0 3.0 4.0'

[Serge_Bliznykov]

к правильным словам Lelya-perinya добавлю.

чтобы пройтись (перебрать) все символы строки s обычно используют такой код

for i:=1 to Length(s) do 
  ... тут можно писать обращение к очередному символу строки
  if s[i] ....

для того, чтобы проверить, является ли очердной элемент строки цифрой:

if s[i] in ['0'..'9'] then ...Это Цифра в позиции i

или можно так:

if (s[i]>='0') and (s[i]<='9') then ...Это Цифра в позиции i

ну и последнее, найти определённый символ в строке можно через функцию Pos( )


и всё. этого (и плюс то, что описала Lelya-perinya ) вполне достаточно, чтобы решить Вашу задачу.

[Сержuk]

А как сделать чтобы к каждой строчной латинской букве добавлялась ей соответствующая заглавная буква?

insert'ом надо пользоваться?



_____________________________
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

[Сержuk]

У меня не выводит новую строку в файл.

VAR S,S1,S2:STRING; OUT:TEXT;
P1,i,X1:BYTE;
BEGIN
S:='Win 3.1 12345 Turbo Pascal 7.0 Delphi 2.0 3.0 4.0';

ASSIGN(OUT,'C:\OUTPUT.TXT');
REWRITE(OUT);
FOR i:=1 TO LENGTH(S) do
BEGIN
X1:=POS('2',S);
DELETE(S,X1,1);
IF S[i] IN ['a'..'z'] THEN
INSERT('A'..'Z',S,1)
END;
WRITE(OUT,S1);
CLOSE(OUT)
END.

[GetMax]

WRITE(OUT,S1);

А что такое S1? Ты же везде работаешь со строкой S. Вот ее и пиши в файл

Write(Out,S)

[Сержuk]

все равно неработает

ошибку выдает в строке INSERT('A'..'Z',S,1)

[Летучий_СкилетиК]

Сообщение от Сержuk

все равно неработает

ошибку выдает в строке INSERT('A'..'Z',S,1)

1. вставляется строка , а не множество
2. нужно вставлять соответсвующий Заглавный символ после строчного, а не все заглавные после каждой строчной...

INSERT(chr(ord(a[i])-32,S,i)

[GetMax]

Так ничего удивительного. Ты пытаешься все множество засунуть в строку. А это не возможно. Вот подправил твою работу. Разбирайся.

i:=1;
While i <= LENGTH(S) do
BEGIN
X1:=POS('2',S);
DELETE(S,X1,1);
IF S[i] IN ['a'..'z'] THEN
Begin
 Insert(UpCase(S[i]),S,i);
 Inc(i)
End;
 Inc(i)
END;

[Сержuk]

А почему пропускается целое слово? И почему не ко всем символам приписывается заглавная буква?

Результат такой: asScaAl 7.0 DeElpPhiI .0 3.0 4.0
А должен быть такой: WiInN 3.1 1345 TuUrRbBoO PaAsScCaAlL 7.0 DeElLpPhHiI .0 3.0 4.0

Или же я ошибаюсь?