Регистрация Спросить otvet5GPT
gubanvitalya
22.11.2021 22:37
Информатика
Есть ответ 👍

Составьте программу которая запрашивает время в часах(0,3,6,9,12,15,28,21,25)и рисует часы с показаниям и часовой стрелки

153
230
Посмотреть ответы 2

Ответы на вопрос:

dariarez
dariarez
4,8(69 оценок)

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

26

27

28

29

30

31

32

33

34

35

36

37

uses crt,graphABC;

var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;

   u:real;

begin

repeat

write('Введите время в часах, от 0 до 24 кратное 3 h=');

readln(h);

until (h in [0..24])and(h mod 3=0);

setwindowsize(400,400);

c:=200;

r1:=c-30;

r2:=r1-40;

r3:=r1+20;

centerwindow;

clrscr;

hidecursor;

circle(c,c,r1);

//u:=pi/2-pi/6;

for i:=1 to 12 do

begin

 u:=-i*pi/6+pi/2;

 x1:=c+round(r1*cos(u));

 y1:=c-round(r1*sin(u));

 setbrushcolor(clBlack);

 setbrushstyle(bsSolid);

 circle(x1,y1,2);

 x2:=c+round(r3*cos(u));

 y2:=c-round(r3*sin(u));

 u:=u-pi/6 ;

 setbrushstyle(bsClear);

 textout(x2-3,y2-5,inttostr(i));

end;

setpenwidth(3);

h:=h mod 24 mod 12;

u:=-h*pi/6+pi/2;

line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));

end.

kegemov
kegemov
4,7(91 оценок)
но где текст???

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS