Выровнять текст по правому краю,добавив в начало непустой строки нужное количество пробелов

[whatever]

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

И более академично, и наиболее оптимально, а заодно и короче:

  while not EoF(f) do begin
    readln(f,s);
    writeln(g,s:50);
  end;

Афигенно. Серьезно, я даже проверять начал, почему-то думал, что пробелы в конец добавятся

[s-andriano]

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

И более академично, и наиболее оптимально, а заодно и короче:

  while not EoF(f) do begin
    readln(f,s);
    writeln(g,s:50);
  end;

И академично, и оптимально - это верно, только вот данный вариант не удовлетворяет условию "добавив в начало непустой строки нужное количество пробелов".

[TinMan]

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

Афигенно. Серьезно, я даже проверять начал, почему-то думал, что пробелы в конец добавятся

whatever, а ты попробуй еще вот так:

    writeln(g,s:-50,'and smth else here..');

- просто из любопытства )).

Сообщение от s-andriano

И академично, и оптимально - это верно, только вот данный вариант не удовлетворяет условию "добавив в начало непустой строки нужное количество пробелов".

Не согласен. В условии сказано только то, что в выходном файле должны быть именно пробелы (а не табуляции, например). Боюсь, ты понял задание слишком буквально. Пробелы _вставлены_. Как вставлены? Посредством применения форматного вывода. Простите за оффтоп, но каждый вставляет, как ему нравится ))

[f1x]

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

И более академично, и наиболее оптимально, а заодно и короче:

  while not EoF(f) do begin
    readln(f,s);
    writeln(g,s:50);
  end;

можешь написать полный код с бегином и тд у меня не работает всеравно

[TinMan]

var
  f,g: text;
  s: string;

begin
  Assign(f,'in.txt');
  Reset(f);
  Assign(g,'out.txt');
  Rewrite(g);
  while not EoF(f) do begin
    readln(f,s);
    writeln(g,s:50);
  end;
  Close(f);
  Close(g)
end.

[s-andriano]

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

Не согласен. В условии сказано только то, что в выходном файле должны быть именно пробелы (а не табуляции, например).

В условии вообще ничего не сказано про выходной файл, именно поэтому форматное преобразование и не подходит - пробелы должны быть даже в том случае, когда текст находится в оперативной памяти.

[TinMan]

Сообщение от s-andriano

В условии вообще ничего не сказано про выходной файл, именно поэтому форматное преобразование и не подходит - пробелы должны быть даже в том случае, когда текст находится в оперативной памяти.

Ну, в условии сказано про _входной_файл_, а это уже значит, что по возможности нужно учесть случай, когда файл слишком велик для оперативной памяти, а вывод скорее всего тоже в файл. Но я не стану с тобой спорить, уважаемый Сан-Андриано )). Сдаюсь на милость победителя.. [смайл, размахивающий белым флагом]
+1 тебе!

Согласен, невозможность работать с памятью так же, как и с файлом - это есть недостаток Паскаля. Хорошо, что этот момент был прояснен в теме )). Каюсь, я несколько утрировал постановку задачи, и сделал это единственно с целью привлечь внимание к довольно мощному, но редкоиспульзуемому средству. А чтоб оправдать свою блаародную цель, еще замечу, что [offtop]мало кто имеет в виду, что параметры формата могут быть выражены также и переменными, типа так:

for i:=1 to 50 do writeln('*':i);

За сим считаю свою миссию выполненной и откланиваюсь.. [/offtop]

[s-andriano]

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

Ну, в условии сказано про _входной_файл_, а это уже значит, что по возможности нужно учесть случай, когда файл слишком велик для оперативной памяти, а вывод скорее всего тоже в файл.

Полный цикл обработки информации включает:
- ввод данных,
- преобразование данных,
- вывод данных.

В данном случае упомянуты только два этапа. Поэтому, на мой взгляд, подразумевается, что:
- должна быть предусмотрена возможность добавить еще один этап обработки данных,
- для чего данные должны оставаться в ОП в уже обработанном виде.
Действительно, в Вашем варианте этапы обработки и вывода объединены (что само по себе считается неправильным подходом, хотя в данном случае именно это и позволило одновременно добиться и лаконичности и оптимальности), и включить между ними дополнительный этап не получится без переделки уже написанного кода.
Или представьте, что, скажем, выводить нужно не в файл, а на экран в графическом режиме, используя graph.

Согласен, невозможность работать с памятью так же, как и с файлом - это есть недостаток Паскаля.

Да, честно говоря, не понимаю, почему в Паскале нельзя писать в строковую переменную точно так же, как и в файл. Даже в Фортране (а сколько ему лет!) такая возможность есть.

...замечу, что [offtop]мало кто имеет в виду, что параметры формата могут быть выражены также и переменными, типа так:

for i:=1 to 50 do writeln('*':i);

[/offtop]

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

Но в целом, вроде, пришли к единому мнению. Приятно было пообщаться.

[Игopь]

подскажите как текст выровненный по правому краю выровнять по центру?

[Serge_Bliznykov]

подскажите как текст выровненный по правому краю выровнять по центру?

Выровнять пробелами?

Очень просто!
Надо запомнить длину текста (если до какой длинвы выравнивать не задано внешне, конечно). (пусть это будет переменная LenWidth)
удалить все пробелы слева и справа.
запомнить длину полученной строки (пусть это будет переменная LenTrim)
вставить пробелы в начале строки в количестве (LenWidth - LenTrim) div 2
вставить пробелы в конце строки в количестве LenWidth - текущая длина(строки)
всё.