0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 16
1

Создать диаграмму на основе одномерного массива

09.02.2010, 14:37. Показов 1660. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать диаграмму на основе одномерного массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.02.2010, 14:37
Ответы с готовыми решениями:

Создать класс, реализующий однонаправленный список на основе одномерного массива
Здравствуйте, уважаемые гуру, асы и прочие гении программирования С++ Помогите пожалуйста решить...

Построение диаграммы на основе одномерного массива
Доброго времени суток! Я новичок в программировании, поэтому мой вопрос для вас может показаться...

Класс на основе одномерного массива строк
Составить описание класса одномерных массивов строк, каждая строка которых задается длиной и...

Список на основе одномерного динамического массива
Добрый вечер! Кто может привести в пример структуру такого списка? (на основе одномерного...

1
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.02.2010, 14:56 2
Лучший ответ Сообщение было отмечено van777 как решение

Решение

Разбирайся на досуге, читай, думай.
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
uses crt;
const n=15;
var a:array[1..n] of integer;
 nechet,k,c,i,s,q:integer;
procedure diagramma;
 var i,x1,x2,y1,y2,dx,q,k:integer;
     ky:real;
     max,min:integer;
begin
 window(1,3,80,25);
 textbackground(0);
 clrscr;
 max:=a[1];min:=a[1];
 for i:=1 to n do
   begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
   end;
 if max>abs(min) then  ky:=9/max else ky:=9/abs(min);
 dx:=(60-n) div n;
 x1:=1;
 y2:=13;
 for i:=1 to n do
  begin
   x2:=x1+dx;
   k:=i mod 8;
   if k in[0,7] then k:=k+3;
   if a[i]>=0 then
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y1,x2,y2);
     textbackground(k);
     clrscr;
     write(a[i]:3);
    end
   else
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y2+1,x2,y1+1);
     textbackground(k);
     clrscr;
     gotoXY(1,abs(round(a[i]*ky)));
     write(a[i]);
    end;
  x1:=x2+1;
 end;
end;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(200)-100;
  write(a[i]:4);
 end;
diagramma;
readkey;
end.
1
09.02.2010, 14:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2010, 14:56
Помогаю со студенческими работами здесь

Написать стек на основе одномерного массива
Пробую написать стек на основе одномерного массива. Скажите что не так делаю. #include...

Найти сумму на основе элементов одномерного массива
Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов. Для...

Реализовать двунаправленную очередь на основе одномерного символьного массива
Добрый день! Реализовал программу по данной задаче. На основе одномерного массива символьных...

Построить двоичное дерево на основе одномерного массива и реализовать его прямой обход
Здравствуйте, помогите решить такую задачу: Построить двоичное дерево на основе одномерного массива...

Создать дерево на основе строкового массива
Здравствуйте, я пытаюсь создать дерево на основе строкового массива, однако перерыв все возможные...

Создать матрицу из одномерного массива
Всем привет) Есть массив x, одномерный, размерностью N, необходимо разбить его на блоки (задается...


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

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

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