Работа со строками. Turbo Pascal

[JayDe]

Составить программу, которая:

• вводит три слова в разные строковые переменные;

• объединяет введенные строки с учетом разделения слов точкой с запятой и пробелом;

• определяет длину полученного предложения;

• выводит четвертый с начала и с конца символ предложения;

• удалить букву «b» в предложении.

Буду очень признателен Вам за помощь!!!

[Stilet]

вводит три слова в разные строковые переменные;

Например так:

s:='Я знаю три слова';
i:=1;while (i<=length(s)and(s[i]<>' ') do s1:=s1+s[i];inc(i);
while (i<=length(s)and(s[i]<>' ') do s2:=s2+s[i];inc(i);
while (i<=length(s)and(s[i]<>' ') do s3:=s3+s[i];

По остальным ждем твоих наработок

[maladoy]

2

s11:='; ';
st:= s1+s11+s2+s11+s3;

3

len:=length(st);

5

for i:=1 to len do
if st[i]='b' then
begin
 delete(st,i,1);
end;

4

 writeln(st[4]);//4 сначала
writeln(st[len-4]); //4 с конца

собирайте сами в кучу!а вообще вам сюда

[XuTpbIu]

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

5

for i:=1 to len do
if st[i]='b' then
begin
 delete(st,i,1);
end;

не сработает, т.к. удаляя символ у тебя уменьшится длина строки и случится какой-нить AV. Лучше так:

while pos('b', st) <>0 do
  delete(st, pos('b', st), 1);

[maladoy]

не сработает, т.к. удаляя символ у тебя уменьшится длина строки и случится какой-нить AV.

а вы в этом уверены молодой человек?
все работает!!! Проверьте

program st1;
var i,len:integer;
st:string;
begin
st:='sddsgdbsdsdbsdsdsbdss';
len:=length(st);
for i:=1 to len do
if st[i]='b' then
begin
 delete(st,i,1);
end;
writeln(st);
readln;
end.

[Stilet]

maladoy

Вот так и получаются дыры в прогах...
while надежнее, тут я с Хитрым согласен, хотя твой код не критикую.

[maladoy]

если топикстартеру по барабану как она будет решена через while через for мне то уж подавно! а чем надежнее то?

[XuTpbIu]

Не могу теперь не согласиться... но всё равно зачем выполнять лишнии итерации

[Stilet]

а чем надежнее то?

А тем что в While можно много условий сразу проверить а в for только одно.

While вообще лучший из циклов

[XuTpbIu]

maladoy
в твоём примере саму строку то ты порежешь, и она правильной длины будет, а вот когда ты вылазишь за ее границу ты можешь убить "чужие" данные и если там попадется "b" то ты испортишь не относящуюся к этой переменной область памяти