Нужно построить звезду и вывести дату;
Вот мой код.
- Код: Выделить всё
uses graph,dos,crt;
{рисование 1 звезды}
procedure Zvezda(x,y,r:integer);
var i:integer;
u:real;
p:array[1..11] of pointtype;
begin
u:=-pi/10;
for i:=1 to 10 do
begin
if i mod 2=0 then
begin
p[i].x:=x+round(r*cos(u));
p[i].y:=y-round(r*sin(u));
end
else
begin
p[i].x:=x+round(r*cos(u)/2);
p[i].y:=y-round(r*sin(u)/2);
end;
u:=u+pi/5;
end;
p[11]:=p[1];
setcolor(12);
setfillstyle(1,12);
fillpoly(11,p);
end;
{procedure Date;
const days:array [0..6] of string[11] =
('Воскресенье', 'Понедельник', 'Вторник',
'Среда', 'Четверг', 'Пятница', 'Суббота');
Var y1,m,d,dow:word;
begin
textbackground(0);
textcolor(15);
clrscr;
getdate(y1,m,d,dow);
WriteLn('Сегодня : ',days[dow],', ',m,'-',d,'-',y1);
readln
end;}
var x,y:integer;
y1,m,d,dow:word;
begin
initgraph(x,y,'');
x:=getmaxX div 4;
y:=getmaxY div 4;
setfillstyle(1,14);
bar(x,y,x+90,y+90);
Zvezda(x+45,y+45,40);
getdate(y1,m,d,dow);
{outtextxy(190,80,'Segodnya : '); //
outtextxy(190,80,m); // Вывод дату
outtextxy(190,80,d); //
outtextxy(190,80,y1);} //
readln
end.
Звезду построить получилось, а дату не могу вывести, помогите вывести дату.
P.S Я нуб.
P.P.S Может это можно в lazarus решить?
