Создать текстовый файл f1. конкатенировать файл f1 самого с собой, только записанного задом наперед и результат записать в файл f2. вывести на экран файл f2.

Var     f1,f2: text;     s: string; begin assign(f1,'d: \f1.txt'); reset(f1); read(f1,s); close(f1); assign(f2,'d: \f2.txt'); rewrite(f2); write(f2,s); write(f2,reversestring(s)); close(f2); assign(f2,'d: \f2.txt'); reset(f2); read(f2,s); writeln(s); close(f2); end.

Форматирование абзацев

форматирование часто применяется по отношению к абзацу.

абзац  — фрагмент текста, процесс ввода которого закончился нажатием на клавишу ввода  enter. абзац является ключевым элементом в структуре документа для многих текстовых процессоров (хотя имеются и другие, например, в microsoft word — разделы).

операции форматирования абзацев включают установку границ абзацев и абзацных отступов, выравнивание, а также включение переноса слов.

установку границ абзацев  производят с маркеров отступов, находящихся на координатной линейке, или соответствующими меню.

выравнивание  (выключка). различают четыре вида горизонтального (влево, вправо, по центру, по ширине) и три вида вертикального выравнивания (вверх, вниз, по высоте).

перенос. при выключенном режиме автоматического переноса слово, не поместившееся на строке, полностью переносится на следующую строку. это не придаст элегантности тексту; его правый край остается неровным. для улучшения внешнего вида текста используют режим переноса. при ручном варианте переноса пользователь сам определяет место переноса, вводя дефис, и жестким переводом каретки (нажатием на клавишу enter) переходит на следующую строку. использование такого режима переноса приводит к необходимости удаления дефисов при повторном форматировании текста документа.

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

1)var h: array[1..8]of integer;             i: integer; begin   write('massiv');   for i: =1 to 8 do   read(h[i]);   writeln;   write('elementi s otric znach');   for i: =1 to 8 do   if h[i]< 0 then write(h[i],' '); end.2)var h: array[1..10]of integer;           i,k: integer; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(21)-10;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if h[i]< 0 then k: =k+1;   write('kol-vo elem s otric znach: ',k); end.3)var h: array[1..10]of integer;               i,k,p: integer; begin  write('massiv: ');   for i: =1 to 10 do  begin    h[i]: =random(10)+1;     write(h[i],' ');   end;   writeln;   p: =1;   for i: =1 to 10 do  if h[i] mod 2=1 then    begin    k: =k+1;     p: =p*h[i];     end;   write('kol-vo elem s nechet znach: ',k,' proizvedenie: ',p); end.5)var h: array[1..20]of integer;           i,k,s: integer;           a: real; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(20)+1;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if (h[i] mod 3=0)and(i mod 2=0) then     begin     k: =k+1;     s: =s+h[i];     end;   a: =s/k;   write('srednee arifmet: ',a); end.