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

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Задача на строки в Pascal
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской
Реальное имя: Дмитрий

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


Помогите с лабой!!!!!!!!!!!!!!!!!!!!!
Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


1) Если надо решение на Паскале (16б) зачем постить в раздел Delphi ?
2) В чем конкретно проблема ? В разбиении строки на слова ? Пожалуйста : Разбиение на слова, все способы

Ну а заменить одну букву на другую ... это помоему совсем не сложно ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


Цитата(Артес @ 9.11.2006 21:18) *

Помогите с лабой!!!!!!!!!!!!!!!!!!!!!
Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!!


Вот быстро написал... только заменяет последний символ свола на последней строки.


var
X,Y,i:Integer;
S:String;
mas:array[1..256] of String[1];
Begin
Readln(s);
Y :=Length(s);
x:=0;
For i:=1 to Y do
Begin
mas[i]:=Copy(s,i,1);
End;
For i:=1 to y do
Begin
if mas[i] = ' 'then
Begin
If mas[i-1] <> ' ' then
Begin
x:=x+1;
if (x mod 2) =0 then mas[i-1] := mas[y];
End;
End;
end;
Writeln(s);
Writeln;
For i:=1 to y do write(mas[i]);
End.


 ! 
Теги !

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






SergeyFX, а что, где-то в задании указано, что слова разделяются только пробелами? Я, почему-то, этого не вижу...

P.S. Кстати, теги CODE существуют для всех, как, кстати, и Правила Форума... dry.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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



SergeyFX, FAQ пишется для кого ? Еще один подобный "шедевр" или несоблюдение правил повлекут за собой премодерацию.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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