Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal толбчатая диаграмма (гистограмма) представляет собой набор прямоугольников https://www.cyberforum.ru/ pascal/ thread1024589.html
Помогите плиз с решением в Паскале((. Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым величинам, взятым из некоторой совокупности. Даны семь действительных положительных чисел а1, а2,…, а7. Построить гистограмму для этих значений.
Pascal Дан файл f, компоненты которого являются целыми числами
Помогите решить в Паскале. Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле g не было двух соседних чисел с одним знаком.
Pascal Подскажите где ошибка. Выдаёт арифметическое переполнение? https://www.cyberforum.ru/ pascal/ thread1024577.html
program z1; USES crt; const N= 10; var x: array of integer; i: integer; y: array of integer; begin ClrScr; randomize; for i:= 1 to N do begin
Pascal Сколько монет нужно сложить чтобы общая сумма составила N https://www.cyberforum.ru/ pascal/ thread1024527.html
задачка для паскаля, это срочно! есть монеты номиналом 5,2 и 1 копейка. нужно вычеслить сколько(количество) монет нужно для того, чтоб сложить кучку монет, общаю сума которых состоит N(число вводится). нужно чтоб искало самый быстрый способ.
Pascal Вопрос про функцию random
Мне нужно, чтоб я вводил число "a" а потом компьютер рандомно загадывал число в диапазоне от 0 до "a". s:=random(a); - не работает(
Pascal по дейкстру найти расстояние по которому можно провезти максимальный груз https://www.cyberforum.ru/ pascal/ thread1024449.html
Всем привет!! Подскажите пожалуйста как сделать такую вещь модифицировать алгоритм дейкстры и найти путь по которому можно провести груз максимального веса , вот мой код, он почему то не всегда работает правильно program DijkstraAlgorithm1; uses crt; const V = 7; inf = -1; type vektor=array of integer; var cities :array of STRING; start: integer;
Pascal Вычислить с точностью eps>0 в Паскале https://www.cyberforum.ru/ pascal/ thread1024437.html
Рекурсивная функция нахождения НОД методом Евклида Pascal
Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две задачи. ТОЛЬКО ПОЖАЛУЙСТА ПРОШУ НАПИШИТЕ ПОНЯТНО,ЧТОБЫ МОГ ПОНЯТЬ 10 Классник.пожалуйста. 1)Напишите рекурсивную функцию нахождения наибольшего общего делителя методом Евклида: gcd(a, b) = a при a=b gcd(a, b) = gcd(a-b, b) при a > b gcd(a, b) = gcd(a, b-a) при b > a Формат входных данных Входной файл содержит два...
Pascal Рекурсивная функция нахождения суммы цифр числа Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две задачи. ТОЛЬКО ПОЖАЛУЙСТА ПРОШУ НАПИШИТЕ ПОНЯТНО,ЧТОБЫ МОГ ПОНЯТЬ 10 Классник.пожалуйста. 2)Напишите рекурсивную функцию нахождения суммы цифр натурального числа. Формат входных данных Входной файл содержит единственное целое число 0 <= x <=1000000000. Формат выходных данных Выходной файл должен содержать... https://www.cyberforum.ru/ pascal/ thread1024340.html Pascal Написать программу, возводящую каждый элемент заданной матрицы в квадрат https://www.cyberforum.ru/ pascal/ thread1024305.html
Салют хакеры) У меня к вам просьба напишите программу, возводящую каждый элемент заданной матрицы в квадрат. Спасибо за внимание!
Написать программу, определяющую является ли заданный массив убывающим Pascal
Здравствуйте! Помогите, пожалуйста написать программу, определяющую является ли заданный массив убывающим. (Язык Pascal)
Pascal Двумерные массивы. Процедуры и функции Двумерные массивы. Процедуры и функции https://www.cyberforum.ru/ pascal/ thread1024294.html
55 / 52 / 58
Регистрация: 04.04.2013
Сообщений: 102
01.12.2013, 09:24 0

Столбчатая диаграмма (гистограмма) - Pascal - Ответ 5417789

01.12.2013, 09:24. Показов 2840. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses graph, crt;
var i,h:integer; a:array [1..7] of integer;
begin
initgraph(i,h,'');
h:=getmaxy;
outtextxy(0,5,'Vvedite 7 chisel: ');
gotoxy(19,1);
for i:=1 to 7 do
   begin
   read(a[i]);
   setfillstyle(1,i);
   bar(70*i,h-a[i],70*i+50,h);
   end;
readkey;
end.


Вернуться к обсуждению:
Столбчатая диаграмма (гистограмма) Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2013, 09:24
Готовые ответы и решения:

Столбчатая диаграмма
Здравствуйте помогите чайнику, вот код программы, она выводит одномерный массив и по нему...

Столбчатая диаграмма (гистограмма)
даны семь действительных чисел а1...а7. Построить гистограмму для этих значений. для большей...

Столбчатая диаграмма
Задана последовательность 10-ти целых чисел (каждое число в диапазоне от 0 до 20). Вывести на экран...

Столбчатая диаграмма
Может у кого-то есть аналог. Программа запрашивает сколько столбцов, и поочередно вбиваются данные...

1
01.12.2013, 09:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2013, 09:24
Помогаю со студенческими работами здесь

Столбчатая диаграмма
Здравствуйте, нужно разработать диаграмму. В основном все идет хорошо, но при увеличении высоты ...

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

Столбчатая диаграмма в Делфи
Здравствуйте форумчане! Помогите, пожалуйста! Есть программа на Делфи. Строит столбчатую диаграмму...

Exsel - гистограмма и диаграмма
Старую тему удалили, теперь по одному заданию в каждой теме. Задание на эту тему: 1....

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