Регистрация
autosteklo777
Есть ответ 👍

Вращение Земли вокруг Солнца (программа Паскаль)

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

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

KathrynMay
KathrynMay
4,6(74 оценок)
Uses Crt, GRAPH;
Var i, d: integer;
fi, h, ; real;
x0, y0, r1: integer;
begin
d := detect;
InitGRAPH (d, i, 'G/Work/t7');                        {Инициализация графики}
SetColor (Red);
Circle (320, 240, 10);                    {Рисование окружности красного цвета}
SetFillStyle (1, Red);
FloodFill (320, 240, Red);               {Закраска круга (Солнца)  красным цветом}
R1:= 100; h:=5; fi:= 0;
Repeat
X0:= round (r1*sin (fi)) +320;
Y0:= round (r1*cos(fi)) +240;
fi:= fi+2*pi*h/360;
Putpixel (x0, y0, 15);
delay(50);
Putpixel ((x0, y0, 0);
Until keypressed;
CloseGraph
end.
Dizig
Dizig
4,5(40 оценок)

Сабанту́й — ежегодный народный праздник окончания весенних полевых работ у татар и башкир. Похожие праздники существуют как у народов Поволжья, так и у некоторых тюркских народов Кавказа, однако они имеют свою специфику. Скорее всего, Твардовский использует слово сабантуй в значении праздника.

Популярно: Другие предметы