из 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 22:03

[Ozzя]

Только у тебя затирается текст

program mygraph;
uses crt,graph;
var x,y : integer;
     s  : string;
     k  : char;
     gr,gm : iNteger;
 procedure vpravo;
 Begin
   for x:=10 to 170 do
       begin
         if keypressed then halt;
         Rectangle(10,10,400,80);
         OutTextXY(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);
         OutTextXY(x,34, 'Hello World');
         delay(100);
       end;
 End;

BEGIN
  gr:=Detect;
  Initgraph(gr,gm,'c:\bp\bgi');
  SetTextStyle(1,0,4);
  SetColor(red);
  vpravo;
  vlevo;
END.
 

[noskovgleb]

Оу, спасиб большое, и не пойму что с паскалем в граф режиме твориться, спасибо большое.

[noskovgleb]

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

program mygraph;
uses crt,graph;
var x,y : integer;
     s  : string;
     k  : char;
     gr,gm : iNteger;
     i     : char;
 procedure vpravo;
 Begin
   for x:=10 to 60 do
       begin
         cleardevice;
         if keypressed then halt;
         Rectangle(10,10,600,80);
         OutTextXY(x,34, 'Hello world');
         delay(100);
       end;
 End;
 procedure vlevo;
 Begin
   for x:=60 downto 11 do
       begin
         cleardevice;
         if keypressed then halt;
         Rectangle(10,10,600,80);
         OutTextXY(x,34, 'Hello world');
         delay(100);
       end;
 End;

BEGIN
  i:= 'e';
  gr:=Detect;
  Initgraph(gr,gm,'c:\bp\bgi');
  SetTextStyle(1,0,4);
  SetColor(red);
  while i = 'e' do
  begin
     vpravo;
     vlevo;
  end;
END.

Сообщение отредактировано: noskovgleb - 5.12.2009 17:49

[volvo]

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

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

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

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

[noskovgleb]

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

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

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

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

[Ozzя]

Взять сделать процедуру которая будет двигать влево и вправо один и тот же текст?

Конечно.
Заведи переменную, например DeltaX
При движении влево она будет принимать отр-ное значение, вправо - положит. значение. А в самой процедуре строка увеличения/уменьшения координаты -

x:=x+DeltaX;