Построить звезду и вывести дату - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте; Нужно построить звезду и вывести дату; Вот мой код.
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 Я нуб.

Решение задачи: «Построить звезду и вывести дату»

textual
Листинг программы
var  x,y:integer;
    y1,m,d,dow:word;
    v, code : integer;
    s : string;
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 : ');
  str(m, s); outtextxy(190,100,s);
  str(d, s); outtextxy(210,100,s);
  str(y1, s); outtextxy(230,100,s);
  readln
end.

Объяснение кода листинга программы

  1. Объявлены переменные: x, y, y1, m, d, dow, v, code, s.
  2. Выполняется функция initgraph(x,y,''), которая инициализирует графический режим.
  3. Значения переменных x и y устанавливаются равными половине максимальной ширины и высоты экрана соответственно.
  4. Устанавливается стиль заливки (фигура 1,14).
  5. Выполняется функция bar(x,y,x+90,y+90), которая рисует прямоугольник.
  6. Выполняется функция Zvezda(x+45,y+45,40), которая рисует звезду.
  7. Получается текущая дата с помощью функции getdate(y1,m,d,dow).
  8. Выводится текст Сегодня : с помощью функции outtextxy(190,80,'Segodnya : ').
  9. В переменную s записывается текущий месяц с помощью функции str(m, s).
  10. В переменную s записывается текущий день с помощью функции str(d, s).
  11. В переменную s записывается текущий год с помощью функции str(y1, s).
  12. Чтение строки с помощью функции readln.

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы