Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2016, 18:09   #1
maxwelln1
Пользователь
 
Регистрация: 07.10.2016
Сообщений: 23
По умолчанию Продемонстрировать описание решения данной программы с использованием функций.

Код:
var
  s,r,t,t1,t2,p:string;
begin
  write('введите строку:');
  readln(s);
  s:=s+' ';t:='';t:='';
  for i:integer:=1 to length(s) do 
    if s[i]<>' ' then t:=t+s[i] else begin 
      t1:='';
      t2:='';
      p:='';
     for j:integer:=1 to length(t) do 
       if t[j] in ['0'..'9'] then t1:=t1+t[j] else t2:=t2+t[j];//строку разделили на строку цифр и строку букв
     for j:integer:=length(t1) downto 1 do p:=p+t1[j];//записали цифры в обратном порядке в начало строки;
     r:=r+p+t2+' ';t:='';
   end;
  s:=r;  
  writeln(s);
end.
Продемонстрировать описание решения данной программы с использованием функций.

Последний раз редактировалось Аватар; 24.10.2016 в 18:45.
maxwelln1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выбор языка для решения данной задачи hiat Помощь студентам 1 19.12.2015 10:35
Из данных программ сделать программы с использованием процедур и функций Dina 85 Помощь студентам 1 16.12.2012 12:33
программы с использованием процедур и функций. E.r.r.o.r. Помощь студентам 3 23.01.2012 09:34
Как написать программу на с+ для решения данной задачи? ming_ruport Общие вопросы C/C++ 1 24.10.2011 16:34
Представить математическую запись (+описание решения) фрагмента программы и вычислить значение переменной (Kate) Помощь студентам 7 18.10.2011 16:52