moveto(round(a1 * sin((b1*t+c1))),round(a2 * cos((b2*t+c2)))); t := 0; repeat t := t + step; x := a1 * sin((b1*t+c1)); y := a2 * cos((b2*t+c2)); delay(100); lineto(round(x),round(y)); until (t >= 10) or keypressed; readln; closegraph; end.
volvo
20.01.2008 13:42
Программа же дословно переводится на С++, в чем проблема?
t = 0; do { t += step; int x = (int)(a1 * sin((b1*t+c1))); int y = (int)(a2 * cos((b2*t+c2))); delay(10); lineto(x, y); } while(t < 10 && !kbhit()); while(getch() != 13); closegraph();
return 0; }
Найди отличия, что называется...
Domin9es
20.01.2008 13:53
Я в графике ноль , даже на паскале не я делал
Пишет use init graph
volvo
20.01.2008 14:09
Программа прекрасно компилируется и работает, но только для этого в одной папке с программой должен лежать файл EGAVGA.BGI...
Domin9es
20.01.2008 14:12
Спасибо!!! все работает
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.