Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
Вернуться
Тема: Напишите пж прогу на паскале!!!№6 Дана строка. Словом текста считается любая последовательность цифр; между соседними словами - не менее одного пробела, за последним словом – точка. Найти и сохранить в строке те слова текста, которые образованы неубывающей последовательностью символов. Все остальные слова удалить.
1
  1  Мейрам Ерасыл, 11 октября 2018 г. 17:33:59
      [p[
  2  Неизвестный, 06 октября 2018 г. 17:38:44
      Разбиваете строку на слова

readln(s);
s1:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
d:=ord(s[i]);
if d<97 then
begin
d:=d+32;
q1:=chr(d);
s[i]:=q1;
end;
end;
end;
repeat
d:=pos(' ',s);
if d<>0 then s1:=copy(s,1,d-1) else s1:=s;
//s1 ето вашое слово,только я тут перебираю слова и удаляю их после етого,а вы не удаляйте а смотрите
неубывающее оно а если нет то удаляете
delete(s,1,d);
s1:='';
until d=0
Можно легко переделать ето на вашу програму но я етого делать не буду
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

Красноярский краевой Дворец пионеров, (c)2006 - 2018, ICQ: 151483, E-mail: admin@acmp.ru