Сделал программу в 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;
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.