Zadaný text sa po obrazovke pohybuje sprava doľava

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

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.