IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Строки, Работа со строками
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Помогите с написанием программы:
Создать приложение, предлагающее пользователю ввести строку текста, затем печатает все слова, заканчивающаяся и начинающаяся на заданную букву в тексте и подсчитывает количество таких слов (подстроки отделяются пробелом). Заменить заданную букву на '!' и подсчитать количество таких замен.

Частичный код на Паскале(нужно на Delphi):
program xa_va;
var
st:string;
procedure sum_;
var
s:string;
i,j:integer;
begin
writeln('vvedite bykvy');
readln(s);
while (pos(' ',st)>0) do
begin
j:=pos(' ',st);
if (st[1]=s) and (st[j-1]=s)
then begin
for i:=1 to j-1 do
write(st[i]);
end;
write(' ');
delete(st,1,j);
end;
end;
BEGIN
writeln('vvedite ctroky');
readln(st);
sum_;
readln;
END.


Сообщение отредактировано: 7777 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2020 4:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name