Задачка такая:
при запуске программы пользователь вводит текстовую информаци, которая затем должна выводиться на экран в виде бегуещей зигзагом слева направо по горизонтали строки. Вывод бегущей строки должен происходит в текстовом окне 80х5 символов в середине экрана. Завершение проги по esc.
помогите плиз, не знаю с чего начать алгоритм...
Так, что ли?
uses crt;
const
s: string = 'running STRING';
width = 80; { Вот это - размеры "окна", в котором все будет двигаться }
height = 5;
delta: integer = 1;
procedure next_pos(var x, y: integer);
begin
inc(x); inc(y, delta);
if (y = height) or (y = 1) then delta := - delta;
if x = width then x := 1;
end;
procedure print(const s: string; x, y: integer);
var i: integer;
begin
for i := 1 to length(s) do begin
gotoxy(x, y); write(s[i]);
next_pos(x, y);
end;
end;
var
x, y, dy: integer;
begin
x := 1; y := 1;
repeat
clrscr;
dy := delta;
print(s, x, y);
delta := dy;
next_pos(x, y);
delay(120); { <--- Задержку установишь, какую надо }
until keypressed;
while keypressed do readkey;
end.
ну ты молоток, хотел что бы чуток помогли, а тут такое=) мне прям стыдно, за то что я такой тупой=)
аааа, не все равно есть что подделать, мне надо открыть окно с помощью процедуры winodow! надеюсь я справлюсь=)))
добавляю window (1,9,80,14) в правам верхнем углу большого экрана зависает строчка=(( аааа все норм!
еще раз огромное спасибо! вот окончательная версия "Бегущей строки по зигзагу в окне" =)
uses crt;
const
width = 80;
height = 5;
delta: integer = 1;
procedure next_pos(var x, y: integer);
begin
inc(x); inc(y, delta);
if (y = height) or (y = 1) then delta := - delta;
if x = width then x := 1;
end;
procedure print(const s: string; x, y: integer);
var i: integer;
begin
for i := 1 to length(s) do begin
gotoxy(x, y); write(s[i]);
next_pos(x, y);
end;
end;
var
x, y, dy: integer;
c : char;
s: string;
begin
textbackground(9);
clrscr;
window(1,9,80,14);
textbackground(2);
textcolor(4);
writeln('Vvedite strochku');
read(s);
x := 1; y := 1;
repeat
while keypressed do c:=readkey;
clrscr;
dy := delta;
print(s, x, y);
delta := dy;
next_pos(x, y);
delay(120);
until c=#27;
end.