IT a programování

SyntaxHighlighter

Pro zvýraznění syntaxe zdrojových souborů programovacích jazyků jsem si stáhla SyntaxHighlighter 3.0.83. Jde o zvýrazňovač syntaxe napsaný v JavaScriptu. SyntaxHighlighter dokáže automaticky naformátovat kód podle syntaxe daného jazyka, který máte napsaný v HTML v tagu <pre>.

Implemantace

Jeho implementace do webových stránek je celkem jednoduchá. Stačí, když si stažený syntaxhighlighter_3.0.83.zip rozbalíte a uložíte někam do své struktury webu.

pokračování…

Pascal - Druhé maximum

Program vypíše v pořadí druhé maximum ze zadaných čísel. Skonční zadáním čísla -999. Pokud jsou některá čísla shodná (např. 5 5 9 9 1 2), vypíše jako druhé maximum číslo 5.

Zdrojový kód Free Pascal

program DruheMaximum;
uses crt;
var cislo, max, max2: Integer;
begin
   clrScr;

   writeln('Program vypise druhe nejvetsi cislo ze zadanych celych cisel. Konec = -999.');
   max := -MAXINT; //-32768
   max2 := max;
   repeat
      write('Zadejte cislo: ');
      readln(cislo);
      if (cislo <> -999) then
      begin
         if (cislo > max) then
         begin
            max2 := max;
            max := cislo;
         end
         else
            if ((cislo < max) and (cislo > max2)) then // cislo je mezi dosavadnim maximem a druhym maximem a neni rovno maximu
               max2 := cislo;
      end;
   until (cislo = -999);
   writeln('Druhe nejvetsi cislo ze zadanych cisel je: ',  max2);

   repeat
   until keyPressed;
end.

pokračování…

Pascal - Maximum z čísel

Program vytiskne maximum ze zadaných čísel. Po zadání čísla -999 program skončí.

Zdrojový kód Free Pascal

While cyklus

program Maximum;
uses crt;
var cislo, max: integer;
begin
   clrScr;

   writeln('Program vypise maximum ze zadanych celych cisel. Konec = -999.');
   max := -MAXINT; //-32768

   write('Zadejte cislo: ');
   readln(cislo);
   while (cislo <> -999) do
   begin
      if (cislo > max) then
         max := cislo;
      write('Zadejte cislo: ');
      readln(cislo);
   end;
   writeln('Maximum ze zadanych cisel je: ', max);

   repeat
   until keyPressed;
end.

pokračování…

Pascal - Podíl dvou celých čísel

Program spočítá podíl dvou celých čísel. Vrátí celočíselný výsledek a k němu zbytek. Dále vrátí reálný výsledek.

Zdrojový kód Free Pascal

program PodilDvouCisel;
uses crt;
var
   a, b, c, zbytek: integer;
   cReal: real;
begin
   clrScr;

   // nacteni vstupu
   writeln('Program pocita celociselny a realny podil dvou celych cisel A a B.');
   write('Zadejte cislo A (delence): ');
   readln(a);
   write('Zadejte cislo B (delitele): ');
   readln(b);

   // vypocet a zobrazeni vystupu
   if (b = 0) then
   begin
      writeln('Nulou nelze delit!');
   end
   else
   begin
      // celociselne deleni
      c := a div b;
      zbytek := a mod b; // zbytek po celociselnem deleni
      writeln('Celociselny podil A div B = ', c);
      writeln('Zbytek po celociselnem deleni A mod B = ', zbytek);
 
      // realne deleni
      cReal := a / b;
      writeln('Realny podil A/B = ', cReal:7:5); // zobrazeni na 5 desetinnych mist
   end;

   repeat
   until keyPressed;
end.

pokračování…

Pascal - Maximum ze tří čísel

Program najde maximum ze tří zadaných čísel a vypíše ho.

Zdrojový kód Free Pascal

program MaximumZeTriCisel;
uses Crt;
var a, b, c, max: integer;
begin
    clrScr; 

    writeln('Program pocita maximum ze tri celych cisel.');
    write('Zadejte tri po sobe jdouci cisla oddelena mezerami: ');
    read(a, b, c);

    if a > b then
        max := a
    else
        max := b;

    if c > max then
        max := c;

    write('Maximum ze zadanych cisel je: ', max);

    repeat
    until keyPressed;
end.

pokračování…

Pascal - Ahoj světe!

Program vytiskne na obrazovku text „Ahoj světe!“.

Zdrojový kód Free Pascal

program AhojSvete;
uses crt;
begin
   clrScr;
   writeln('Ahoj svete!');
   repeat
   until keyPressed;
end.

pokračování…

Instalace Free Pascalu

Free Pascal

Download

Free Pascal 2.4.4. si můžete zdarma stáhnout. Vyberete si správnou verzi podle OS a procesoru. Já mám například MS Windows s procesorem Intel, takže jsem vybrala možnost Intel/i386 a Win32, Win64 and WinCE.

pokračování…

Visual Basic - pryč s koncem řádku v preformátovaném textu

Používám redakční systém Joomla a implementovala jsem si do něj SyntaxHighlighter pro zdůraznění syntaxe programátorského kódu.

Bohužel editor v Joomle nedokáže uchovat správné formátování tagu pro preformátovaný text <pre> v původní podobě a občas tam naseká místo klasického odřádkování tagy konce řádku <br />. Ty jsou pak samozřejmě při výpisu přes SyntaxHighlighter v HTML vidět. Když není použit SyntaxHighlighter, tak se text zobrazuje správně, i když tam jsou tagy <br />.

pokračování…

Nejčastější HTML entity

HTML entity, které osobně nejčastěji používám:

ZnakHTML entitaASCII
Český názevAnglický název
& &amp; 38 znak and ampersand
< &lt; 60 znak menší než less-than sign
> &gt; 62 znak větší než greater-than sign

&nbsp; 160 nedělitelná mezera non-breaking space

&thinsp; 8201 zúžená mezera thin space
© &copy; 169 copyright copyright sign
® &reg; 174 registrovaná obchodní značka registered trade mark sign
° &deg; 176 stupeň degree sign
&asymp; 8776 přibližně almost equal to = asymptotic to
± &plusmn; 177 znak plus mínus plus-or-minus sign
· &middot; 183 tečka vprostřed řádku middle dot (Georgian comma, Greek middle dot)
× &times; 215 krát multiplication sign
&ndash; 8211 pomlčka šířky n en dash
&sbquo; 8218 levá dolní jednoduchá uvozovka
(česká levá uvozovka)
single low-9 quotation mark
&lsquo; 8216 levá jednoduchá uvozovka
(česká pravá uvozovka)
left single quotation mark
&bdquo; 8222 levé dolní uvozovky
(české levé uvozovky)
double low-9 quotation mark
&ldquo; 8220 levé horní uvozovky
(české pravé uvozovky)
left double quotation mark
&hellip; 8230 tři tečky (výpustka) horizontal ellipsis (three dot leader)
&euro; 8364 euro euro sign
&larr; šipka vlevo leftwards arrow
&uarr; šipka nahoru upwards arrow
&rarr; šipka vpravo rightwards arrow
&darr; šipka dolu downwards arrow
&sum; 8721 celkový součet (suma) n-ary summation
&minus; 8722 mínus minus sign
&ne; 8800 nerovnost not equal to
&le; 8804 menší nebo rovno less-than or equal to
&ge; 8805 větší nebo rovno greater-than or equal to
&sdot; 8901 matematické krát dot operator

pokračování…

Články na této stránce: