ОДНИМ ДУРАКОМ СТАЛО БОЛЬШЕ! ЭТО Я ПРО СЕБЯ!

[ZVEREK]

ПОМАНИТЕ ПОЖАЛУЙСТА САМОУЧКЕ
Я ТОЛЬКО УЧУСЬ И ЗДЕСЬ НОВИЧОК
ЭТУ ПРОГУ Я СЛИЗАЛ С УЧЕБНИКА. ДЕЛО В ТОМ ЧТО ХОТЬ ПРОГА БЫЛА НАПИСАНА ДО МЕНЯ УМНЫМ ЧЕЛОВЕКОМ НО ВСЁ-ЖЕ КОМПИЛЯТОР НАШОЛ В НЕЙ ОШИБКИ (ПРИМЕР ( : ),(ТРЕБУЕТСЯ END; ) , ( ; ) И ТОМУ ПОДОБНЫЕ ) ИХ БЫЛО ОКОЛО 8 ! Я ИХ ИСПРАВИЛ, КОМПИЛЬНУЛ, ЗАПУСТИЛ ПРГУ . ИТОГ ТАКОЙ- ОТКРЫВАЕТСЯ КОМАНДНАЯ СТРОКА БЕЗ ЕДИНОЙ НАДПИСИ И ЧРЕЗ ПАРУ СЕКУНД ЗАКРЫВАЕТСЯ, ВОТ СОБСТВЕННО И ВСЁ ЧТО ПРОГА МОЖЕТ, А ПО ИДЕИ АВТОРА ТАМ ПРИЦЕЛ ПО ЭКРАНУ ДОЛЖЕН БЕГАТЬ И УКАЗЫВАТЬ СВОИ КООРДИНАТЫ ! ЕГО ДВИЖЕНИЕ ЗАВИСИТ ОТ СТРЕЛОК НА КЛАВЕ! ДАК ВОТ О ЧЁМ Я ПРОШУ ГЛЯНЬТЕ НА НИЖЕ ИЗЛОЖЕН ПАС Я ТАМ ЧТО РАЗОБРАТЬ СМОГ ТО ПОДПИСАЛ, И НОМЕРА СТРОК Я ИЗНАЧАЛЬНО УКАЗАЛ ТАК ПРОЩЕ ОРИЕНТИРОВАТЬСЯ БЫЛО МНЕ ВСЁ ЧТО НЕ КАСАЕТСЯ ПРОГИ Я ЗАКРЫЛ В ТАКИЕ СКОБКИ {}! ПОМОГИТЕ РАЗОБРАТЬ ЧТО Я ТАМ ЛИШНЕГО НА ИСПРАВЛЯЛ ? ИЗ ЗА ЧЕГО НЕ ЗАПУСКАЕТСЯ?

From artemavd: удалился? Ну и слава Богу, т.к. я бы тебя все равно забанил.

[Marsel737]

uses Crt;

....

ReadKey;
end.

Нажми пожалуйста на CapsLock уже действует на нервы, на месте модеров я бы тебя уже давно в аут отправил.

[ZVEREK]

САМ PAS ТАКОЙ !




{1}USES CRT,GRAPH;
{2}CONST STEP=5;
{2}INSTR='УПРАВЛЕНИЕ ДВИЖЕНИЕМ ПРИЦЕЛАЭЖ';
{3}VAR
{4}GrDRIVER,GrMODE:INTEGER;
{4} X,Y: INTEGER;
{5} Xstr,Ystr :STRING;
{6}CH:CHAR;
{----------------------------------------------}
{7} PROCEDURE MAKESIGHT(X,Y:INTEGER);{ПРОЦУДУРА РИСОВАНИЯ ПРИЦЕЛА}
{8}BEGIN SetCOLOR(WHITE);
{9}CIRCLE(X,Y,80);
{10}SetCOLOR(LightGREEN);
{11}LINE(X-80,Y,X+80,Y); LINE(X,Y-63,X,Y+63); {ВЫВОД ОСЕЙ ПРИЦЕЛА}
{12}SetCOLOR(LightRED); CIRCLE(X,Y,2);{ОКРУЖНОСТЬ В ЦЕНТРЕ ПРИЦЕЛА}
{13}Str(X,XStr); STR(Y,YStr);{ПЕРЕВОД КООРДИНАТА В СТРОКОВЫЙ ТИП}
{14}SetCOLOR(YELLOW);
{15}OutTextXY(X+5,Y-35,'X='+XStr);{ВЫВОД КООРДИНАТ ЦЕНТРА ПРИЦЕЛА}
{16}OutTextXY(X+5,Y-20,'Y='+YStr)
{17}END;
{18}BEGIN
{19}GrDRIVER:=DETECT;
{20}InitGRAPH(GrDRIVER,GrMODE,'');
{21}SetCOLOR(LightGRAY);
{22}X:=GetMaxX DIV 2;Y:=GetMaxY DIV 2;{КООРДИНАТЫ ЦЕНТРА ЭКРАНА}
{23}RECTANGLE(50,425,600,460); {РИСОВАНИЯ РАМКИ}
{24}OutTextXY(120,440,INSTR);
{25}MakeSIGHT(X,Y);{РИСОВАНИЕ ПРИЦЕЛА В ЦЕНТРЕ}
{26}WHILE TRUE DO {ЦИКЛ РАБОТЫ ПРОГРАММЫ ДО ПРЕРЫВАНИЯ ПО КЛАВИШЕ ESC}
{27}BEGIN
{28}CH:=ReadKEY;
{29}CASE CH OF
{30}#27:BEGIN CloseGraph; halt(1)END;{ВЫХОД ПО КЛАВИШЕ ESC}
{31}#75:X:=X-STEP; {ИЗМЕНЕНИЕ КООРДИНАТ X,Y НАЖАТИЕМ СТРЕЛОК}
{32}#72:Y:=Y-STEP;
{33}#80:Y:=y+STEP
{34}END;
{35}ClearViewPORT; {ОЧИСТКА ГРАФИЧЕСКОГО ЭКРАНА}
{36}SetCOLOR(LightGray);
{37}RECTANGLE(50,425,600,460);
{38}OutTextXY(120,440,INSTR);
{39}MakeSIGHT(X,Y){РИСОВАНИЕ ПРИЦЕЛА В ТЕКУЩИХ КООРДЕНАТАХ}
{40}END;CloseGRAPH;
{41}readln;
{42}END.

