Anonymní profil imagination – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil imagination – Programujte.comAnonymní profil imagination – Programujte.com

 

Příspěvky odeslané z IP adresy 85.216.191.–

imagination
Pascal › scrolling textu
17. 12. 2007   #58792

no... stazka tomu rozumiem, ale ani tvoj program asi neviem pekne upravit aj pre dlhsie texty, teda aby program vypisoval text len do jedneho riadku a az potom, ked konecne dojde na koniec, ho zacal vypisovat od zaciatku. mam to uz nejak spravene, ale je to dlhsia praca a toto je taky cvicny maturitny prikladik, teda nieco, co by som mala zlvadnut za 15 minut...

imagination
Pascal › scrolling textu
10. 12. 2007   #58036

potrebujem pomoct s prikladom, ktory je zrejme dost jednoduchy, pretoze by som ho mala napisat v prienehu niekolkych minut. ide o to, ze sa pokusam scrollovat text dolava. prvy priklad, kde text urcite nepresahuje riadok, uz mam ako tak spraveny (vo verzii, ktoru vidite, zbehne otocenie iba raz, ale to je jedno). teraz ho mam prerobit tak, aby fungoval aj pre dlhsie texty. vymyslela som niekolko algoritmov, ale programovanie kazdeho sa zda byt dlhsia zalezitost. nemohli by ste mi ukazat, ako ho riesit jednoducho a rychlo? zrejme mi stale cosi unika... mam stale pocit, ze to zbytocne komplikujem...

uses crt;
const c=80;
var pt,ut:string;
i,ii:integer;
procedure posun(t:string;n:integer);
var di:integer;
begin
ut:='';
for di:=n to length(t) do ut:=ut+t[di];
for di:=1 to c-length(t) do ut:=ut+' ';
for di:=1 to (n-1) do ut:=ut+t[di];
end;
begin
clrscr;
pt:='abcdefghijklmnopqrstuvwxyz';
for ii:=1 to c-length(pt) do
begin
for i:=1 to c-length(pt)-ii do write(' '); write(pt);
delay(250); clrscr;
end;
for i:=1 to length(pt) do
begin
posun(pt,i);
writeln(ut); delay(200); clrscr;
end;
readkey;
end.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý