из PascalABC в Turbo Pascal, переделать код. Опции

[noskovgleb]

Сделал программу в PascalABC программу с графикой т.к. в нормальном Паскале в графическом режиме паскаль отключался как можно переделать правильно на Турбо Паскаль. Сам немогу сделать т.к. неподключаеться ничего и неработает.

{Программа  ресует рекалмный плакат с бегущим текстом Hello World шрифтом TriplexFont}
program mygraph;
uses crt,graphABC;
var x,y : integer;
     s  : string;
     k  : char;
 procedure vpravo;
 Begin
   for x:=10 to 170 do
       begin
         if keypressed then halt;
         Rectangle(10,10,400,80);
         TextOut(x,34, 'Hello World');
         delay(100);
       end;
 End;
 procedure vlevo;
 Begin
   for x:=170 downto 11 do
       begin
         if keypressed then halt;
         Rectangle(10,10,400,80);
         TextOut(x,34, 'Hello World');
         delay(100);
       end;
 End;

BEGIN

SetFontSize(10);
SetFontColor(clred);
SetFontName('TriplexFont');



 vpravo;
 vlevo;

END.

Сообщение отредактировано: noskovgleb - 2.12.2009 18:03

[volvo]

Вот так наверно будет лучше.

Тебе видней... Если нравится копи/пастить целые фрагменты кода, может и лучше... Что мешает выделить сам фрагмент очистки поля и вывода строки в отдельную процедуру? Программа станет на треть короче...

Кстати, совсем не обязательно чистить весь экран, можно очистить только тот прямоугольник, в котором выведена строка, будет гораздо быстрее и мерцать будет меньше...

P.S. Очень порадовал способ организации цикла: ввести специальную переменную, с помощью которой организовать банальный вечный цикл, из которого выходить halt-ом, не закрывая графический режим... "Это что-то особенного" (С)...

[noskovgleb]

Тебе видней... Если нравится копи/пастить целые фрагменты кода, может и лучше... Что мешает выделить сам фрагмент очистки поля и вывода строки в отдельную процедуру? Программа станет на треть короче...

Кстати, совсем не обязательно чистить весь экран, можно очистить только тот прямоугольник, в котором выведена строка, будет гораздо быстрее и мерцать будет меньше...

P.S. Очень порадовал способ организации цикла: ввести специальную переменную, с помощью которой организовать банальный вечный цикл, из которого выходить halt-ом, не закрывая графический режим... "Это что-то особенного" (С)...

а вот насчет копи пастить.. Взять сделать процедуру которая будет двигать влево и вправо один и тот же текст?
А как можно очищать внутри квадрата? А насчет банального цикла Вы серьезно?