[DRAgon™]

Оу май гаД

[Marsel737]

{1}USES CRT,GRAPH;
{2}CONST STEP=5;
{2}INSTR='УПРАВЛЕНИЕ ДВИЖЕНИЕМ ПРИЦЕЛАЭЖ';
{3}VAR
{4}GrDRIVER,GrMODE:INTEGER;
{4} X,Y: INTEGER;
{5} Xstr,Ystr :STRING;
{6}CH:CHAR;
{----------------------------------------------}
{7} PROCEDURE MAKESIGHT(X,Y:INTEGER);{ПРОЦУДУРА РИСОВАНИЯ ПРИЦЕЛА}
{8}BEGIN SetCOLOR(WHITE);
{9}CIRCLE(X,Y,80);
{10}SetCOLOR(LightGREEN);
{11}LINE(X-80,Y,X+80,Y); LINE(X,Y-63,X,Y+63); {ВЫВОД ОСЕЙ ПРИЦЕЛА}
{12}SetCOLOR(LightRED); CIRCLE(X,Y,2);{ОКРУЖНОСТЬ В ЦЕНТРЕ ПРИЦЕЛА}
{13}Str(X,XStr); STR(Y,YStr);{ПЕРЕВОД КООРДИНАТА В СТРОКОВЫЙ ТИП}
{14}SetCOLOR(YELLOW);
{15}OutTextXY(X+5,Y-35,'X='+XStr);{ВЫВОД КООРДИНАТ ЦЕНТРА ПРИЦЕЛА}
{16}OutTextXY(X+5,Y-20,'Y='+YStr)
{17}END;
{18}BEGIN
{19}GrDRIVER:=DETECT;
{20}InitGRAPH(GrDRIVER,GrMODE,'');
{21}SetCOLOR(LightGRAY);
{22}X:=GetMaxX DIV 2;Y:=GetMaxY DIV 2;{КООРДИНАТЫ ЦЕНТРА ЭКРАНА}
{23}RECTANGLE(50,425,600,460); {РИСОВАНИЯ РАМКИ}
{24}OutTextXY(120,440,INSTR);
{25}MakeSIGHT(X,Y);{РИСОВАНИЕ ПРИЦЕЛА В ЦЕНТРЕ}
{26}WHILE TRUE DO {ЦИКЛ РАБОТЫ ПРОГРАММЫ ДО ПРЕРЫВАНИЯ ПО КЛАВИШЕ ESC}
{27}BEGIN
{28}CH:=ReadKEY;
{29}CASE CH OF
{30}#27:BEGIN CloseGraph; halt(1)END;{ВЫХОД ПО КЛАВИШЕ ESC}
{31}#75:X:=X-STEP; {ИЗМЕНЕНИЕ КООРДИНАТ X,Y НАЖАТИЕМ СТРЕЛОК}
{32}#72:Y:=Y-STEP;
{33}#80:Y:=y+STEP
{34}END;
{35}ClearViewPORT; {ОЧИСТКА ГРАФИЧЕСКОГО ЭКРАНА}
{36}SetCOLOR(LightGray);
{37}RECTANGLE(50,425,600,460);
{38}OutTextXY(120,440,INSTR);
{39}MakeSIGHT(X,Y){РИСОВАНИЕ ПРИЦЕЛА В ТЕКУЩИХ КООРДЕНАТАХ}
{40}END;CloseGRAPH;
{41}ReadKey;
{42}END.

[ex.cluz]

Товарищ ZVEREK, перестаньте использовать заглавные буквы в постах, а то нарветесь на горчичник (если я не ошибаюсь, то уже на второй).

[ZVEREK]

Аааа простите ! простите!

я как понял нужно добавить ( ReadKey; ) в исходник ?

( readln; ) добавил я чтоб не закрывалась, но всё тоже самое !

[ex.cluz]

Так же не советую писать 2 и более постов подряд, т.к. это называется мультипостингом и тоже карается штрафом. Необходимо пользоваться кнопкой "Правка".

Может, вы сэкономите мне время и почитаете правила?

[Vikenty]

имя у темы тоже не нормально

[ZVEREK]

ReadKey; ВПИСАЛ НО ВСЁ ТАКЖЕ :-(

Сообщение от ex.cluz

Так же не советую писать 2 и более постов подряд, т.к. это называется мультипостингом и тоже карается штрафом. Необходимо пользоваться кнопкой "Правка".

Может, вы сэкономите мне время и почитаете правила?

Простите пожалуйста! но я так и сделал .

ТЕМА ЗАКРЫТА ! Я УДАЛЯЮСЬ ОТ СЮДА СОВСЕМ! :-(