Вывести на экран монитора геометрические фигуры - Pascal ABC

  1. Вывести на экран монитора треугольник светло-серого (LightGray) цвета и прямоугольник светло-зеленого (LightGreen) цвета таким образом, чтобы они поменялись своими местами, после чего процесс изменения положения треугольника и прямоугольника должен повторяться.


textual

Код:

uses crt,graph;
procedure trg(xc,yc:integer);
var a:real;
    i,x,y,y1:integer;
begin
setcolor(lightgray);
a:=pi/2;
y1:=yc+5;
moveto(xc+round(30*cos(a)),y1-round(30*sin(a)));
for i:=1 to 3 do
 begin
  a:=a+2*pi/3;
  x:=xc+round(30*cos(a));
  y:=y1-round(30*sin(a));
  lineto(x,y);
 end;
end;
procedure rect(x,y:integer);
begin
setcolor(lightgreen);
rectangle(x-30,y-20,x+30,y+20);
end;
var x1,x2,y:integer;
begin
initgraph(x1,x2,'');
x1:=getmaxX div 2-150;
x2:=getmaxX div 2+90;
y:=getmaxY div 2;
repeat
cleardevice;
setcolor(14);
outtextXY(getmaxX div 2-50,20,'Exit any key');
trg(x1,y);
rect(x2,y);
delay(1000);
cleardevice;
setcolor(14);
outtextXY(getmaxX div 2-50,20,'Exit any key');
trg(x2,y);
rect(x1,y);
delay(1000);
until keypressed;
end.


Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Описать процедуру SqP(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 — входные, P и S — выходные параметры вещественного типа). С помощью этой процедуры найти периметры и площади трех прямоугольников с противоположными вершинами. P.S. помогите пожалуйста это решить,заранее спасибо за помощь)

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Напишите условие, которое определяет заштрихованную область.

  1. Нужно чтобы выводило min и max с названием детали.

  1. С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

  1. Здравствуйте, необходимо найти площадь прямоугольника по его вершинам, не могу понять в чем моя ошибка?