Составить программу. На вход подаются три числа: 1-е - площадь дома, 2-е и 3-е - длины сторон прямоугольного участка земли. На выходе фраза " Дом поместится" или "Дом не поместится" (в паскале) если можете скиншотом )
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(g)),w div 2 + round(r*sin(g))) 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;
ЭВМ пятого поколения ставятся совершенно другие задачи, нежели при разработки всех прежних ЭВМ. Если перед разработчиками ЭВМ с I по IV поколений стояли такие задачи, как увеличение производительности в области числовых расчётов, достижение большой ёмкости памяти, то основной задачей разработчиков ЭВМ V поколения является создание искусственного интеллекта машины (возможность делать логические выводы из представленных фактов), развитие "интеллектуализации" компьютеров - устранения барьера между человеком и компьютером. Компьютер теперь используется и дома, это компьютерные игры, прослушивание высококачественной музыки, просмотр фильмов. Уже сейчас компьютеры воспринимать информацию с рукописного или печатного текста, с бланков, с человеческого голоса, узнавать пользователя по голосу, осуществлять перевод с одного языка на другой. Это позволяет общаться с компьютерами всем пользователям, даже тем, кто не имеет специальных знаний в этой области.
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(g)),w div 2 + round(r*sin(g)))
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.