Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Анимация цвета http://www.cyberforum.ru/pascalabc/thread1141567.html
1) Построить три геометрические фигуры: окружность, квадрат и треугольник. 2) Расположить их по горизонтали. 3) Создать покадровую анимацию цвета для этих фигур в соответствии с вариантом. 1....
Pascal ABC Поворот фигуры на заданный угол
1) Построить треугольник в соответствии с вариантом синим цветом 2) Повернуть его на угол равный a, где а = (первое число студенческого билета + второе число студенческого билета) * последнее число...
Паралелььный перенос на вектор Pascal ABC
1) Построить треугольник с соответствии с указанным вариантом красным цветом 2) Сместить его на вектор (a,b), где а — первое число студенческого билета * ваш номер по списку, b – последние два...
Pascal ABC Нарисовать жезл r=a/b http://www.cyberforum.ru/pascalabc/thread1141557.html
Pascal ABC Строковой тип http://www.cyberforum.ru/pascalabc/thread1141530.html
Составить программу для учета и обработки данных о студентах (фамилия, имя, цвет волос). Определить и вывести записи брюнетов из всего списка студентов.
Процедура. Работа с файлом Pascal ABC
Написать программу, которая преобразует по указанному правилу текст, находящийся в текстовом файле, созданном в текстовом редакторе Word. В текстовом файле у всех слов, оканчивающихся на «тся»,...
Как поместить среднее значение fc2 в массив mas? Pascal ABC
Ребят, как мне засунуть среднее значение fc2 в массив mas? Заранее спасибо! Program qq; Uses CRT; Var a,b,c,i,j,q,k,r,g,u,count: integer; sr,sr1,sr2: real; count2,count3:integer; ...
Pascal ABC Даны массивы А(10), В(10), С(10). Сформировать массив D(10), где Di = MAX{Ai, Bi, Ci} Даны массивы А(10), В(10), С(10). Сформировать массив D(10), каждый элемент которого есть максимальное значение соответствующих элементов А, В, С, т.е. Di=MAX{Ai , Bi, Ci} (i везде внизу) .... http://www.cyberforum.ru/pascalabc/thread1141522.html
Pascal ABC Вычислить сумму первых четырех отрицательных элементов массива http://www.cyberforum.ru/pascalabc/thread1141518.html
Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить дополнительно задание своего варианта поиска данных по некоторому критерию (признаку). Результат вывести на...
Pascal ABC Протабулировать функцию Протабулировать функцию у = sin(x+ i) на отрезке с шагом h=0,01*i, где i =6. Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. вычислить количество отрицательных значений... http://www.cyberforum.ru/pascalabc/thread1141515.html
Puporev
Модератор
56825 / 43420 / 30023
Регистрация: 18.05.2008
Сообщений: 103,428
07.04.2014, 19:45 0

Построение основных графических примитивов

07.04.2014, 19:45. Просмотров 892. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено popuas как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses GraphABC;
var r,i,j,x,y,d:integer;
begin
r:=20;
d:=r-6;
y:=r;
setbrushstyle(bsClear);
while y<=windowheight do
 begin
  x:=r;
  while x<=windowwidth do
   begin
    circle(x,y,r);
    x:=x+2*d;
   end;
  y:=y+2*d
 end;
end.


Вернуться к обсуждению:
Построение основных графических примитивов
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2014, 19:45

Построение графических примитивов
Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графинных...

Построение графических примитивов на OpenGL
У меня такои вопрос. Есть листинг програмы на делфи, типо построение графических примитивов на...

Распознавание графических примитивов
Посоветуйте пожалуйста алгоритмы распознавания геометрических фигур в зашумленном изображении...

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