-
Длина отрезка 63 см. Какова длина а) 3/7 отрезка б) 25% отрезка в) найдите длину отрезка, если 1,5 отрезка равны 27 см.
-
Предмет:
Математика -
Автор:
santiago - 5 лет назад
-
Ответы 3
-
ещё раз огромное СПАСИБО :)
-
Автор:
samson - 5 лет назад
-
0
-
-
помогли очень)
-
Автор:
preciousvalentine - 5 лет назад
-
0
-
-
Всегда пожалуйста:)
-
Автор:
brenda - 5 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
4x+7=0 уравнение решить плз
-
Предмет:
Алгебра -
Автор:
camronnjod - 5 лет назад
-
Ответов:
2 -
Смотреть
-
-
помогите разобраться как решать эту систему уравнений:
-
Предмет:
Математика -
Автор:
dudeholt - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
плиз, доделайте программу.
У меня есть меню и мне надо вставить туда программу в пункт «Нарисовать астроиду", и в пункт "Справка" написать текст
Код меню:
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+i*30,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=r*cos^3(t) y=r*sin^3(t)');
str(r, s);
textout(50, 80, 'pri R=' + s);
end.
Текст у меню "Справка":
Астроида это кривая, которую описывает фиксированная точка круга, с середины касаясь неподвижного круга раза большего радиуса, и катится по нему без скольжения-
Предмет:
Информатика -
Автор:
nikitalozano - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
log3(log2 16-1)
скажите ответ пожалуйста-
Предмет:
Математика -
Автор:
diggerlowe - 5 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35894 -
Askold
2792 -
Pikachu
2224 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1156 -
Poinntt
946 -
Bars
930 -
Queenmagic18
754
How much to ban the user?
1 hour
1 day
100 years