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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2010, 21:12   #1
Olechka3000
Новичок
Джуниор
 
Регистрация: 16.06.2010
Сообщений: 1
По умолчанию КОММЕНТАРИИ к прогр-ме на СИ++

Напишите пожалуйста комментарии
Программа рисует случ. образом круг, треуг-к или квадрат.
#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <dos.h>

void main()
{
struct time t;
int p,q=1;
char ch,s[4];
randomize();

int gdriver = DETECT, gmode, errorcode;

initgraph(&gdriver, &gmode, "bin");
errorcode = graphresult();
if (errorcode != grOk)
{
printf("Graphics error: %s\n", grapherrormsg(errorcode));
printf("Press any key to halt:");
getch();
exit(1);
}
clrscr(); // Очистка экрана
while (ch!=27 /*Escape*/)
{ int i=random(2), a=random(640),b=random(160),c=rando m(150),d=random(150),e=random(150), f=random(150);
if (kbhit()){
s[1]=getch();
if (s[1]=='e')s[2]=getch();
if (s[2]=='x')s[3]=getch();
if (s[3]=='i')s[4]=getch();
if (s[4]=='t')q=10;
if(q==10) //проверка на ввод exit
{
break;
}
}
else
{if(i==0)
{
setcolor(RED);//выбирается крассный цвет
circle(a, b, c);//рисование круга
gettime(&t);
p=t.ti_sec+2;
if (p>=60)
p=p-60;
m:gettime(&t);
if (p==t.ti_sec)
clrscr();
else goto m;
}
else {
if(i==1)
{setcolor(RED);//выбирается крассный цвет
line(a, b, c,d);
line(c, d, e,f);
line(e, f, a,b); //рисование треугольника
gettime(&t);
p=t.ti_sec+2;
if (p>=60)
p=p-60;
o:gettime(&t);
if (p==t.ti_sec)
clrscr();
else goto o;
}
else
{setcolor(RED);//выбирается крассный цвет
rectangle(e,f,a,d); //рисование квадрата
gettime(&t);
p=t.ti_sec+2;
if (p>=60)
p=p-60;
h:gettime(&t);
if (p==t.ti_sec)
clrscr();
else goto h;
}
}
}
clrscr();
}
setcolor(BLACK);
getch();
closegraph();
}
Olechka3000 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
прогр,осущ нач. формирование файла и его корректировку vanilka Паскаль, Turbo Pascal, PascalABC.NET 1 08.04.2010 22:17
Написать прогр на асм за вознаграждение Nastya55555 Фриланс 1 31.05.2009 01:19
Написать прогр на Паскале процедурой Asya555 Помощь студентам 2 24.04.2009 17:26
7лет не пользовалась прогр. помогите barezka Microsoft Office Excel 4 11.08.2008 23:12
Нужна помощ в созд прогр "Сквош" doctor_dre Общие вопросы Delphi 0 24.05.2008 20:18