Доделайте программу. у меня есть меню и мне надо вставить туда программу в пункт «нарисовать астроиду", и в пункт "справка" написать текст код меню: uses graphabc; const x0 = 150; y0 = 200; w = 100; step = 120; n = 3; kv1=0; kv2=1; kv3=2; var f: integer; q: array[1..3] of string= ('нарисовать астроиду','справка','выход'); procedure menu(f: integer); var i: integer; begin for i: =1 to 3 do begin setfontsize(10); if f=i then setfontcolor(clred) else setfontcolor(clgreen); textout(200,100+i30,q[i]); end; end; procedure choose; begin case f of 1: begin; textout (1,1,'да'); end; 3: halt; end; end; procedure up; begin if f=1 then f: =3 else f: =f-1; clearwindow; menu(f); end; procedure down ; begin if f=3 then f: =1 else f: =f+1; clearwindow; menu(f); end; procedure keydown(key: integer); begin case key of vk_up: up; vk_down: down; vk_enter: begin; choose; end; end; end; begin f: =1; menu(f); onkeydown : = keydown; end. код программы: uses graphabc; var r, xc, yc, x1, y1: integer; x, y, t: real; s: string; begin repeat write('vvedite radius [50..200] r='); readln(r); until r in [50..200]; setwindowsize(400, 400); xc : = windowwidth div 2; yc : = windowheight div 2; line(0, yc, 2 xc, yc); line(xc, 0, xc, 2 * yc); t : = 0; while t < = 2 * pi do begin x : = r * (sqr(cos(t)) * cos(t)); y : = r * (sqr(sin(t)) * sin(t)); x1 : = xc + round(x); y1 : = yc - round(y); putpixel(x1, y1, clgreen); t : = t + 0.001; end; setbrushcolor(clgreen); //setfillstyle(6, 12); //floodfill(xc, yc, clgreen); textout(50, 40, 'astroida'); textout(50, 60, 'x=rcos^3(t) y=rsin^3(t)'); str(r, s); textout(50, 80, 'pri r=' + s); end. текст у меню "справка": астроида это кривая, которую описывает фиксированная точка круга, с середины касаясь неподвижного круга раза большего радиуса, и катится по нему без скольжения

236

309

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

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

Mirajanesan

Информатика

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

Единичный технологический процесс (ЕТП) — технологический процесс изготовления или ремонта изделия одного наименования, типоразмера и исполнения, независимо от типа производства.

Типовой технологический процесс (ТТП) — технологический процесс изготовления группы изделий с общими конструктивными и технологическими признаками.

Групповой технологический процесс (ГТП) — технологический процесс изготовления группы изделий с разными конструктивными, но общим технологическими признаками

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

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

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

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

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

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

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

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

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

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