IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите пгожалуйста с растром?, Вывод растрового изображения из файла
сообщение
Сообщение #1


Гость






Мне тут надо из файла, ваывести небольшое растровое изображение на экран(без подкачки)ж
Довольно прилично подумав я получил такую прогу
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. Если хочешь теоретический ответ, то не приплетай конкретную задачу. Переношу в Задачи
-- Лопарь

 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Я не понимаю, при чем здесь "выгода". (если для меня есть выгода, то в чем она будет состоять?)

Вопрос простой: что я должен сделать, если обнаружил ошибку в опубликованном исходнике? Имею ли я право сообщить о ней (вне зависимости от всех других содержащихся в исходнике ошибках), либо ДОЛЖЕН обнаружить ВСЕ ошибки прежде, чем что-либо написать?

То, что ТР у меня не установлен и, соответственно, проверить исходник на компилируемость я не могу, я уже писал.
Более того, Паскаль остается Паскалем вне зависимости от используемого компилятора. Особенности, конечно, должны обсуждаться в соответствующих разделах, но на то они и особенности. Задачи, насколько я понимаю, к таким особенностям не относятся.
Для задачи, как правило, важен алгоритм, а язык вообще может быть любой: хоть Си, хоть Паскаль, хоть Фортран, хоть Оберон...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Zetrok   Помогите пгожалуйста с растром?   15.12.2007 3:32
Lapp   Assign(f,'d:\Programs…   15.12.2007 4:57
andriano   Ты рисуешь только одну точку. Видишь ли ты ее на э…   15.12.2007 5:00
Lapp   Ты рисуешь только одну точку. Видишь ли ты ее на …   15.12.2007 8:30
andriano   Что значит "внимательнее"? Я что, обязан…   15.12.2007 14:56
Client   А сколько надо параметров тогда?   15.12.2007 15:11
andriano   Зависит от используемого компилятора.   15.12.2007 15:33
Ozzя   andriano Какое другое? Судя по , используется к…   15.12.2007 15:56
andriano   В FPC тоже 3 параметра. В VP вообще нет Graph…   15.12.2007 17:20
volvo   :mad: Ты знаешь, ты в принципе и отвечать-то не …   15.12.2007 17:28
andriano   Я не понимаю, при чем здесь "выгода". (е…   15.12.2007 17:43
Lapp   Что значит "внимательнее"? Я что, обязан…   15.12.2007 18:30
Гость   Ты рисуешь только одну точку. Видишь ли ты ее на …   15.12.2007 21:50
Lapp   У мну то в принципе с текстом то все норм... ... …   16.12.2007 9:06
Гость   Не знаю, что ты называешь, нормально - и что ты н…   16.12.2007 20:36
andriano   1. Считать заголовок. 2. Разобрать его, выполнит…   16.12.2007 20:52
Гость   1. Считать заголовок. 2. Разобрать его, выполнит…   16.12.2007 21:52
andriano   blockread, getmem   16.12.2007 22:06
Zetrok   blockread, getmem А мну надо в параметре тока п…   17.12.2007 2:38
Michael_Rybak   а ты открой справку по двум этим функциям и посмот…   17.12.2007 2:45
Гость   а ты открой справку по двум этим функциям и посмо…   18.12.2007 0:49
Zetrok   Я уже почти с БМП разобрался болььшое всем спасибо…   20.12.2007 22:49
andriano   blockread и getmem не требуют настройки до либо об…   21.12.2007 0:04
Гость   blockread и getmem не требуют настройки до либо о…   21.12.2007 0:19


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name