![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
pasman |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: ![]() ![]() ![]() |
вопрос: почему данная программа выдает вместо 1 круга множество? =(
текст : program found;
uses crt,graph;
var
grdr,grmo,x,y:integer;
d:longint;
begin
grdr:=detect;
initgraph(grdr,grmo,'j:\pascal\bgi');
readln;
for x:=1 to 640 do
for y:=1 to 480 do
begin
d:=abs((x-320)*(x-320))+abs((y-240)*(y-240));
if d<50 then putpixel(x,y,white);
end;
readln;
closegraph;
end.
Сообщение отредактировано: volvo - 15.10.2005 17:46 |
![]() ![]() |
![]() |
Текстовая версия | 8.08.2025 8:27 |