Zadaný text sa po obrazovke pohybuje sprava doľava
Delphi & Pascal (česká wiki)
Category: Homework in Pascal
Author: Pheo
web: pascalsource.ic.cz
Program: Svetelne_noviny.pas
File exe: Svetelne_noviny.exe
Author: Pheo
web: pascalsource.ic.cz
Program: Svetelne_noviny.pas
File exe: Svetelne_noviny.exe
Napíšte program, ktorý na obrazovke vytvorí efekt svetelných novín
{ 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.