|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.06.2010, 21:12 | #1 |
Новичок
Джуниор
Регистрация: 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(); } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
прогр,осущ нач. формирование файла и его корректировку | 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 |