Составить программу циклической перестановки букв в словах текста

27.03.2008, 11:04. **Показов** 7197. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.:huh:

@бугага · 27.03.2008, 20:03

Pascal
1
2
3
4
5
6
function w(s: string): string;
var i: integer;
begin
 for i:=2 to length(s) do if i<length(s) then s[i] := s[i-1] else s[1] := s[i];
 result := s;
end;

вроде типа такого, если допустил ошибки, то сильно не бейте, а то паскаль уже забывать начинаю...

@Ensase · 27.03.2008, 20:34

Pascal
1
2
3
4
5
6
7
8
9
function rol(s:string):string;
var
st:string;
i:integer;
begin
st[1]:=s[length(s)];
for i:=1 to length(s)-1 do st[i+1]:=s[i];
rol:=st;
end;

27.03.2008, 20:51

Сообщение от Ensase

function rol(s:string):string;
var
st:string;
i:integer;
begin
st[1]:=s[length(s)];
for i:=1 to length(s)-1 do st[i+1]:=s[i];
rol:=st;
end;

неправильно, в данном случае у тебя первоначально первому символу присваевается значение последнего символа, потом второму символу значение первого символа, т.е. второй символ становиться равным последнему, далее третьему... ну и т.д.
вообщем в итоге результат будет такой что все символы будут равны последнему, т.е. если написать строку "123456" - получиться вот так "666666"

27.03.2008, 20:58

ой, сорри, я сам тут понапутал, я сразу не заметил переменную st, но у тебя всеравно программа будет выдавать ошибку, т.к. после var st: string; длина строки st равна нулю, а когда ты начинаешь присваивать первому символу строки st (st[1]), то сразу выдаст ошибку, т.к. такого символа в этой строке не существует

@Ensase · 28.03.2008, 06:17

Pascal
1
2
3
4
5
6
7
8
9
10
function rol(s:string):string;
var
c:char;
i:integer;
begin
c:=s[length(s)];
for i:=length(s) downto 2 do s[i] := s[i-1];
s[1]:=c;
rol:=s;
end;

28.03.2008, 14:03

всем спосибо

Новые блоги и статьи Все статьи Все блоги /
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI

severm

	Составить программу циклической перестановки букв в словах текста 27.03.2008, 11:04. Показов 7197. Ответов 6 Метки нет (Все метки) Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.:huh:

гагабу
	27.03.2008, 20:58
	ой, сорри, я сам тут понапутал, я сразу не заметил переменную st, но у тебя всеравно программа будет выдавать ошибку, т.к. после var st: string; длина строки st равна нулю, а когда ты начинаешь присваивать первому символу строки st (st[1]), то сразу выдаст ошибку, т.к. такого символа в этой строке не существует