19 / 19 / 5
Регистрация: 05.12.2008
Сообщений: 157
1

Построение геометрических фигур

25.02.2011, 15:04. Показов 1183. Ответов 1
Метки нет (Все метки)

Доброго времени суток.
Хочу в графическом режиме показать решение вот этой задачки: Геометрическая головоломка.
Всё вроде бы ничего, да вот застрял на этапе, где происходит подбор максимального прямоугольника. Хочу каждый этот прямоугольник визуально показывать. Проблема вот:
...
ix:=x/2; xi:=ix*(-1);

iy:=y/2; yi:=iy*(-1);

Rectangle(ix,iy,xi,yi);
....
Не пойму какой тип переменных выбрать, пишет "Error 26:Type mismatch;"
Весь листинг:
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 uses crt,Graph;
 
 var
d,m,t,x1,x2,x3,x4,y1,y2,y3,y4,jx,jy,xj,yj:integer;
a,x,b,y,mx,xmx,ymx:real;
ix,iy,xi,yi:integer;
 BEGIN
   d:=detect;
   initgraph(d,m,'');
   cleardevice;
 
   Setcolor (Green);
   SEtFillStyle(1,0);
   Line(5,30,100,30);
   OutTextXY(5,10,'1) Stroim Polu Ellips!!!');
    For t:=1 to 50 do
     begin
      t:=t+1;
      delay(10000);
      if t mod 3 = 1 then OutTextXY(50,10,'.');
     end;
   sector(400,200,0,540,100,60);
   Readln;
 
   OutTextXY(5,40,'2) Nakladyavaem ploskost'' kordinat');
    For m:=1 to 50 do
     begin
      t:=t+1;
      delay(10000);
      if t mod 2 = 1 then OutTextXY(50,10,'.');
     end;
   x1:=200; y1:=200; x2:= 600;
   SetFillStyle(2,0);
 
   Line(x1,y1,x2,y1);
   x3:= 400; y3:=50; y4:=200;
   Line(x3,y3,x3,y4);
 
   For m:=1 to 50 do
     begin
      m:=m+1;
      delay(1000);
      if m mod 3 = 1 then OutTextXY(50,10,'.');
     end;
 
   {reshenie}
 
   mx:=0; x:=0;
    Readln(a,b);
     while x<=a do
      begin
       y:=b*sqrt(1-sqr(x/a));
       if x*y>mx then
        begin
         mx:=x*y;
         xmx:=x;
         ymx:=y;
        end;
       x:=x+0.001;
       ix:=x/2; xi:=ix*(-1);
 
       iy:=y/2; yi:=iy*(-1);
 
       Rectangle(ix,iy,xi,yi);
      end;
 
 
  readln
  END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2011, 15:04
Ответы с готовыми решениями:

50 разноцветных геометрических фигур со случайным расположением
Написать программу, порождающую 50 разноцветных геометрических фигур со случайным расположением,...

Составить программу вычисления площадей различных геометрических фигур
Составить программу вычисления площадей различных геометрических фигур:

Описать одну из геометрических фигур: круг, квадрат, прямоугольник, треугольник
Условие: Опишите запись с вариантами. Каждая запись описывает одну из геометрических фигур: круг,...

Нарисовать узор, составленный из геометрических фигур заданных случайными координатами
:cry:помогитеееее!!!срочно плиз!!!!!задача на паскаль абс нужно написать прогорамму которая...

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
25.02.2011, 15:30 2
ix:=round(x/2);
iy:=round(y/2);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2011, 15:30

Вывести на экран изображения двух геометрических фигур заданного цвета
Составить программу, которая выводит на экран изображения двух геометрических фигур заданного...

Построить систему классов для описания плоских геометрических фигур
ПОЖАЛУЙСТА ПОМОГИТЕ ИСПРАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ!!!!! Var a of Real;...

Опишите одну из геометрических фигур: круг, квадрат, прямоугольник, треугольник
Помогите решить такую задачку. Опишите запись с вариантами. Каждая запись описывает одну из...

Написать программу создания модуля unit, для простейших геометрических фигур: прямоугольника и круга.
Написать программу создания модуля unit,для простейших геометрических фигур: прямоугольника и круга.


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

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

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