Pascal - Graficzne

Zjeżdżające słowa

Zjeżdżające słowa
Pascal - Graficzne

Program: przedstawiający zjeżdżające się dwa słowa.

Słowa zjeżdżają:

  • z górnego lewego rogu,
  • z dolnego prawego rogu.

W stronę lewego dolnego rogu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program cwiczenie;
uses crt,graph;
const
     sciezka='C:\progra~1\tp\bgi';
     imie='Lukasz';
     nazwisko='Budrewicz';
     var
     i,x,y:integer;
     d,m:integer;
     begin
     d:=detect;
     initgraph(d,m,sciezka);
     for i:=0 to 440 do
     begin
          delay(5);
          clearviewport;
          outtextxy(10,i,imie);
          outtextxy(393-i*3 div 4,450,nazwisko);
     end;
     repeat until keypressed;
     closegraph;
end.