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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2009, 00:28   #1
REztor
Форумчанин
 
Регистрация: 28.02.2009
Сообщений: 302
По умолчанию Без создания нового списка, а с мофидикацией исходного

Как по этой программе?
Код:
#include "stdafx.h"
#include <iostream>
#include <string.h>
using std::cout;
using std::cin;
using std::endl;

const int N=80;
void work(const char* src, char* rez)
{
	char * p = rez;
	while(*(src+=strspn(src, " \t")))
	{
		const char *p = src+strcspn(src, " \t")-1;
		while(p>=src)
			*(rez++) = *(p--);
		*(rez++) = ' ';
		src+=strcspn(src, " \t");
	}
	if (rez!=p)
		rez--;
	*rez = 0;
}

char*space(char*src)
{
  while(*src==' '||
	    *src=='\t')
		src++;
        return src;
}

char*copy(char*to, char*from)
{while(*from&&*from!=' '&&*from!='\t')
	  *(to++)=*(from++);
      *to++=' ';
	  return to;
	  }
char*word(char *ptr)
{ 
	while(*ptr&&*ptr!=' '&&*ptr!='\t')
		ptr++;
        return ptr;
}

void work1(char *src, char*rez)
{ 
	int fl=0;
	char*p=rez;
	while(*(src=space(src))){
	if(fl)
		rez=copy(rez,src);
	src=word(src);
	fl=!fl;
}
if (rez!=p)
rez--;
*rez='\0';
}

int main(int argc, _TCHAR* argv[])
{
	char src[N], rez[N];
	*rez = 0;
	while(cin.getline(src,80))
	{
		work(src, rez);
		cout<<rez<<'!'<<endl;
	}

return 0;
}
REztor вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обновление списка данных без потери данных в переменных VaBank БД в Delphi 13 03.06.2009 10:47
Билдер6. Запуск из списка нового приложения. LimanSSk Помощь студентам 1 18.05.2009 00:04
Анализ исходного кода SwitchMan Паскаль, Turbo Pascal, PascalABC.NET 1 25.04.2009 18:14
Автоматизация создания нового письма в MS Outlook. SANIOK_AV Общие вопросы Delphi 1 13.04.2009 10:17
Макрос для создания нового листа в др.книге natty29 Microsoft Office Excel 3 14.02.2009 06:46