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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2009, 19:29   #1
sobol556
 
Регистрация: 23.03.2009
Сообщений: 3
Восклицание Помогите написать текст программы

Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина. Исходные данные (объем продаж в рублях по категориям: книги, журналы, открытки и канцтовары) вводятся во время работы программы.
Просто совсем не работала с графикой в паскале...
Натолкните хотя бы на мысль
Заранее спасибо
sobol556 вне форума Ответить с цитированием
Старый 23.03.2009, 19:30   #2
sobol556
 
Регистрация: 23.03.2009
Сообщений: 3
По умолчанию

Я понимаю,что всё сведется к шаблону:
Program имя;
Uses Graph;
var
grDriver, grMode, errCode: integer;
begin
grDriver:= Detect;
{определение номера, установленного в системе драйвера}
initGraph (grDriver, grMode,'');
{инициализация графического режима}
if errCode= grOK then
begin
{ режим открыт и можно работать}
end else
begin
{графический режим не удалось открыть, проанализируйте
содержание переменной errCode}
end
Но что то совсем ничего не получается(((
sobol556 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программы Dima H2 Фриланс 8 22.11.2008 00:53
Помогите написать программы на Delphi Markovnik Помощь студентам 1 06.04.2008 11:29
Помогите написать программы на с++ =42na= Помощь студентам 4 27.11.2007 13:59
Помогите написать 3 программы на Delphi burunduk Помощь студентам 9 21.01.2007 14:02