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

MatMaster

55 / 52 / 58

Регистрация: 04.04.2013

Сообщений: 102

01.12.2013, 09:24

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

01.12.2013, 09:24. Показов 2757. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.12.2013, 09:24

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.12.2013, 09:24

Помогаю со студенческими работами здесь

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

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

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

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

Наверх