Dze je subor www.TrSek.com/zadania/svetelne_noviny.pas{ SVETELNE_NOVINY.PAS Copyright (c) Pheo }
{ Napíšte program, ktorý na obrazovke vytvorí efekt svetelných }
{ novín: zadaný text sa po obrazovke pohybuje sprava do¾ava, }
{ keï dorazí na ¾avý okraj, znovu sa objaví vpravo. }
{ Program skonèí stlaèením ¾ubovo¾ného klávesu. }
{ }
{ Datum:27.04.2005 http://www.trsek.com }
program svetelne_noviny;
uses crt;
const cas=5000;
var i,co,pom:integer;
s:string[80];
begin
clrscr;
write('Zadaj text svetelnych novin: ');
readln(s);
pom:=length(s);
textattr:=16*blue+green;
clrscr;
i:=pom-1;co:=1;
repeat
gotoxy(80-i,13);
write(s);
delay(cas);
gotoxy(80-i,13);
write(' ':pom);
inc(i,co);
if i=79 then co:=-1;
if i=pom-1 then co:=1;
until keypressed;
end.