Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
3,49 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:885500
 
Автор:
Оценка:
Опубликованно: 03.09.2010.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

procedure zimet_rinkis(r:integer);

var
x,y,p,x1,y1:integer;
const
x_centrs=140;
y_centrs=140;
begin
x:=0;
y:=r;
p:=1-r;
while y>x do
begin
if p<0 then
begin
x:=x+1;
y:=y;
p:=p+2*x+1;
end
else
begin
x:=x+1;
y:=y-1;
p:=p+2*x+1-2*y;
end;
Form1.Canvas.Pixels[x_centrs+x,y_centrs+y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs+y,x_centrs+x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs-x,y_centrs+y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs-y,x_centrs+x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs+x,y_centrs-y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs+y,x_centrs-x]:=CLBLACK;
Form1.Canvas.Pixels[x_centrs-x,y_centrs-y]:=CLBLACK;
Form1.Canvas.Pixels[y_centrs-y,x_centrs-x]:=CLBLACK;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
begin
r:=StrToInt(Edit1.text);

zimet_rinkis(r);
end;
end.

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация