IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Сортировка слов в строке
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Женский

Репутация: -  0  +


Помогите решить задачку smile.gif
Вводится произвольное кол-во слов в строку, программа выводит кол-во слов в строке и переставляет местами слова (1 со 2, 3 с 4 и т.д), если перед первым словом пробел, или между словами более одного пробела, то выдается сообщение о ошибке и предлагается начать сначала.

//в строке переставить местами рядом стоящие слова(1 со 2, 3 с 4, и т.д.) Дана
//дана строка, нач. не пробелом, между словами по 1 пробелу,
//и строка закан. буквой

program ctroca;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s,s1,temp:string;
s2:array[1..25]of string;
p,k,n,i,t:integer;
begin
writeln('Vvedite text');
readln(s);
writeln;
k:=1;
n:=1;
p:=0;
s1:='';

for i:=1 to length(s) do
begin
if (s[i]<>' ')and(s[i+1]=' ')
then inc(k);
end;

for i:=1 to length(s) do
begin
if (s[i]<>' ')
then begin
insert(s[i],s1,n);
inc(n);
end;
if (s[i]=' ') or (i=length(s))
then begin
n:=1;
inc(p);
s2[p]:=s1;
s1:='';
end;
end;

if

for i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]=' ')
then begin
writeln('Error!!!!');
s:='';
writeln('Mnogo probelov ');
writeln('Vvedite text :');
readln(s);
for i:=1 to Length(s) do
begin
if (s[i]<>' ')and(s[i+1]=' ')
then inc(k);
end;
end;
end;

if s[1]=' '
then begin
writeln('Error!!!!');
writeln('Nachalo probel ');
writeln('Vvedite text :');
readln(s);
for i:=1 to Length(s) do
begin
if (s[i]<>' ')and(s[i+1]=' ')
then inc(k);
end;
end;
writeln('Kol-vo slov: ',k);

readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
сНежная   Сортировка слов в строке   4.01.2007 3:06
мисс_граффити   1. Пользуйся тэгами. 2. Приведи пример строки, кот…   4.01.2007 3:16
arhimag   var s : string; var arr : array [1..2…   4.01.2007 3:26
сНежная   У меня считает кол-во слов, а местами не меняет   4.01.2007 3:26
сНежная   @-что означает?(dec©)   4.01.2007 3:31
arhimag   если будут вопросы, спрашивай   4.01.2007 3:27
Bokul   Не работает:   4.01.2007 3:30
arhimag   извини багу нашел, ща правлю (с) означает…   4.01.2007 3:34
Bokul   Глюк форума - поставь dec и в дужках с dec( с )…   4.01.2007 3:35
arhimag   program Project2; var s : string; var arr …   4.01.2007 3:39
Bokul   Ты еще одно условие забыл: :)   4.01.2007 3:40
сНежная   Работает, но частично!Строка считывается, кол-…   4.01.2007 3:42
Bokul   сНежная, а ты внимательно смотрела? Все работает, …   4.01.2007 3:45
arhimag   черт :) program Videlenieslovzamenachetnogonanech…   4.01.2007 3:49
сНежная   Работает! Огромное спасибо! Сейчас буду пы…   4.01.2007 3:57
klem4   const max_words = 128; type TWords = array [1..m…   4.01.2007 16:02
arhimag   klem4 , я не уверен что автор темы знает функции C…   4.01.2007 17:27
volvo   Опять за флейм? :mad: А насчет Length ты что, уве…   4.01.2007 17:32


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.01.2022 11:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name