Гистограмма

[Ilya_L]

доброго времени суток всем. Помогите с такой задачей. Есть файл вида:

2
1 6

1 и 6 числа, которые показывают высоту гистограмм.
Нужно построить такую гистограмму
*******+---+*
*******|###|*
*******|###|*
*******|###|*
*******|###|*
*+---+*|###|*
*|###|*|###|*
-+---+-+---+-
Два дня уже сижу над ней, ничего сообразить не могу!

[NetSpace]

вам её именно из таких символов псевдографики (|###|) нужно построить?

const sect='|###|';
         werh='+---+';
         pusto='*****';
var i,j,k,c:Integer;
//тут читаем из файла числа 1 и 6
i:=1;
j:=6;

if(i<=j)then c:=j;//выбираем максимальное из этих двух чисел
if(j<i)then c:=i; 
for k:=c+1 downto 1 do
begin
   //----- если i<j --------------------
   if(i<j)and(k=c+1)then WriteLn (pusto,'*',werh);
   if(i<j)and(k<c+1)and(i+1<k)then WriteLn (pusto,'*',sect);
   if(i<j)and(k<c+1)and(k=i+1)then WriteLn (werh,'*',sect);
   //----- или если j<i -----------------
   if(j<i)and(k=c+1)then WriteLn (werh,'*',pusto);
   if(j<i)and(k<c+1)and(j+1<k)then WriteLn (sect,'*',pusto);
   if(j<i)and(k<c+1)and(k=j+1)then WriteLn (sect,'*',werh);
   //----- но снизу у всех одинаково -----------   
   if(k<c=1)and(k<i+1)and(k<j+1)then WriteLn (sect,'*',sect);
end;

но доработка всё равно требуется

[rrrFer]

на каком языке?

[Ilya_L]

Язык Delphi.

Да из этих символов.. Но я забыл сказать, что в файле может быть N чисел, следовательно их нужно вбить в массив, вот тут и была проблема, куда вставлять этот массив.

[NetSpace]

а первое число 2 - это просто левая строка или чтоб знали, сколько чисел там внизу будет вписано?

[Ilya_L]

да, это сколько чисел стоит ниже..но их может быть n

[NetSpace]

тогда надо массив делать из строк:

s:arrya[1..N]of string;

и заполнять его сначала:

for k:=1 to N do
begin
   //ставить условия проверки, который столбец выше и заполнять символами
   ....
   if(i<j)then s[k]:=pusto;
   ....
end;

а потом выводить

for k:=1 to N do Write(s[k]);//это будет 1 длинная строчка из N коротких строк

и так несколько строк подряд, пока всю гистограмму не выстроите...