Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 180409
22.10.2010, 14:13
0.00 руб.
0 2 2
Компьютеры Программирование
Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста, решить задачу:

Разработать программу, которая для заданной строки s выводит на экран последовательность символов, расположенных после последнего двоеточия.

(пользуюсь программой ABC)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
22.10.2010, 14:58
общий
это ответ
Здравствуйте, verona!

Смотрите приложение. Программа простая, комментировать особо нечего.
Удачи!

Приложение:
var
s:string;
begin
write('Enter string:');
readln(s);
if pos(':',s)>0 then
while pos(':',s)>0 do
delete(s,1,pos(':',s))
else s:='Error:There is no symbol ":"';
writeln('Result:',s);
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
lamed
Академик
320937
2216
22.10.2010, 15:03
общий
это ответ
Здравствуйте, verona! ABC-Pascal
Код:

program p180409;
{ Программа для заданной строки s выводит на экран последовательность символов,
расположенных после последнего двоеточия. }
var // раздел переменных
  i  : integer;
  len: integer;
  s  : string;
begin // раздел операторов
  write('Строка s=');
  readln(s);
  if trim(s)='' then
    writeln('пустая строка')
  else
    begin
      len := length(s);
      i:= len; // установили счетчик на конец строки
      while (i>=0) and (s[i]<>':') do
        i:= i-1; // и идем влево до первого справа появления двоеточия или до начала строки
      if i<0 then
        writeln('нет двоеточий')
      else if (i=len) then
        writeln('после последнего двоеточия пусто')
      else
        writeln(copy(s,i+1, len-i));
    end
end.


Примеры работы
Код:

Строка s=123:456
456
Строка s=123:456:456::456
456
Строка s=
пустая строка
Строка s=123456
нет двоеточий
Строка s=123:
после последнего двоеточия пусто


Форма ответа