| ← Июль 2019 → | ||||||
|
1
|
2
|
3
|
4
|
6
|
7
|
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rfpro.ru/
Открыта:
11-11-2009
Статистика
0 за неделю
RFpro.ru: Алгоритмы и теория программирования
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Алгоритмы и теория программирования
Консультация # 67190: Нужно написать на псевдокоде (http://www.tomsk.ru/Books/informatica/theory/chapter7/1_7_7.html) Пробовал так, но это неправильно (алг Вывод содержимого темы из базы форума (арг цел ИД_ТЕМЫ, ИД_АВТОРА рез таб Сообщение) нач сим Адрес_БД, Имя_Базы, Имя_Пользователя, Пароль таб Результат_Запроса Соединение с Базой Данных форум... Консультация # 183585: Здравствуйте! У меня возникли сложности с таким вопросом: пожалуйста помогите решть задачу. Дано предложение, слова в нем разделены пробелом, поменять местами первое и последнее слова... Здравствуйте уважаемые эксперты!!!
Дата отправки: 13.12.2007, 18:06 Консультирует Виктор Пырлик: Здравствуйте, Смирнов Руслан Юрьевич!
Консультирует Кэр Лаэда: Здравствуйте, Смирнов Руслан Юрьевич!
Нужно написать на псевдокоде (http://www.tomsk.ru/Books/informatica/theory/chapter7/1_7_7.html)
Дата отправки: 16.12.2006, 00:07 Консультирует NiGHT: Здравствуйте, _Master_!
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 11.06.2011, 04:52 Консультирует 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.Если требуются пояснения, задавайте вопросы в мини-форуме. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
