Webové aplikace | Informační systém pro školy | HR magazín | Celoživotní učení | Zábavný portál | Mzdová kalkulačka | Výpočet nemocenské | Seznam škol | BMI | Výpočet mateřské | Referáty | SuperMamina | Kalkulačky | Online hry | Mateřské školky | Spis szkół v PL | Kam na výlet | Zoznam škôl
Referáty, Seminárky, Čtenářské deníky, Maturitní otázky

Referáty, Seminárky, Čtenářské deníky, Maturitní otázky

Naleznete zde převážně informační materiály pro školáky. V databázi se nachází 4250 referátů.

Domů | Referáty | Seminární práce | Čtenářské deníky | Maturitní otázky | + Vložit dílo
 Doporučujeme

Trička s potiskem - vtipná trička s potiskem si můžete vyrobit i s vlastním motivem.

Střední školy - přehledný seznam středních škol.

Bazar pro maminky - staré i nové oblečení oblečení pro děti.


Střední školy

 Reklama


+ vložit vlastní dílo upravit toto dílo

Světelné noviny

program SvetelneNoviny;
uses Crt;
const
{ zakladni konstanty }
DelkaNovin = 20; { delka svetelnych novin }
RadekNovin = 5; { umisteni svetelnych novin - radek }
SloupecNovin = 30; { umisteni svetelnych novin - sloupec }
MeziZnaky = 100; { prodleva mezi jednotlivymi znaky v [ms] }
var
Zprava : string; { zprava do svetelnych novin }

procedure JedenBeh(Beh : string);
{ jeden prubeh zpravy svetelnymi novinami }
var
s : string;
i : byte;
begin
s := '';
for i := 1 to DelkaNovin do s := s+' ';
s := s+Beh+' ';
i := 1;
repeat
GotoXY(SloupecNovin,RadekNovin);
write(copy(s,i,DelkaNovin));
Delay(MeziZnaky);
Inc(i);
until KeyPressed or (i > length(s))
end;

begin
TextBackground(Blue);
ClrScr;
TextColor(Yellow); TextBackground(Red);
JedenBeh('Svetelne noviny!');
TextBackground(Blue);
GotoXY(1,RadekNovin+2);
write('Zadej zpravu: '); readln(Zprava);
GotoXY(1,RadekNovin+2); ClrEol; { vymazeme vstup }
if Zprava = '' then begin
writeln('Neni co vypisovat');
Zprava[1] := ReadKey;
end
else begin
TextBackground(Red);
repeat { cyklicky opakujeme prubeh zpravy novinami }
JedenBeh(Zprava);
until KeyPressed;
end;
TextColor(LightGray); TextBackground(Black);
Clrscr;
end.


 Reklama




+ vložit vlastní dílo upravit toto dílo
  Sdílet článek na: Facebook Facebook   MySpace MySpace   Linkuj Linkuj  

Rodinná vánoční trička = skvělý dárek
Střední školy - seznam středních škol
Střední odborné školy - seznam středních odborných škol
Bazar pro maminky - staré i nové oblečení oblečení pro děti.

 Reklama