- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
program sharokat;
uses crt, graphABC;
type shar = class
col, x, y, r: integer;
constructor Create (ccol, cx, cy, cr: integer);
begin
col:=ccol;
x:=cx;
y:=cy;
r:=cr;
end;
procedure make;
begin
setbrushcolor (col);
circle (x,y,r);
end;
end;
var my:shar;
begin
my:=shar.Create(666,100,100,60);
my.make;
end.
shara ет немного другое
Эй гондоны, сукибляди!
А человек всего-лишь хотел показать как в паскале кружок нарисовать.
Когда каждый пишет какую-то рандомную хуйню, а мозг у читателя потихоньку начинает взрываться.
Каждый раз, когда ты говоришь "кордебалеции", где-то тихо плачет в стек рекурсия теним (обратно прочитать теним (обратно прочитать теним (обратно прочитать те букву в этом порядке и положить теним, лана.
> circle (x,y,r);
Кто бы мог подумать!
inb4: Гроб, гроб, кладбище, пидор.