Каким образом можно разбить строку на слова, а затем слова на буквы?Строка, кол-во слов и буквы вводятся...
Нужно ли находить длинну строки и кол-во символов в ней? И как сделать так, чтобы если ты ввел строку из 50 символов, она делилась на 4 слова по 7 букв?
Ну во первых смотри тут :
Разделение строки на слова. Все способы.Во вторых
Цитата
ввел строку из 50 символов, она делилась на 4 слова по 7 букв?
4 * 7 = 28
Вообщем вводится строка мне нужно разбить ее пробелами через заданое кол-во символов думаю использовать процедуру insert. Есть лучше способ?
В каком смысле "лучше"? Быстрее? Эффективнее? Красивее?
Лучшее, вообще-то, враг хорошего... Ты сначала с Insert сделай, а потом будешь улучшать...
вот тут конечно ошибка но хочется узнать я правильно делаю или нет?
Цитата
program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
type s=string[80];
procedure insert(s:string;var s2,s1:string;i:integer);
var
m:integer;
begin
Writeln('Enter the String...');
readln(s);
Writeln('Enter the m...');
readln(m);
for m:=1 to length(s) do
s1:=' ';
s:='maxwelld';
insert(s,s1,m);
end;
end.
мисс_граффити
9.11.2006 22:26
для начала, назови процедуру по-другому - а то запутаешься в своем и паскалевском insert'е. собственно, уже запутался.
во-вторых: как ты узнаешь, где конец слова? они чем-то разделены или заданы длины каждого слова?
Вообщем задача формулируется так: Дана строка из N букв.Разбить строку на К слов, в каждом из которых
не более m букв.Вывести исходную строку и результат обработки строки.
препод сказал что нужно просто ввести строку и разбить ее пробелами на m кол-во букв а слова мол автоматически получатся...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.