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

@Stud73 · Регистрация: 25.03.2017

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

Здравствуйте, уважаемые форумчане. Помогите решить программу. Условие такое.. Написать исходный текст (Строка!) в обратном порядке с одновременным разделением текста на блоки, например, по пять букв. Сначала необходимо убедиться, что исходный текст можно будет разбить на блоки одинаковой длины. Если последний блок окажется короче, то его исходный текст дополняют незначащими символами (случайными)... Из всего этого смогла только перевернуть строку в обратном порядке.. Такую "Наработку" выкладывать стыдно.. Помогите, пожалуйста. Надо решить максимально просто. Спасибо откликнувшимся.

@Puporev · 18.09.2018, 07:04

Pascal

var s:string;
    i:integer;
    c:char;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) div 2 do
 begin
  c:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=c;
 end;
while length(s)mod 5<>0 do
s:=s+'@';
for i:=1 to length(s) div 5 do
writeln(copy(s,(i-1)*5+1,5));
end.

@Stud73 · 18.09.2018, 07:57 **[ТС]**

Спасибо большое. Есть два вопроса: 1) как полученный текст вывести в строку (writeln - заменить на write не получается - блоки сливаются) 2) можно ли добавлять не значащий символ случайным образом?Спасибо!

@Puporev · 18.09.2018, 08:11

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

незначащими символами (случайными)..

Что это за символы такие незначащие?

Добавлено через 6 минут
Например так.

Pascal

while length(s)mod 5<>0 do
s:=s+chr(153+random(10));
for i:=1 to length(s) div 5 do
write(copy(s,(i-1)*5+1,5),'  ');

@Stud73 · 18.09.2018, 08:36 **[ТС]**

Спасибо...Прикрепила картинку. Пробовала на строке МАМОЧКА МЫЛА РАМОЧКУ..Если в исходном тексте есть пробелы (что логично), то этот пробел и остается в перевернутом тексте. Но по заданию надо (или подразумевается), что в перевернутом тексте разделены пробелом должны быть только блоки из 5 символов. То есть строка должна быть типа: УКЧОМ АРАЛЫ МАКЧО МАМ@. Извиняюсь за назойливость, но сама не справлюсь..

@Puporev · 18.09.2018, 08:39

После ввода исходной строки напишите

Pascal

1	while pos(' ',s)>0 do delete(s,pos(' ',s),1);

или

Pascal

1 2	for i:=length(s) downto 1 do if s[i]=' ' then delete(s,i,1);

@Stud73 · 18.09.2018, 08:51 **[ТС]**

Спасибо большое! Все просто замечательно!

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

Решение

Решение

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
		1
	Строка: Написать исходный текст в обратном порядке с одновременным разделением текста на блоки... 18.09.2018, 06:27. Показов 2044. Ответов 6 Метки нет (Все метки) Здравствуйте, уважаемые форумчане. Помогите решить программу. Условие такое.. Написать исходный текст (Строка!) в обратном порядке с одновременным разделением текста на блоки, например, по пять букв. Сначала необходимо убедиться, что исходный текст можно будет разбить на блоки одинаковой длины. Если последний блок окажется короче, то его исходный текст дополняют незначащими символами (случайными)... Из всего этого смогла только перевернуть строку в обратном порядке.. Такую "Наработку" выкладывать стыдно.. Помогите, пожалуйста. Надо решить максимально просто. Спасибо откликнувшимся. 0

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
	18.09.2018, 07:57 [ТС]	3
	Спасибо большое. Есть два вопроса: 1) как полученный текст вывести в строку (writeln - заменить на write не получается - блоки сливаются) 2) можно ли добавлять не значащий символ случайным образом?Спасибо! 0

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
	18.09.2018, 08:36 [ТС]	5
	Спасибо...Прикрепила картинку. Пробовала на строке МАМОЧКА МЫЛА РАМОЧКУ..Если в исходном тексте есть пробелы (что логично), то этот пробел и остается в перевернутом тексте. Но по заданию надо (или подразумевается), что в перевернутом тексте разделены пробелом должны быть только блоки из 5 символов. То есть строка должна быть типа: УКЧОМ АРАЛЫ МАКЧО МАМ@. Извиняюсь за назойливость, но сама не справлюсь.. Изображения 0

@Stud73 9 / 9 / 2 Регистрация: 25.03.2017 Сообщений: 555
	18.09.2018, 08:51 [ТС]	7
	Спасибо большое! Все просто замечательно! 0