Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Пошаговая детализация https://www.cyberforum.ru/ turbo-pascal/ thread248329.html
ДОБАВИТЬ В ПРОГУ ПРОЦЕДУРУ ЛИБО ФУНКЦИЮ!!!
Turbo Pascal даны 3 квадратных уравнения..решить с помощью процедуры
a*sqr(x)+b*x+c=0 b*sqr(x)+a*x+c=0 c*sqr(x)+a*x+b=0 Сколько из них имеют вещественные числа..Переменные ввести с клавиатуры
Turbo Pascal Поиск MAX эл-та в каждом столбце матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread248317.html
Ввести квадратную матрицу. Вывести ее. В каждом столбце найти максимальный элемент. От этого макс. эл-та до конца каждого столбца положительные эл-ты увеличить вдвое. Вывести окончательную матрицу.
Turbo Pascal Уравнения и задачи из школьной практической https://www.cyberforum.ru/ turbo-pascal/ thread248315.html
Здравствуйте программисты.Я ученик 9 класса,я ещё плохо знаю Pasсal.У нас практическая по информатике.Могли бы вы мне помочь с решением некоторых примеров и задач? Вот-x+4*a-sqr(b)-почему не...
Turbo Pascal Вычислить значение выражения
Определить значение Z=min(a,3b)*min(2a-b,2b), где min(x,y) есть минимальное из чисел x,y.
Turbo Pascal определить z=max с помощью функции https://www.cyberforum.ru/ turbo-pascal/ thread248303.html
определить z=max(a,2b)*max(2a-b,b) где max (x,y) есть максимальная из чисел x,y.
Turbo Pascal Исключить из массива все отрицательные элементы вычислить сумму S и количество K оставшихся элементов https://www.cyberforum.ru/ turbo-pascal/ thread248293.html
Нужно сделать программу по заданию Дан массив P(m), m меньше или равно 13.Исключить из него все отрицательные элементы вычислить сумму S и количество K оставшихся элементов.Вывести на печать...
Turbo Pascal Вывести масив, упорядочив его по возрастанию
дан масив А(10). Возьвести в квадрат каждый четный элемент массива , каждому не четному элементу масива присвоить его удвоенную сумму. Вывести масив, упорядочив его по возрастанию. Заранее спасибо ...
Turbo Pascal Как отсортировать записи по алфавиту... Вот моя программа которая осуществляет : ввод записей,корректировку,удаление и просмотр записей.Помогите пожалуйста сделать так чтобы при вводе записей они сортировались по Алфавиту , сортировка... https://www.cyberforum.ru/ turbo-pascal/ thread248266.html Turbo Pascal Определить количество строк, в которых присутствует хотя бы один отрицательный элемент Дан двумерный массив. Определить количество строк, в которых присутствует хотя бы один отрицательный элемент. https://www.cyberforum.ru/ turbo-pascal/ thread248262.html
вопросы по Turbo Pascal Turbo Pascal
помогите ответить на контрольные вопросы!
Turbo Pascal Вывести строку со словами в обратном порядке Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке. ... https://www.cyberforum.ru/ turbo-pascal/ thread248256.html
19 / 19 / 5
Регистрация: 05.12.2008
Сообщений: 157
0

Построение геометрических фигур - Turbo Pascal - Ответ 1400018

25.02.2011, 15:04. Показов 1209. Ответов 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.


Вернуться к обсуждению:
Построение геометрических фигур Turbo Pascal
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2011, 15:04
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2011, 15:04

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru