Помогите пгожалуйста с растром?, Вывод растрового изображения из файла Опции

[Zetrok]

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

program picture;
uses graph;
const
     n=20;
     m=20;
var
   driver, mode, x, y, c: integer;
   i,j:integer;
   A: array[1..n,1..m] of integer;
procedure schit (var f: file);
          begin
               Assign(f,'d:\Programs\file.bmp');
               reset(f);
               For i  := 1 to n do
                   for j := 1 to m do
                      A[i,j]:= read(f,i,j);
               close(f);
         end;
end;

begin
     driver:=detect;
     schit;
     InitGraph(driver,mode,'d:\tp\BGI');
If A[i,j]=0 then Putpixel(i,j,0)
else putpixel(i,j,1);
     closegraph;
     readln;
end.

Но она все равно не работает...
Подскажите плиз что надо подправить и где??? А тоя уже почти с ума сошел, пытаясь отладить её((

М

1. При публикации программ используй теги CODE 2. Если хочешь теоретический ответ, то не приплетай конкретную задачу. Переношу в Задачи -- Лопарь

[Ozzя]

andriano

я ТОЧНО знаю, что у меня эта программа не скомпилируется просто потому, что InitGraph имеет другое количество параметров.

Какое другое?
Судя по

'd:\tp\BGI'

, используется компилятор Borland/Turbo Pascal, требующий именно три параметра. Как и указано в программе.

...
InitGraph(driver,mode,'d:\tp\BGI');
...

Зависит от используемого компилятора.

Какого? В FPC тоже 3 параметра. В VP вообще нет Graph'а. ТМТ Pascal не поддерживает процедуру InitGraph.

[andriano]

В FPC тоже 3 параметра. В VP вообще нет Graph'а. ТМТ Pascal не поддерживает процедуру InitGraph.

Правильно.
Именно ЭТО и называется "Зависит от используемого компилятора".
В частности, от компилятора (точнее, библиотеки) может зависеть НАЗВАНИЕ процедуры, устанавливающей графический режим. Поэтому вместо "не поддерживает процедуру" правильнее было бы написать "процедура называется иначе".