Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ из PascalABC в Turbo Pascal

Автор: noskovgleb 2.12.2009 21:58

Сделал программу в 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.

Автор: Ozzя 3.12.2009 11:48

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

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 4.12.2009 13:42

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

Автор: noskovgleb 5.12.2009 17:48

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

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.

Автор: volvo 5.12.2009 19:11

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

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

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

Автор: noskovgleb 13.12.2009 5:24

Цитата(volvo @ 5.12.2009 16:11) *

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

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

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

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

Автор: Ozzя 14.12.2009 12:37

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

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