pagina Lucrata

Siteul revistei INFO-TIC din Colegiului Economic "Ion Ghica" din Bacau

Exemple discutate la cercul din 5 februarie 2025

Realizati un program in Delphi care dupa citirea unui text de la tastatura,
se afiseaza cuvintele mergator pe display

program scriemergator;

uses crt;

var s:string; i:integer;

begin

writeln('Dati sirul de caractere: (max 256 caractere)' );

readln(s);

for i:=1 to 80 do s:=" "+S " ";

clrscr;

repeat

for i:=1 to length(s) -- 79 do

begin

GotoXY(1,10);

write( copy(S,i,120));

delay(50);

end;

until keyPressed;

readln;

End.