Р. А. Юсупов, С. Н. Искандарова, Ш. Мирзанова C/C++ тилида топшириқ ва масалалар Самарқанд – 2013 йил


Download 1.35 Mb.
bet105/105
Sana13.04.2023
Hajmi1.35 Mb.
#1353566
TuriУчебник
1   ...   97   98   99   100   101   102   103   104   105
Bog'liq
CPP masalalari1


Часть II. Решения 233
d(i-l);
}
}
void main (void)
{
int gdriver = DETECT; // драйвер
int gmode; // режим
int errorcode; // код ошибки
initgraph(&gdriver, &gmode, PATHTODRIVER);
errorcode = graphresult();
if (errorcode == grOk)
{
int p; // порядок кривой
puts("Программа строит кривую Серпинского.");
puts("Введите порядок кривой (1-4) \
и нажмите ");
printf("->");
scanf("%i", &p);
printf("Кривая Серпинского %i-ro порядкаХп", p);
nioveto(100,100) ;
// кривая Серпинского
a(p); linetodxy(u,u);
b(p); linetodxy(-u,u);
с(p); linetodxy(-u,-u);
d(p); linetodxy(u,-u);
puts("Для завершения нажмите ");
getch();
closegraph();
}
else
{
printf("Ошибка: %d\n", errorcode);
puts("Для завершения нажмите ");
234 C/C'i"*' в задачах и примерах
getch();
}
}
// вычерчивает по точкам линию
// подменим этой функцией стандартную, чтобы
// видеть процесс вычерчивания кривой
#include
void far lineto(int x2, int у2)
{
int xl,yl; // координаты начала прямой,
// х2,у2 — координаты конца
int х,у; // координаты текущей точки
int dx; // приращение аргумента
int dy; // приращение у при рисовании
// вертикальной линии
int color; // цвет линии
int a,b; // коэф-ты уравнения прямой
int п; // кол-во точек
int i;
xl = getx();
yl = gety();
color = getcolor();
if ( xl != x2 )
{
//не вертикальная линия
a = (у2-у1)/(х2-х1);
b = yl- a * xl;
n = abs(x2-xl)+1;
if (x2 > xl)
dx = 1;
else
dx = -1;
X = xl;
for (i = 1; i<= n; i++)
{
Часть II. Решения 235
у = а*х + Ь;
putpixel(х,у,color);
delay(DT);
X += dx;
}
}
else // вертикальная линия
{
n = abs(y2"-yl) ;
if (у2 > yl)
dy = 1;
else dy = -1;
X = xl;
У = yl;
for (i = 1; i<==n; i++)
{
putpixel(x, y, color);
delay(DT);
у += dy;
}
}
putpixel(x2, у2, color);

III ҚИСМ. Маълумотнома
Дастур тузилиши
C++ тилида дастур функция тўпламларидан ташкил топган, улардан биттаси mainномига эга.
Оддий ҳолда дастур битта ягона mainфункциясидан ташкил топади.

Download 1.35 Mb.

Do'stlaringiz bilan baham:
1   ...   97   98   99   100   101   102   103   104   105




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling