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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2017, 15:49   #1
anasttb
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 32
По умолчанию Добавить комментарии в программу.

Код:
Var s,slovo,razd:string;
 i,b,j:integer;
Begin
Writeln('Введите код: ');
Readln(s);
 razd := ', :;-().?!';
 slovo:= ' ';
for i := 1 to length(s) do
 begin
  if pos(s[i], razd) = 0 then 
    slovo := slovo + s[i]
  else 
    begin 
    if (length(slovo)>0) then 
      begin
      Val(slovo,j,b);
      write(chr(j)) ;
      slovo:= ''; 
      end;  
    end; 
 end;
end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 22.03.2017 в 16:09.
anasttb вне форума Ответить с цитированием
Старый 22.03.2017, 16:13   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

эта программа выделяет все целочисленные числовые значения, указанные в строке через разделители (см. razd), и каждое такое значение переводится из строкового значения в числовой вид и полученное значение выводится в консоль.


p.s. кстати, программа требует ОБЯЗАТЕЛЬНО наличие разделителя в конце,
иначе последнее число в строке не будет обработано программой.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавить комментарии в программу: anasttb Паскаль, Turbo Pascal, PascalABC.NET 3 26.02.2017 12:01
Не могу добавить комментарии под youtube bitix Свободное общение 12 16.05.2015 01:37
С++. Создать базовый класс список. Реализовать на базе списка стек и очередь... Объяснить программу (написать комментарии) the_faceless Помощь студентам 0 17.02.2014 01:54
добавить функции в программу siner Паскаль, Turbo Pascal, PascalABC.NET 0 26.03.2013 01:01
Как написать программу который убирает комментарии? lpud Общие вопросы по программированию, компьютерный форум 1 16.01.2012 12:44