Goto(x,y) ;+graphABC неверно работает

@petrogavriluk · Регистрация: 11.10.2012

Author24 — интернет-сервис помощи студентам

Помогите решить, неверно выводит:

Pascal

uses GraphABC,crt;
 
//var
 
begin
TextColor(0);
 
HideCursor;
 LowVideo;
SetFontSize(20); CRTWindowSize(100,30);
ClearWindow;
CenterWindow;
SetWindowWidth(800);
SetWindowHeight(500);
SetWindowCaption('Àëãîðèòì öèêë³÷íî¿ ïåðåêëè÷êè');
Circle(400,240,40);GotoXY(49,15); writeln('ÖÑ'); //golovnii
Circle(400,70,40);GotoXY(49,4); writeln('AÑ'); //2  first
Circle(200,240,40);GotoXY(24,15); writeln('AÑ'); //4
Circle(600,240,40);GotoXY(74,15); writeln('AÑ'); //5
Circle(400,400,40);GotoXY(49,25); writeln('AÑ');//8
Circle(200,70,40);GotoXY(24,4); writeln('AÑ');//1  second
Circle(600,70,40);GotoXY(74,4); writeln('AÑ');//3
Circle(250,400,40);//7
Circle(550,400,40);//9
Circle(100,400,40);//6  third
Circle(700,400,40);//10
 
 
saveWindow('paint.jpg');
end.

@petrogavriluk · 17.11.2012, 20:32 **[ТС]**

Вот что выводит

@Puporev · 17.11.2012, 20:44

А что должно выводить?

@petrogavriluk · 17.11.2012, 20:58 **[ТС]**

Непонятно почему оно разделяет круг, например круги выше не разделяються.

@Puporev · 17.11.2012, 21:05

Потому что не нужно мешать работу в crt с write и работу с графикой, а делать все в графике с выводом текста через outtext(x,y,str);

Добавлено через 2 минуты
Когда ты пишешь

Pascal

1	GotoXY(49,25);

выводишь текст в последнюю строку и вероятно ставишь курсор в строку 26, которой нет.

Добавлено через 1 минуту
Исправь это на

Pascal

1	GotoXY(49,24)

;

@petrogavriluk · 17.11.2012, 22:01 **[ТС]**

Спасибо, работает!

@petrogavriluk 4 / 4 / 1 Регистрация: 11.10.2012 Сообщений: 20
	17.11.2012, 20:32 [ТС]	2
	Вот что выводит Миниатюры 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.11.2012, 20:44	3
	А что должно выводить? 0

@petrogavriluk 4 / 4 / 1 Регистрация: 11.10.2012 Сообщений: 20
	17.11.2012, 20:58 [ТС]	4
	Непонятно почему оно разделяет круг, например круги выше не разделяються. 0

@petrogavriluk 4 / 4 / 1 Регистрация: 11.10.2012 Сообщений: 20
	17.11.2012, 22:01 [ТС]	6
	Спасибо, работает! 0