![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Артес |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Помогите с лабой!!!!!!!!!!!!!!!!!!!!!
Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!! |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
1) Если надо решение на Паскале (16б) зачем постить в раздел Delphi ?
2) В чем конкретно проблема ? В разбиении строки на слова ? Пожалуйста : Разбиение на слова, все способы Ну а заменить одну букву на другую ... это помоему совсем не сложно ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
SergeyFX |
![]()
Сообщение
#3
|
|||
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите с лабой!!!!!!!!!!!!!!!!!!!!! Дана строка. в каждом нечетном слове заменить первую букву на последний символ строки!!!!!!!!!!! Вот быстро написал... только заменяет последний символ свола на последней строки.
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.
|
|||
Алена |
![]()
Сообщение
#4
|
Гость ![]() |
SergeyFX, а что, где-то в задании указано, что слова разделяются только пробелами? Я, почему-то, этого не вижу...
P.S. Кстати, теги CODE существуют для всех, как, кстати, и Правила Форума... ![]() |
klem4 |
![]()
Сообщение
#5
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
SergeyFX, FAQ пишется для кого ? Еще один подобный "шедевр" или несоблюдение правил повлекут за собой премодерацию. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 17.07.2025 7:25 |