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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2012, 00:33   #1
scenik
Новичок
Джуниор
 
Регистрация: 12.01.2012
Сообщений: 1
По умолчанию Совместить 2 программы в одну

Условие: Дан текст. Удалить в нем все лишние пробелы, оставив между словами не более двух пропусков. Вычислить сумму кодов символов каждого четного слова.


Программа 1: Дан текст. Удалить в нем все лишние пробелы, оставив между словами не более двух пропусков.
Код:
uses crt;
var s,sn: string;
    i: integer;
begin
write('s= ');
readln(s); sn:='';
for i:=1 to length(s)-2 do
    if (s[i]=' ') and (s[i+1]=' ') and (s[i+2]=' ')
       then sn:=sn else sn:=sn+s[i];
write('s= ',sn);
readkey
end.
Программа 2: Дан текст .Вычислить сумму кодов символов каждого четного слова.
Код:
uses crt;
var f:text;
    s,s1:string;
    i,j,k,v:integer;
begin
  clrscr;
  assign(f,'f.txt');
  reset(f);
  while not eof(f) do
   begin
     readln(f,s);
     k:=0;j:=0;
     s:=s+' ';
     s1:='';
     for i:=1 to length(s) do
      if s[i]<>' ' then s1:=s1+s[i]
       else
        begin
          inc(j);
          if j mod 2=0 then
           begin
             for v:=1 to length(s1) do k:=k+ord(s1[v]);
              writeln(s1);
              writeln('Summa=',k);
              writeln;
              k:=0;
           end;
         s1:='';
        end;
   end;
 close(f);
readln;
end.
scenik вне форума Ответить с цитированием
Старый 12.01.2012, 00:38   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

как нащет реализировать все в виде функций?
Pein95 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
совместить 7 формул в одну johny_03 Microsoft Office Excel 5 04.10.2011 17:50
программы на одну две строчки pyls Помощь студентам 0 22.05.2011 18:49
при написании любой программы выдает одну и ту же ошибку mordes Visual C++ 2 12.01.2011 00:16
перевод чисел. (связать две программы в одну.) 13xXx13 Паскаль, Turbo Pascal, PascalABC.NET 1 21.12.2010 19:51
!!Нужно вписать еще одну ошибку в текст программы!! nici1991 Помощь студентам 6 17.06.2010 04:06