Помогите с написанием программы на Pascal

[Paket4ik]

Всем привет!
Вот задание: Расстановка колонтитулов и двух пустых строк(название,автор и номера страниц ) при высоте страницы в 60 символов.

Писать программу не прошу, подскажите пожалуйста как действовать...в общих чертах...заранее спасибо.

[Stilet]

думаю тут поможет связка gotoxy+write. Переходишь на нужную строку и пишешь в цикле страницу, потом переходишь в начало экрана - пишешь верхний колонтитут, потом тоже в конце экрана

[puporev]

Это наверное все в файле делается? На экранчике Паскаля, даже Free никаких страниц не увидишь.

[Paket4ik]

Stilet, получается в режиме графики это все делается, так?

[puporev]

В текстовом, в графическом не gotoXY, а outtextXY

[Paket4ik]

спасибо..сейчас будем пробовать..

[Stilet]

Вот тебе на раздумья:

uses crt;
 var s,k1,k2:string;f:text;n:integer;
begin
 k1:='Eto kolontitul verha';
 k2:='Eto kolontitul niza';

 assign(f,'WPI_Log.txt');reset(f);
 while not eof(f) do begin
 textbackground(black);gotoxy(1,2);
  n:=3; while (not eof(f))and(n<=23) do begin
         inc(n);
         readln(f,s);writeLn(s);
        end;
  gotoxy(1,1);textbackground(blue); write(k1);
  gotoxy(1,25);textbackground(blue); write(k2);
  readln;
  end;
end.

Его подправитьнемного нужно, но смысл остается один: Отрисовывается страница текста. потом рисуются колонтитуты

[Paket4ik]

Ну теперь просто ОГРОМНОЕ спасибо!!!

[Paket4ik]

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

[Stilet]

я в ауте...

Бывает. Садись и учи Object Pascal. Он не сложный.
Там тебе фактически строк 20 дописать.