Все , надо нарисовать в pasalabc часы , в которых 3 стрелки, а в поле ввода, нужно ввести время, которое должно показываться на нарисованных часах, угол считать в градусах, а не в радианах, часы должны ходить

132

377

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

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

feliz3600

Информатика

4,7(58 оценок)

Uses graphabc; const w = 600; r = 300; dl = 40; sl = 250; ml = 200; hl = 150; var h,m,s: integer; i: integer; x,y: integer; g: real; begin setwindowsize(w,w); read(h,m,s); h : = h mod 12; setpenwidth(2); circle(w div 2, w div 2, r); for i : = 0 to 59 do begin g : = (i*360/60 - 90) * pi/180; if i mod 12 = 0 then begin x : = w div 2 + round((r - dl) * cos(g)); y : = w div 2 + round((r - dl) * sin(g)); end else begin x : = w div 2 + round((r - dl div 3) * cos(g)); y : = w div 2 + round((r - dl div 3) * sin(g)); end; line(x,y,w div 2 + round(r*cos( div 2 + round(r*sin( end; setbrushcolor(clwhite); while true do begin setpencolor(clwhite); circle(w div 2, w div 2, sl); setpencolor(clblack); setpenwidth(1); g : = (6*s - 90) * pi/180; x : = w div 2 + round(sl * cos(g)); y : = w div 2 + round(sl * sin(g)); line(w div 2, w div 2, x, y); setpenwidth(2); g : = ((60*m + s)/10 - 90) * pi/180; x : = w div 2 + round(ml * cos(g)); y : = w div 2 + round(ml * sin(g)); line(w div 2, w div 2, x, y); setpenwidth(3); g : = (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180; x : = w div 2 + round(hl * cos(g)); y : = w div 2 + round(hl * sin(g)); line(w div 2, w div 2, x, y); s : = s + 1; if s = 60 then begin m : = m + 1; s : = 0; end; if m = 60 then begin h : = (h + 1) mod 12; m : = 0 end; sleep(1000) end; end.

Polinadonut

Информатика

4,8(79 оценок)

1мбайт = 2^23 бит 1024*2048 = 2^21 бит 2^23/2^21 = 4 бита ответ: 4

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

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

Задай свой вопрос

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

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

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

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

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

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

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