Сделал программу в 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.
Только у тебя затирается текст
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.
Оу, спасиб большое, и не пойму что с паскалем в граф режиме твориться, спасибо большое.
Вот так наверно будет лучше.
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.
x:=x+DeltaX;