Ответы на вопрос:
USES Crt, Graph;
VAR
Gd,Gm : INTEGER; Av : CHAR; X1, Y1, X, Y : INTEGER; U, H : REAL;
BEGIN
Gd:=Detect; InitGraph(Gd,Gm,'C:\tp7\BGI');
SetFillStyle(1,14); SetBkColor(5); SetColor(14); X:=GetMaxX DIV 2; Y:=GetMaxY DIV 2;
U:=2*Pi;
While U>=0 DO Begin
X1:=Trunc(100*COS(U))+X; Y1:=Tunc(100*SIN(U))+Y;
Circle(X1,Y1,3); Delay(1000); U:=U-0.1;
End;
H:=-5;
While H<=45 DO Begin
X:=Trunc(100+H*10); Y:=Trunc(100-SIN(H)*10);
Circle(X,Y,2);
Delay(500); H:=H+0.5;
End;
H:=-5;
While H<=45 DO Begin
X:=Trunc(100+H*10); Y:=Trunc(380-SIN(H)*10);
Circle(X,Y,2);
Delay(500); H:=H+0.5;
End;
ReadLn;
END.
VAR
Gd,Gm : INTEGER; Av : CHAR; X1, Y1, X, Y : INTEGER; U, H : REAL;
BEGIN
Gd:=Detect; InitGraph(Gd,Gm,'C:\tp7\BGI');
SetFillStyle(1,14); SetBkColor(5); SetColor(14); X:=GetMaxX DIV 2; Y:=GetMaxY DIV 2;
U:=2*Pi;
While U>=0 DO Begin
X1:=Trunc(100*COS(U))+X; Y1:=Tunc(100*SIN(U))+Y;
Circle(X1,Y1,3); Delay(1000); U:=U-0.1;
End;
H:=-5;
While H<=45 DO Begin
X:=Trunc(100+H*10); Y:=Trunc(100-SIN(H)*10);
Circle(X,Y,2);
Delay(500); H:=H+0.5;
End;
H:=-5;
While H<=45 DO Begin
X:=Trunc(100+H*10); Y:=Trunc(380-SIN(H)*10);
Circle(X,Y,2);
Delay(500); H:=H+0.5;
End;
ReadLn;
END.
ответ:
тебе явно было хорошо этой ночью.
объяснение:
расслабься, и представь, что так и должно быть. будто ты повелитель воды : )
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Які настанови сину дає Кіплінг у вірші Якщо...
ALEXAND203320.02.2020 06:05 -
В мой комп врезался голубь, ещё можно починить?...
tanuabekker0028.01.2021 13:10 -
Анын узундугу канча мин километр?...
Тупой7А24.11.2021 22:07 -
Дегустатор по предмету труда: человек-природа человек-техника человек-человек...
Amalya1507.12.2020 03:55 -
Скажите, как это переводится?...
mixa7132ozoc5l05.04.2022 17:09 -
В стратосфере на высоте 20 -30 км находится слой озона O3, защищающий Землю...
arzanix10.04.2022 09:56 -
Көп нүктенің орнына тиісті сөздерді қойыңдар... Ежелгі грех тарихшысы Геродоттың...
Dacha11111111107.03.2021 06:39 -
Скажите, что тут написано?...
Zomka111.02.2023 02:52 -
1. Составьте и запишите синоним к слову СОВРЕМЕННОЕ предложении: Современное...
dasha193309.10.2021 03:22 -
Что это? Для чего? и принцип работы этого...
Sumiya66621.03.2021 11:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.