forum.kai.ru

Форум КНИТУ-КАИ
Текущее время: 24 ноя 2017, 11:04

Часовой пояс: UTC




Начать новую тему Ответить на тему  [ Сообщений: 47 ]  На страницу Пред.  1, 2, 3, 4
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: 07 июн 2009, 09:05 
Не в сети
Новый посетитель

Зарегистрирован: 07 июн 2009, 08:50
Сообщений: 1
Откуда: КАИ, 4 фак
Возможно из-за драйвера видеорежима egavga.bgi
Поищите другой


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 27 июн 2009, 12:23 
Не в сети
Новый посетитель
Аватар пользователя

Зарегистрирован: 27 июн 2009, 12:12
Сообщений: 1
Откуда: КАИ/4фак
Помогите пож-та есть прога на "С" надо перевести её на "Pascal".
Оч.Очень нужно !!! Вот исходный код:
#include "stdio.h"
#include "stdlib.h"
#include "math.h"
#include "conio.h"
#include "graphics.h"

#define ARR_LEN 5
#define AXIS_COLOR WHITE
#define TEXT_COLOR WHITE
#define GRAPH_COLOR YELLOW
#define SL 30
#define SL2 3

int sx, sy;

char* my_fcvt(double val)
{
int sign, dec, i;
char *buf = fcvt(val, 0, &dec, &sign);
if( val < 0 )
{
for(i = strlen(buf); i > 0; i--)
buf[i] = buf[i - 1];
buf[0] = '-';
buf[strlen(buf)] = '\x0';
}
return buf;
}

void drawaxis(int R)
{
int i, dec, sign, my;
double tmp;
setcolor(AXIS_COLOR);
line(sx - R, sy, sx + R, sy);
line(sx, sy + R, sx, sy - R);
line(sx + R, sy, sx + R - ARR_LEN, sy - ARR_LEN);
line(sx + R, sy, sx + R - ARR_LEN, sy + ARR_LEN);
line(sx, sy - R, sx - ARR_LEN, sy - R + ARR_LEN);
line(sx, sy - R, sx + ARR_LEN, sy - R + ARR_LEN);
for(i = -R / SL; i <= R / SL; i++)
{
setcolor(AXIS_COLOR);
line(sx + i * SL, sy - SL2, sx + i * SL, sy + SL2);
if( i )
{
setcolor(TEXT_COLOR);
settextjustify(CENTER_TEXT, TOP_TEXT);
settextstyle(DEFAULT_FONT, VERT_DIR, 1);
tmp = i * SL;
outtextxy(sx + i * SL, sy + SL2, my_fcvt(tmp));
}
}
for(i = -R / SL; i <= R / SL; i++)
{
setcolor(AXIS_COLOR);
line(sx - SL2, sy + i * SL, sx + SL2, sy + i * SL);
if( i )
{
setcolor(TEXT_COLOR);
settextjustify(RIGHT_TEXT, CENTER_TEXT);
settextstyle(DEFAULT_FONT, HORIZ_DIR, 1);
tmp = -i * SL;
outtextxy(sx - SL2, sy + i * SL, my_fcvt(tmp));
}
}
return;
}

void drawgraph(int R)
{
setcolor(GRAPH_COLOR);
arc(sx - R, sy, 0, 90, R);
arc(sx + R, sy, -180, -90, R);
return;
}

int main()
{
int grdriver = DETECT, grmode = 0;
float R = 0;
printf("Enter R: ");
scanf("%f", &R);
sx = 320;
sy = 240;
initgraph(&grdriver, &grmode, "");
drawaxis(R);
drawgraph(R);
getch();
closegraph();
return 0;
}


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 47 ]  На страницу Пред.  1, 2, 3, 4

Часовой пояс: UTC


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB