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

• a, b –

• midx, midy -

• sum -

• g -

• t -

• x, y –

• m –

• i –

• n -

• s -

описание алгоритма

1.

код программы

uses crt, graphabc;

var a, b: real;

midx, midy: integer;

g: integer;

t: real;

x, y: real;

m: real;

i: integer;

n: integer;

s: string;

begin

hidecursor;

writeln('введите a');

readln(a);

writeln('введите b');

readln(b);

clearwindow;

setwindowtitle ('кривая');

setwindowsize(500,500);

midx : = windowwidth div 2;

midy : = windowheight div 2;

if b> a then

begin

m: =(midx-30)/(2b);

n: =trunc(2b)+1;

end

else

begin

m: =(midx-30)/(2a);

n: =trunc(2a)+1;

end;

for i: =1 to n do

begin

str(i,s);

textout(midx+round(im)+5,midy+10,s);

textout(midx-round(im)+5,midy+10,'-'+s);

textout(midx-20,midy+round(im),s);

textout(midx-20,midy-round(im),'-'+s);

line(midx+round(im),0,midx+round(im),2midy);

line(midx-round(im),0,midx-round(im),2midy);

line(0,midy+round(im),2midx,midy+round(im));

line(0,midy-round(im),2midx,midy-round(im));

end;

textout(midx+4,midy+10,'0');

setpenwidth(3);

line(0, midy, windowwidth, midy);

line(midx, 0, midx, windowheight);

setpencolor(clred);

for g : = 0 to 360 do

begin

t : = g * pi / 180;

x : = midx + mb sqr(cos(t)) + ma cos(t);

y : = midy + mb cos(t) * sin(t) + ma sin(t);

if g = 0 then moveto(round(x), round(y))

else lineto(round(x), round(y));

end;

end.

156

356

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

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

marshmelloy36

Информатика

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

трудна, очень трудна, жоска

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

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

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

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

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

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