Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
5 / 1 / 0
Регистрация: 06.05.2017
Сообщений: 27
1

Построить столбчатую диаграмму

02.06.2017, 09:27. Показов 2019. Ответов 3
Метки нет (Все метки)

Пожалуйста помогите,очень срочно.
Буду премного благодарен.
Задание:
Постройте столбчатую диаграмму по следующим данным: наибольшая глубина озера Байкал 1620 м, Онежского озера – 127 м, озера Иссык-Куль – 668 м, Ладожского озера – 225 м.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2017, 09:27
Ответы с готовыми решениями:

Построить столбчатую диаграмму
помогите срочно как можно быстрее зарание благодарен Годовой выпуск предприятием белого...

Построить столбчатую диаграмму: набор прямоугольников, высоты которых пропорциональны введенным числам
Построить столбчатую диаграмму — набор прямоугольников, высоты которых пропорциональны...

Построить столбиковую диаграмму,
Построить столбиковую диаграмму, отображающую рост цен на бензин? Как построить????

Построить секторную диаграмму для данных чисел
Помогите с простенькой задачкой :) Дано пять целых чисел a1...a5 Построить секторную диаграму для...

__________________
3
Эксперт Pascal/Delphi
6629 / 4459 / 4744
Регистрация: 05.06.2014
Сообщений: 21,923
02.06.2017, 14:44 2
tp, fpc

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
Uses
  crt,graph;
 
const
  n_max = 4;
  m: array [1..n_max] of integer = (1620, 127, 668, 225);
  Name: array [1..n_max] of string = ('Байкал', 'Онежское озеро', 'Иссык-Куль', 'Ладожского озера');
 
var
  gd, gm, k, n, s: integer;
  st: string[6];
 
begin
  gd := detect;
  initgraph(gd, gm, '');
  setcolor(15);
  setlinestyle(0, 0, 1);
  line(60, 400, 400, 400);
  line(60, 400, 60, 80);
  settextstyle(0, 0, 1);
  for k := 1 to n_max*4 do
  begin
    n := 100* k;
    str(n, st);
    outtextxy(10, 400 - 20 * k - 4, st);
    line(60, 400 - k * 20, 65, 400 - k * 20);
  end;
  setcolor(14);
  settextstyle(0, 0, 2);
  outtextxy(120, 20, 'Озера России: ');
  settextstyle(0, 0, 1);
  for k := 1 to n_max do
  begin
    setfillstyle(1, k + 2);
    bar(100 + (k - 1) * 70, 400, 100 + k * 70, round(400 - m[k] / 100 * 20));
    outtextxy(100 + (k - 1) * 70 + 4, 450, name[k]);
  end;
  repeat
  until keypressed;
  closegraph;
end.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30909 / 20224 / 7883
Регистрация: 22.10.2011
Сообщений: 35,100
Записей в блоге: 6
02.06.2017, 14:45 3
Для PascalABC.NET - замени данные вот в этом примере на свои: https://www.cyberforum.ru/post10503911.html
0
Эксперт Pascal/Delphi
6629 / 4459 / 4744
Регистрация: 05.06.2014
Сообщений: 21,923
02.06.2017, 14:50 4
Лучший ответ Сообщение было отмечено hawxalexrus как решение

Решение

pabc.net

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
Uses
  graphabc;
 
const
  n_max = 4;
  m: array [1..n_max] of integer = (1620, 127, 668, 225);
  Name: array [1..n_max] of string = ('Байкал', 'Онежское озеро', 'Иссык-Куль', 'Ладожского озера');
 
var
  k, n: integer;
  st: string[6];
 
begin
  SetWindowSize(500, 500);
  setPencolor(clBlack);
  line(60, 400, 400, 400);
  line(60, 400, 60, 80);
  for k := 1 to n_max * 4 do
  begin
    n := 100 * k;
    st := IntToStr(n);
    textout(10, 400 - 20 * k - 4, st);
    line(60, 400 - k * 20, 65, 400 - k * 20);
  end;
  setpencolor(clYellow);
  textout(120, 20, 'Озера России: ');
  for k := 1 to n_max do
  begin
    SetBrushColor(RGB(Random(255), Random(255), Random(255)));
    rectangle(100 + (k - 1) * 70, 400, 100 + k * 70, round(400 - m[k] / 100 * 20));
    textout(100 + (k - 1) * 70 + 4, 450, name[k]);
  end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2017, 14:50

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Построить гистограмму (столбиковую диаграмму) по данным двумерного массива расположенных в файле
Пожалуйста помогите!!! Построить гистограмм (столбиковых диаграмм) по данным двумерного массива...

Построить столбчатую диаграмму выпадения осадков
Построить столбчатую диаграмму выпадения осадков /мм/ за пол года в Казани. По таким данным: январь...

Построить столбчатую диаграмму, которая отображает рост цен в % на товары
Нужно построить столбчатую диаграмму которая отображает рост цен у % на товары (обувь, постель,...

Сформировать столбчатую диаграмму
Сформировать с помощью датчика случайных чисел 100 чисел в пределах от 1 до 10, построить...

Построить круговую диаграмму
В диаграмме отразить долю каждого государства в выпуске космических аппаратов за 1997 год ...

Построить диаграмму прибыли
За прошедший месяц предприятие получило в первой декаде - х1 тыс.руб. прибыли, во второй - х2, в...


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

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

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