Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 04.05.2009
Сообщений: 10
1

Graph (квадрат, окружность).

07.05.2009, 17:35. Просмотров 1811. Ответов 2
Метки нет (Все метки)

Прога такая, выводит на экран прямоугольник в котором координатные оси ( х є [-3;3] у є[-2;2]), центр прямоугольника и центр осей совпадают, потом под рисунком пишет введите центр круга: я ввожу [1;2] и мне рисует круг на нарисованный осях, центр которого будет (1;2)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.05.2009, 17:35
Ответы с готовыми решениями:

Вписывается ли квадрат в окружность
Помогите пожалуйста. Дана матрица с 2 строками и 10 столбцами. Рассматривая первый элемент столбца...

Определить, можно ли окружность поместить в квадрат
Дано два числа - длина стороны квадрата и радиус окружности. Определить, можно ли окружность...

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

Окружность вписана в квадрат. Найти площадь квадрата, вписанного в эту окружность
Помогите, пожалуйста... 2)Окружность вписана в квадрат (задана площадь этого квадрата) найти...

2
Модератор
60173 / 45316 / 31273
Регистрация: 18.05.2008
Сообщений: 108,837
08.05.2009, 13:47 2
Лучший ответ Сообщение было отмечено westzhuk как решение

Решение

Вот посмотри, там еще в цветах надо наверное сделать, но это уж сам, а то на цвет товарища нет.Будут вопросы, задавай в личку или в асю(в профиле).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt,graph;
var x0,y0,dx,dy,h,cx,cy,ix,iy,r,i,gd,gm:integer;
begin
clrscr;
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
dx:=300;dy:=230;
h:=70;
outtextXY(5,1,'Vvedite X ot -3 do 3');
repeat
readln(ix);
until(ix>=-3)and(ix<=3);
outtextXY(5,11,'Vvedite Y ot -2 do 2');
repeat
readln(iy);
until(iy>=-2)and(iy<=2);
cx:=x0+ix*h;cy:=y0-iy*h;
repeat
outtextXY(5,21,'Vvegite R');
readln(r);
if (r>cx-(x0-dx))or(r>cy-(y0-dy)) then
outtextXY(5,31,'Ochen bolshoj radius!') ;
until (r<=cx-(x0-dx))and(r<=cy-(y0-dy));
cleardevice;
{прямоугольник}
rectangle(x0-dx,y0-dy,x0+dx,y0+dy);
{линии осей координат}
line(x0-h*3,y0,x0+h*3,y0);
line(x0,y0-h*2,x0,y0+h*2);
{засечки на оси Х}
for i:=1 to 7 do
line((x0-h*3)+h*(i-1),y0-3,(x0-h*3)+h*(i-1),y0+3);
{засечки на оси Y}
for i:=1 to 5 do
line((x0-3),(y0-h*2)+h*(i-1),(x0+3),(y0-h*2)+h*(i-1));
{подписи на оси Х}
outtextXY(x0-3*h+5,y0+5,'-3');
outtextXY(x0-2*h+5,y0+5,'-2');
outtextXY(x0-h+5,y0+5,'-1');
outtextXY(x0+5,y0+5,'0');
outtextXY(x0+h-5,y0+5,'1');
outtextXY(x0+2*h-5,y0+5,'2');
outtextXY(x0+3*h-5,y0+5,'3');
{подписи на оси Y}
outtextXY(x0+5,y0-2*h+5,'2');
outtextXY(x0+5,y0-h+5,'1');
outtextXY(x0+5,y0+h-5,'-1');
outtextXY(x0+5,y0+2*h-5,'-2');
Circle(cx,cy,2);
Circle(cx,cy,r);
readln;
closegraph
end.
1
0 / 0 / 0
Регистрация: 04.05.2009
Сообщений: 10
08.05.2009, 19:49  [ТС] 3
Большое СПАСИБО!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2009, 19:49

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

Окружность вписана в квадрат заданной площади. Найти площадь квадрата, вписанного в эту окружность.
Окружность вписана в квадрат заданной площади. Найти площадь квадрата, вписанного в эту окружность....

Построить квадрат и вписанную в него окружность
Построить квадрат и вписанную в него окружность. Добавлено через 2 часа 1 минуту Вот что у меня...

Окружность вписана в квадрат. Найти диагонали и периметр квадрата
Сделать на паскале:Окружность с радиусом R вписана в квадрат .найти диагонали и периметр квадрата

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.