Немного алгоритмов звёздного неба (возможности проверить не было): - Запись на стене пользователя Александра Малышева в Вконтакте. Комментарии и лайки к записи.

Александра Малышева

Немного алгоритмов звёздного неба (возможности проверить не было):
program star_1;
clrscr;
uses graph;

type
SPOINT = object
m,n:integer;
PCL:word;
constructor init (m,n,PCL); ;
Procedure Draw(PCL); Virtual;
end;

const
XMAX=GetMaxX;
YMAX=GetMaxY;

var
s, z,i,j,yi: integer;
x: array[1..XMAX] of integer;
y: array[1..YMAX] of integer;
b,c: word;
f:file;
sst:SPOINT

Procedure SPOINT.draw;
begin
putpixel(m,n,PCL);
end;

begin
assign (f, 'st.gif');
reset(f);
rewrite(f);
s:=0;
b:=GetBkColor;

for i:=1 to XMAX do
begin
x[i]:= i; yi:=random(YMAX);
for j:=1 to yi do
begin y[j]:= random(YMAX);
c:=getpixel(x[i],y[j]);
if c=b then
begin
m:=x[i]; n:=y[j];PCL:=white;
sst.draw;
s:=s+1;
write (f,sst );
end;
end;
end;

close(f);
reset(f);
z:=0;
repeat
begin
read(f);
for i:=1 to XMAX do
for j:=1 to YMAX do
begin c:=getpixel(x[i],y[j]);
if c<>b then z:=z+1;end; end; until eof(f);
writeln(z);
readln;
end.

Немного алгоритмов звёздного неба (возможности проверить не было):
программа star_1;
clrscr;
использует график;

тип
SPOINT = объект
m, n: целое число;
PCL: слово;
конструктор init (m, n, PCL); ;
Розыгрыш процедуры (PCL); Виртуальный;
конец;

const
XMAX = GetMaxX;
YMAX = GetMaxY;

вар
s, z, i, j, yi: целое число;
x: массив [1..XMAX] целых чисел;
y: массив [1..YMAX] целых чисел;
б, в: слово;
f: файл;
sst: SPOINT

Процедура SPOINT.draw;
начать
putpixel (m, n, PCL);
конец;

начать
присваивать (е, 'st.gif');
сбросить (f);
переписать (е);
s: = 0;
b: = GetBkColor;

для i: = 1 до XMAX делать
начать
х [я]: = я; yi: = случайный (YMAX);
for j: = 1 to yi do
начало y [j]: = случайное (YMAX);
c: = getpixel (x [i], y [j]);
если c = b, то
начать
m: = x [i]; n: = y [j]; PCL: = белый;
sst.draw;
s: = s + 1;
написать (f, sst);
конец;
конец;
конец;

закрыть (е);
сбросить (f);
z: = 0;
повторение
начать
читать (f);
for i: = 1 для XMAX делать
для j: = 1 до YMAX сделать
begin c: = getpixel (x [i], y [j]);
если c <> b, то z: = z + 1; end; конец; до eof (f);
Writeln (z);
readln;
конец.

У записи 1 лайков,
0 репостов,
48 просмотров.

Эту запись оставил(а) на своей стене Александра Малышева