Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Zastiesto
0 / 0 / 3
Регистрация: 10.10.2010
Сообщений: 66
#1

Составить процедуру графического построения круговой диаграммы

29.03.2011, 21:31. Просмотров 991. Ответов 1
Метки нет (Все метки)

Программирование задач создания графических объектов.
ТРЕБОВАНИЯ! Каждая программа должна содержать вывод назначения программы и Ф.И.О. автора на русском языке в графическом режиме.
1. Составить процедуру графического построения круговой диаграммы,
в качестве параметров выбрать количество показателей и их значения
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2011, 21:31
Ответы с готовыми решениями:

Составить процедуру построения увеличивающего круга
Нужна помощь в написании алгоритма (укажите мне правильный путь) Задание: Составить процедуру...

Составить программу инициализации графического режима, предварительно выполнив тестирование графического адаптера
Здравствуйте! Вот, попалась не простая(по моему субъективному мнению) задача, которую я совершенно...

Составить алгоритм построения матрицы Паскаля
Двумерные массивы. Задание 3.(желательно сделать с процедурами и функциями). Составить алгоритм...

Составить программу построения графика функции
составить программу построения графика функции y={x}^{3}-4*{x}^{2} ,

Составить программу для построения графика функции y=tg(x^3-1)
Помогите пожалуйста в решении задачи. Составить программу для построения графика функции...

1
Puporev
Модератор
54356 / 41946 / 28979
Регистрация: 18.05.2008
Сообщений: 98,811
30.03.2011, 09:53 #2
Prolog
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
uses crt,graph;
const nmax=20;
type mas=array[1..nmax] of byte;
var x,y:integer;
procedure Diagr(z:mas;n:byte);
var i:byte;
    s,a,b,r:integer;
begin
s:=0;
for i:=1 to n do
s:=s+z[i];
r:=150;
b:=round(360*z[1]/s);
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to n-1 do
 begin
   a:=round(360*z[i]/s)+b;
   Setfillstyle(1,i);
   PieSlice(x,y,a,b,r);
   b:=a;
 end;
Setfillstyle(1,n);
PieSlice(x,y,b,360,r);
end;
Var z:mas;
    n,i: integer;
Begin
clrscr;
repeat
write('Kol. pokazatelej do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite znachenia >0');
for i:=1 to n do
 begin
  repeat
   write('z[',i,']=');
   readln(z[i]);
  until z[i] in [1..255];
 end;
x:=0;
initgraph(x,y,'..\BGI');{пропишите полный путь в папке BGI, 
чтобы использовать русские растровые шрифты}
x:=getmaxX div 2;
y:=getmaxY div 2;
settextstyle(3,0,3);
outtextXY(80,20,'Программа построения круговой диаграммы');
outtextXY(80,50,'       Cоставил Иванов И.И.');
Diagr(z,n);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2011, 09:53

Составить программу для построения графика функции
Помогите плиз написать программу: Составить программу для построения графика функции y=1/cos(x) на...

Составить программу построения n вложенных разноцветных ромбов
Составить программу построения n вложенных разноцветных ромбов.

Составить программу построения. Спасайте, я вообще не понимаю в матрицах
Составить программу построения по целочисленной матрице A = { aij }, i = 1 ¸ n, j = 1 ¸ m...


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

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

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