Построить звезду и вывести дату - Free Pascal
Формулировка задачи:
Здравствуйте;
Нужно построить звезду и вывести дату;
Вот мой код.
Звезду построить получилось, а дату не могу вывести, помогите вывести дату.
P.S Я нуб.
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.
Решение задачи: «Построить звезду и вывести дату»
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.
Объяснение кода листинга программы
- Объявлены переменные: x, y, y1, m, d, dow, v, code, s.
- Выполняется функция initgraph(x,y,''), которая инициализирует графический режим.
- Значения переменных x и y устанавливаются равными половине максимальной ширины и высоты экрана соответственно.
- Устанавливается стиль заливки (фигура 1,14).
- Выполняется функция bar(x,y,x+90,y+90), которая рисует прямоугольник.
- Выполняется функция Zvezda(x+45,y+45,40), которая рисует звезду.
- Получается текущая дата с помощью функции getdate(y1,m,d,dow).
- Выводится текст
Сегодня :
с помощью функции outtextxy(190,80,'Segodnya : '). - В переменную s записывается текущий месяц с помощью функции str(m, s).
- В переменную s записывается текущий день с помощью функции str(d, s).
- В переменную s записывается текущий год с помощью функции str(y1, s).
- Чтение строки с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д