Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2008, 19:15   #1
Caragius
 
Регистрация: 05.06.2008
Сообщений: 9
По умолчанию нужна помощь

помогите , пожалуйста, с решением такой задачки , очень надо !!

8.Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых равны, а высоты пропорциональны числовым величинам, взятым из некоторой совокупности. Прямоугольники диаграммы обычно закрашивают в разные цвета. Даны семь действительных положительных чисел а1,…,а7. Построить гистограмму для этих значений.
Caragius вне форума Ответить с цитированием
Старый 05.06.2008, 20:03   #2
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Что конкретно не понятно?
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 05.06.2008, 20:05   #3
Caragius
 
Регистрация: 05.06.2008
Сообщений: 9
По умолчанию

просто это девушке курсовик нужно сделать, я в этом вообще не соображаю, но хотел както помочь, сам не разобрался, поэтому прошу помощи у вас на форуме ...
Caragius вне форума Ответить с цитированием
Старый 05.06.2008, 20:19   #4
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

НУ так, что весь курсовик надо сделать, от начала до конца?!
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 05.06.2008, 20:39   #5
motaro
Форумчанин
 
Регистрация: 10.07.2007
Сообщений: 104
По умолчанию

если я правильно понял что-то типа этого,может быть неправильно

Код:
uses crt,graph;
var device,mode,x,x1,i:integer;
    a:array [1..7] of real;
    k:real;
begin
   clrscr;
   x:=150;
   x1:=180;
   k:=0;
   writeln ('Vvedite 7 chisel: ');
   for i:=1 to 7 do
    begin
     readln (a[i]);
     k:=480-a[i];
     a[i]:=k;
    end;
   initgraph(device,mode, '');
   for i:=1 to 7 do
    begin
     setfillstyle (1,i);
     Rectangle(x,round(a[i]),x1,450);
     floodfill (x+10,round(a[i])+5,15);
     x:=x+50;
     x1:=x1+50;
    end;
   readln;
   closegraph
end.
motaro вне форума Ответить с цитированием
Старый 05.06.2008, 21:09   #6
Caragius
 
Регистрация: 05.06.2008
Сообщений: 9
По умолчанию

motaro, initgraph(device,mode, ''); здесь выдает ошибку синтаксиса ... ? на двойных ковычках

Последний раз редактировалось Caragius; 05.06.2008 в 21:12.
Caragius вне форума Ответить с цитированием
Старый 05.06.2008, 21:10   #7
Caragius
 
Регистрация: 05.06.2008
Сообщений: 9
По умолчанию

-=<[Evklidd]>=-, нужно только решить эту задачку ...
Caragius вне форума Ответить с цитированием
Старый 05.06.2008, 21:16   #8
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Цитата:
motaro, initgraph(device,mode, ''); здесь выдает ошибку синтаксиса ... ? на двойных ковычках
initgraph - это инициализация модуля graph, а в кавычках указывается путь к нему, возможно у вас файл graph.tpu находится в другой папке, не в текущей директории
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 08.04.2010, 17:29   #9
PoGeR
Новичок
Джуниор
 
Регистрация: 08.04.2010
Сообщений: 2
По умолчанию

uses graph;
type
mas=array [1..7] of real;
var
driver,mode,i:integer;
max:integer;
a:mas;
s:string;
procedure maximum(m:mas; var maxi:integer);
var
ii:integer;
begin
m[1]:=maxI;
for ii:=2 to 7 do begin
if round(m[ii])>round(maxi) then maxi:=round(m[ii]) ;
end;
end;
procedure stolb(m:mas;maxi:integer);
var
ii:integer
s:string;
begin
moveto(420,400);
lineto(200,400);line(420,399,200,39 9);
for ii:=1 to 7 do begin
m[ii]:=round(m[ii]);
m[ii]:=m[ii]*13;
str(ii,s);
rectangle(200+25*ii,400,220+25*ii,3 93+maxi-trunc(m[ii]));
outtextxy(200+25*ii,390-round(m[ii]),s);
end; end;
begin
driver:=detect;
initgraph(driver,mode,'');
writeln('введите семь цифр');
for i:=1 to 7 do begin
write('a[',i,']=');
readln(a[i]);
end;
maximum(a,max);
stolb(a,max);
readln;
end.
PoGeR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь по таб. *Иван* Microsoft Office Excel 1 22.11.2007 20:50
Нужна помощь по Си. Coach Помощь студентам 3 08.11.2007 01:08
нужна помощь Селезнёв Microsoft Office Excel 1 02.03.2007 03:19
нужна помощь verto Помощь студентам 1 02.01.2007 07:48