| ← Июнь 2011 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
8
|
9
|
10
|
11
|
12
|
|
|
13
|
14
|
15
|
17
|
18
|
19
|
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rfpro.ru/
Открыта:
11-11-2009
Статистика
0 за неделю
RFpro.ru: Алгоритмы и теория программирования
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Алгоритмы и теория программирования
Вопрос № 183585: Здравствуйте! У меня возникли сложности с таким вопросом: пожалуйста помогите решть задачу. Дано предложение, слова в нем разделены пробелом, поменять местами первое и последнее слова... Вопрос № 183585:
Здравствуйте! У меня возникли сложности с таким вопросом:
Отправлен: 11.06.2011, 04:52 Отвечает Гусятинер Леонид Борисович aka lamed (Академик) : Здравствуйте, Посетитель - 377371! Поскольку язык не указан, отвечающий выбирает инструмент сам. Код : // Дано предложение, слова в нем разделены пробелом, поменять местами первое и последнее слова
// PascalABC.NET, lamed (RFPRo), Kovrov, 11.06.2011
var
s,w1,w2,x: string;
i,j:integer; // x - число, изображаемое строкой s1; i - номер позиции при проходе по строке
begin
write('s=');
readln(s);
i:= 1;
j:= length(s);
while (i<=j) and (s[i]=' ') do // Пропустили "лидирующие" пробелы
inc(i);
if i>j then
begin
writeln('Только пробелы');
exit;
end;
w1:='';
while (i<=j) and (s[i]<>' ') do // Формируем первое слово
begin
w1:=w1+s[i];
inc(i);
end;
if i>j then
begin
writeln('Только одно слово');
exit;
end;
while (j>=i) and (s[j]=' ') do // Пропустили "хвостовые" пробелы
dec(j);
w2:='';
while (j>=i) and (s[j]<>' ') do // Формируем последнее слово
begin
w2:=s[j]+w2;
dec(j);
end;
writeln(w1, ' ', w2, '->', length(s));
s:= copy(s,1,i-1-length(w1))+w2+copy(s,i,j-i+1)+w1+copy(s,j+length(w2)+1,length(s)-j-length(w2));
writeln('s=',s, '->', length(s));
end.Если требуются пояснения, задавайте вопросы в мини-форуме. Удачи!
Ответ отправил: Гусятинер Леонид Борисович aka lamed (Академик)
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
