Разбить текст на строки указанной длины

doomer74 · Регистрация: 01.12.2011

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

Всем привет! Помогите, пожалуйста, написать следующую программу: вводится текст и длина строки. Разбить текст на строки указанной длины. Слова не переносить.

очень плохо шарю в строковом типе

очень надеюсь на вашу помощь!

@dtsey · 05.12.2011, 16:18

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

Всем привет! Помогите, пожалуйста, написать следующую программу: вводится текст и длина строки. Разбить текст на строки указанной длины. Слова не переносить.

очень плохо шарю в строковом типе

очень надеюсь на вашу помощь!

Pascal

var str,s: string;
n: integer;
begin
Writeln('vvedite stroky');
readln(str);
writeln('Vvedite dlinny strok');
Readln(n);
if length(str)>n then begin
s:=copy(str,1,n);
delete(str,1,n); 
Write(s+' ');
end;
if length(str)<n then begin
s:=str;
Write(s+' ');
end;
readln;
end;

doomer74 · 06.12.2011, 06:20 **[ТС]**

Спасибо за ответ! правда программа не всегда работает.
Например, когда я ввожу следующий текст "zhil da byl starik' и длину строк 4, то выводит только "zhil" и все. Помогите, пожалуйста, в чем ошибка? может быть, цикла не хватает?

Добавлено через 11 часов 12 минут
Поднимаю тему! Помогите, пожалуйста, где ошибка в алгоритме??

@dtsey · 06.12.2011, 16:27

Pascal

var str,s: string;
n: integer;
begin
Writeln('vvedite stroky');
readln(str);
writeln('Vvedite dlinny strok');
Readln(n);
repeat
if length(str)>n then begin
s:=copy(str,1,n);
delete(str,1,n); 
Write(s+' ');
end;
if length(str)<n then begin
s:=str;
Write(s+' ');
end;
until s='';
readln;
end;

doomer74 · 06.12.2011, 16:46 **[ТС]**

ого, и делов-то... а то я там накрутил уже у себя циклов.
спасибо большое!

doomer74 · 09.12.2011, 06:04 **[ТС]**

Помогите, пожалуйста, срочно с такой задачей: вводится текст и длина строки. Разбить текст на строки указанной длины. Слова не переносить. В чем ошибка в алгоритме? у меня цикл бесконечный получается...

Pascal

var str,s: string;
n: integer;
begin
Writeln('vvedite stroky');
readln(str);
writeln('Vvedite dlinny strok');
Readln(n);
repeat
if length(str)>n then begin
s:=copy(str,1,n);
delete(str,1,n); 
Write(s+' ');
end;
if length(str)<n then begin
s:=str;
Write(s+' ');
end;
until s='';
readln;
end;

@rainer · 09.12.2011, 08:10

Pascal

var str,s: string;
n: integer;
begin
Writeln('vvedite stroky');
readln(str);
writeln('Vvedite dlinny strok');
Readln(n);
if length(str)>n then
 begin
   repeat
      s:=copy(str,1,n);
      delete(str,1,n);
      Write(s+' ');
   until s=''
 end
else
    begin
         s:=str;
         Write(s+' ');
    end;
readln;
end.

Вы цикл репит не туда поставили!

doomer74 · 09.12.2011, 16:55 **[ТС]**

все равно уходит в бесконечный цикл... что делать?

doomer74 1 / 1 / 1 Регистрация: 01.12.2011 Сообщений: 51
		1
	Разбить текст на строки указанной длины 05.12.2011, 13:19. Показов 2279. Ответов 7 Метки нет (Все метки) Всем привет! Помогите, пожалуйста, написать следующую программу: вводится текст и длина строки. Разбить текст на строки указанной длины. Слова не переносить. очень плохо шарю в строковом типе очень надеюсь на вашу помощь! 0

doomer74 1 / 1 / 1 Регистрация: 01.12.2011 Сообщений: 51
	06.12.2011, 06:20 [ТС]	3
	Спасибо за ответ! правда программа не всегда работает. Например, когда я ввожу следующий текст "zhil da byl starik' и длину строк 4, то выводит только "zhil" и все. Помогите, пожалуйста, в чем ошибка? может быть, цикла не хватает? Добавлено через 11 часов 12 минут Поднимаю тему! Помогите, пожалуйста, где ошибка в алгоритме?? 0

doomer74 1 / 1 / 1 Регистрация: 01.12.2011 Сообщений: 51
	06.12.2011, 16:46 [ТС]	5
	ого, и делов-то... а то я там накрутил уже у себя циклов. спасибо большое! 0

doomer74 1 / 1 / 1 Регистрация: 01.12.2011 Сообщений: 51
	09.12.2011, 16:55 [ТС]	8
	все равно уходит в бесконечный цикл... что делать? 0