Работа с указателями в паскале

[Cartman18]

Вот есть задчка :
1. Дано следующее описание:
const N = 100;
type
realmas = Array [1..N] of Real;
var q: ^realmas; k:integer;
realfile: File of Real;
Организовать печать в обратном порядке элементов вещественного файла до элемента, номер которого равен k.
Помогите(((( скоро сессия! Заранее спасибО!

[Stilet]

Как пробовал? Просто есть несколько разных способов, мало ли какое у тебя задание.
Кстати указатели тут не при чем.

[Serge_Bliznykov]

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

Кстати указатели тут не при чем.

многоуважаемый Stilet, позвольте с Вами не согласиться.. ИМХО, речь идёт о том, чтобы создать динамически в памяти массив q ( New(q) ) и читать в него последовательно числа из файла, считая, сколько прочитал. После чего выводить из массива, начиная с последнего и уменьшая счётчик, пока счётчик не станет равным введённому пользователем числу K
Лень расписывать полностью, но, типа так:

const N = 100;
type 
  realmas = Array [1..N] of Real;
var 
  q: ^realmas; 
  k:integer;
  Count:integer;
  realfile: File of Real;
begin
   WriteLn('Введите K');
   Readln(K);
   Assign(realfile, 'MyRFile.dat');
   Reset(realfile,1);
   New(q);
   Count:=0;
   while Not Eof(realfile) do
   begin
      Inc(Count);
      Read(q^[Count]);
   end;
   Close(realfile);
   while Count>=K do begin
      WriteLn(q^[Count]);
       Dec(Count);
   end;
   Dispose(q);
end.

[Stilet]

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

Хотя конечно лего только преподы не понавыдумывают.