IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
Closed Topic Открыть новую тему 
> задача в среде дельфи, помгите плз решить задачу!
сообщение
Сообщение #1


Гость






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

Предполагаю что нужно найти длинную строки потом делаить ее на слова и буквы, проблема в том что я не представляю ка это сделать, по возможности напишите текст программы и пояснения к нему или дайте пожалуйста дельные советы. спс
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






М
Самый первый совет: переименуй тему (согласно Правилам Форума, п. 4)... Иначе она будет закрыта...

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






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

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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(OxeL @ 9.11.2006 2:10) *

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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

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

 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.11.2020 22:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name