Версия для печати темы

Автор: OxeL 9.11.2006 5:10

Дана строка из N букв.Разбить строку на К слов, в каждом из которых не более m букв.Вывести исходную строку и результат обработки строки.

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

Автор: volvo 9.11.2006 5:19

М

Самый первый совет: переименуй тему (согласно http://forum.pascal.net.ru/rules.html, п. 4)... Иначе она будет закрыта...

Автор: OxeL 9.11.2006 5:23

сорри просто думал что Дельфи является объектным паскалем...

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
s:string[80];
n,k,m,c,i:integer;
ch:char;
begin
repeat
writeln('BBeguTe ucxogHy}O cTpoky');
readln(s);
n:=length(s);
writeln('KoJlu4ecTBo cuMBoJloB B cTpoKe N = ');
writeln(length(s));
writeln('BBeguTe KoJlu4eCTBo CJloB "K"');
readln(k);
writeln('BBeguTe KoJlu4eCTBo 6yKB "m"');
readln(m);
for i:=1 to k do
--------------------------------------------------------------------------
что здесь нужно писать????
--------------------------------------------------------------------------
writeln('Pe3yJlbTaT npeo6pa3oBaHu9l =',s);
writeln('6yguTe ewe npeo6pa3oBblBaTb? - y or n');
readln(ch);
until ch='n';
end.

Автор: lapp 9.11.2006 7:23

Задание не вполне понятно.
Что делать, если, например, в строке 50 букв, при этом К=3 и m=3?

Автор: OxeL 9.11.2006 13:41

точно не представляю, но может быть если не хватает символов, чтобы пробелы добавлял?

!

Ты просьбу о переименовании темы проигнорировал? А ведь я предупреждал...