Задача в паскале

bboyedance · 29.09.2010, 18:28

Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.

Vladimir_S · 29.09.2010, 21:03

Цитата:

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

Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.

Пожалуйста. Только учтите, что программа предназначена для работы только с ЛАТИНИЦЕЙ, и литера "а" тоже должна быть, соответственно, латинской. С кириллицей, во избежание проблем с кодировками, предпочитаю не связываться.

Код:

VAR
 S:STRING;
 L:Char;
 i:INTEGER;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 For i:=1 to Length(S) do
  If S[i]<>'a' then Write(S[i]);
 WriteLn;
 WriteLn('Enter the letter to replace "a":');
 ReadLn(L);
 For i:=1 to Length(S) do
  If S[i]='a' then Write(L) else Write(S[i]);
 WriteLn;
 ReadLn;
END.

29.09.2010, 18:28	#1 (permalink)
bboyedance Новичок Регистрация: 29.09.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в паскале Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.

29.09.2010, 18:28
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Схожие топики помогут пролить свет на решение вопроса Задача на массивы в Паскале Задача на Паскале и С++ Задача на Паскале Задача на Паскале Задача на Паскале Задача на Паскале...

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070