нужно нарисовать рисунок

@botanik449 · Регистрация: 22.05.2011

Author24 — интернет-сервис помощи студентам

задача : в шаблоне состоящем из n строк и m столбцов , подготовить "точечный" рисунок (клетка закрашена-1 ,пуста-0).Вводится матрица , состоящая из 1 и 0. Вывести рисунок на экран и размножить его .

помогите решить , ну или хоть какие-нибудь мысли подкиньте ... сам не знаю как .

@Puporev · 22.05.2011, 20:19

Примерно так...

Pascal

Program Korabli;
uses Graph;
const
m:array[1..11,1..9] of byte=((0,0,0,0,1,0,0,0,0),
                             (0,0,0,0,1,1,0,0,0),
                             (0,0,0,0,1,0,1,0,0),
                             (0,0,0,0,1,0,0,1,0),
                             (0,0,0,0,1,0,0,0,1),
                             (0,0,0,0,1,0,0,1,0),
                             (0,0,0,0,1,0,1,0,0),
                             (0,0,0,0,1,1,0,0,0),
                             (1,1,1,1,1,1,1,1,1),
                             (0,1,1,1,1,1,1,1,0),
                             (0,0,1,1,1,1,1,0,0));
 
Procedure Korablik(x,y:integer);
var i,j,d:byte;
begin
d:=5;
setcolor(15);
setfillstyle(1,15);
for i:=1 to 11 do
for j:=1 to 9 do
if m[i,j]=1 then
bar(x+(j-1)*d,y+(i-1)*d,x+j*d,y+i*d);
end;
var gd,gm,i:integer;
begin
initgraph(gd,gm,'');
for i:=1 to 5 do
Korablik(i*100,200);
readln
end.

@botanik449 · 22.05.2011, 20:38 **[ТС]**

спасибо тебе большое ))

а можешь объяснить что делает эта строчка ?

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

bar(x+(j-1)*d,y+(i-1)*d,x+j*d,y+i*d);

и что такое d ?

@Puporev · 22.05.2011, 20:44

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

и что такое d ?

Это размер клетки в пикселях.

а можешь объяснить что делает эта строчка ?

рисует закрашенные квадратики в заданных координатах экрана.

@botanik449 · 22.05.2011, 20:49 **[ТС]**

еще раз огромное спасибо

@botanik449 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 6
		1
	нужно нарисовать рисунок 22.05.2011, 19:26. Показов 1001. Ответов 4 Метки нет (Все метки) задача : в шаблоне состоящем из n строк и m столбцов , подготовить "точечный" рисунок (клетка закрашена-1 ,пуста-0).Вводится матрица , состоящая из 1 и 0. Вывести рисунок на экран и размножить его . помогите решить , ну или хоть какие-нибудь мысли подкиньте ... сам не знаю как . 0

@botanik449 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 6
	22.05.2011, 20:38 [ТС]	3
	спасибо тебе большое )) а можешь объяснить что делает эта строчка ? Сообщение от Puporev bar(x+(j-1)d,y+(i-1)d,x+jd,y+id); и что такое d ? 0

@Puporev Почетный модератор 64301 / 47596 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.05.2011, 20:44	4
	Сообщение от botanik449 и что такое d ? Это размер клетки в пикселях. а можешь объяснить что делает эта строчка ? рисует закрашенные квадратики в заданных координатах экрана. 0

@botanik449 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 6
	22.05.2011, 20:49 [ТС]	5
	еще раз огромное спасибо 0