Алгоритм

[shrek=)]

Алгоритм

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

Решать не прошу сам хочу, а вот с алгоритмом прошу помочь.
Заранее спасибо.

 

[Vladimir_S]

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

Решать не прошу сам хочу, а вот с алгоритмом прошу помочь.
Заранее спасибо.

Миша, да что же тут непонятного? Допустим, требуется, чтобы длина строки составляла 150 символов. Оператором Length(S) определяем реальную длину исходной строки, пусть, например, она составляет 142 символа. Отсюда следует, что нужно в строку впихнуть 8 дополнительных пробелов. И всего-то.

 

[shrek=)]

Вот что сделал, но происходит зацикливание

const
p=' ';
var
s_n,s:string;
i,n,d:integer;
procedure rav;
begin
for i:=1 to d do begin
if s[i]=' ' then insert(p,s,i);
end;
s_n:=s_n+s[i];
end;
begin
d:=length(s);
writeln ('Enter string');
readln (s);
write ('Length (s) = ');
readln (n);
rav;
writeln (s_n);
readln
end.

 

[Vladimir_S]

Вот что сделал, но происходит зацикливание

Кошмар! Ошибок очень много, сейчас попробую исправить. Но есть такие, что сразу просто в глаза лезут: ну как можно определять длину строки ДО ее ввода?
Миша, Вы, по-моему, влюбились. Ну тогда это простительно. Иначе - нет!

 

[AlexZir]

Про зацикливание: после вставки символа нужно увеличивать значение счетчика, иначе постоянно будешь на пробелы натыкаться
И переменная d в качестве граничного параметра цикла нафиг не нужна, вообще в данной задаче лучше использовать цикл While, так как длина строки меняется и значение счетчика в ходе выполнения итераций может стать больше, чем вычисленное значение переменной d еще до полного выполнения анализа строки
Про алгоритм решения написано уже выше, могу сказать только одно - процедуру нужно переписывать полностью

 

[Vladimir_S]

Ну вот вариант отлаженной программы. Не очень просто получилось, к сожалению. Но работает.
Суть:
1. Вводится строка.
2. В ней определяется количество имеющихся пробелов.
3. Вводится требуемая длина строки.
4. Определяется, по скольку дополнительных пробелов нужно добавить к каждому имеющемуся. "Остаток" добавляется к первому пробелу. Например:
Пусть в строке 5 пробелов, а надо ее удлинить на 7 позиций. Тогда к каждому пробелу добавляется еще один, а оставшиеся два - к первому. Не очень красиво, но что поделаешь - и так сложно.

var
 s_n,s:string;
 n,j,d,dv,md,dif:integer;
procedure rav(var s_r:string);
 var
  k,i,m:integer;
  sr:string;
 begin
  sr:=s;
  i:=0;
  k:=0;
  repeat
   inc(i);
   inc(k)
  until s[i]=' ';
  for m:=1 to dv+md do
   begin
    insert(' ',sr,k);
    inc(k);
   end;
  Repeat
   inc(i);
   inc(k);
   if s[i]=' ' then
    begin
     for m:=1 to dv do
      begin
       insert(' ',sr,k);
       inc(k);
      end;
    end;
  Until i=Length(s);
  s_r:=sr;
end;
begin
 writeln ('Enter the string:');
 readln (s);
 d:=0;
 for j:=1 to Length(s) do
  if s[j]=' ' then inc(d);
 write ('Final length = ');
 readln(n);
 dif:=n-Length(s);
 dv:=dif div d;
 md:=dif mod d;
 if n>Length(s) then rav(s_n) else s_n:=s;
 writeln(s_n);
 readln
end.

 

[shrek=)]

Я вот тоже думал будет не сложно, а оно оказалось. И раз:

Миша, Вы, по-моему, влюбились. Ну тогда это простительно. Иначе - нет!

сделаем вид, что так оно и есть. )

 

[Vladimir_S]

сделаем вид, что так оно и есть.

Ну тогда сделаем вид, что поверили.