Напишите программу в программе турбо паскаль "колебания маятника". если можно с объяснением.

127

227

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

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

astafiev94

Информатика

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

Есть тут один код на примете {программа свободные колебания кругового маятника}program math_01; {подключение модулей подпрограмм}uses crt, graph; {описание констант}const phi0=30; // начальный угол наклона маятника w0=0; // начальная угловая скорость маятника l=400; // длина нити r=8; // радиус груза light=2; // радиус блика k=0.02; // коэффициент сопротивления m=1; // масса груза xp=320; // координата x точки подвеса yp=10; // координата y точки подвеса g=9.8; // ускорение свободного падения tau=0.4; // шаг по времени{описание переменных}var x, y, xx, yy, w, eps, phi: real; {процедура инициализации графического режима 640x480}procedure opengraph; var driver, mode, errorcode: integer; begin driver: =detect; initgraph(driver, mode, 'c: \bp\bgi'); errorcode: =graphresult; if errorcode < > grok then halt(1); end; {процедура исключения мерцаний изображений}procedure glimmer; begin repeat until port[$3da] and 8 < > 0; end; {процедура вывода изображения маятника на экран}procedure display; begin glimmer; setcolor(black); setfillstyle(solidfill, black); line(xp, yp, round(xx), round(yy)); fillellipse(round(xx), round(yy), r, r); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); line(xp, yp, round(x), round(y)); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); setfillstyle(solidfill, darkgray); fillellipse(round(x), round(y), r, r); setcolor(lightgray); setfillstyle(solidfill, white); fillellipse(round(x)-3, round(y)-3, light, light); end; {основная часть программы}begin opengraph; setfillstyle(solidfill, darkgray); bar(xp-20, yp-5, xp+20, yp-1); phi: =phi0*pi/180; w: =w0; x: =xp+l*sin(phi); y: =yp+l*cos(phi); repeat begin xx: =x; yy: =y; eps: =-k*w/m-g*sin(phi)/l; w: =w+eps*tau; phi: =phi+w*tau; x: =xp+l*sin(phi); y: =yp+l*cos(phi); display; end; until keypressed; closegraph; end.

ffff40

Информатика

4,4(93 оценок)

20 букв и 10 цифр составляют алфавит объемом 30 символов. для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает). для одного 8-символьного номера требуется 5х8=40 бит. для 40 номеров потребуется 40х40=1600 бит. или 1600/8=200 байт.

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

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

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

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

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

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

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

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

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

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