Horoskop a čínský horoskop v Pascalu Program po zadání data narození (den, měsíc a rok) určí horoskopové znamení. Rovněž se určí i čínské znamení. Program má jednoduché zabezpečení proti špatnému rozsahu vstupních dat – toto zabezpečení lze vylepšit dalšími podmínkami. program ZNAMENI; var      d: integer;     {cislo dne}      m: integer;     {cislo mesice}      r: […]

Porovnání dvou čísel v Pascalu Po zadání dvou celých (kladných či záporných) čísel, porovná program tyto čísla a vypíše zprávu o tom, které z nich je větší.   program ROVNITKO; var    a: integer;   {prvni cislo}    b: integer;   {druhe cislo} begin      writeln (‚…::: Program porovnavajici dve zadana cisla :::…‘);      writeln (“);      […]

Výpočet vzdálenosti od blesku v Pascalu Výpočet vzdálenosti od bouřkového blesku. Program po zadání rozdílného času mezi zpozorováním blesku a zaslechnutím hromu vypočítá vzdálenost od tohoto blesku. program BLESK; const      s = 299792458;     {rychlost svetla mps}      z = 340;           {rychlost zvuku mps}      m = 1000;          {1000m} var      t: integer;     {stopnuty cas} […]

Zjištění měsíce dle jeho čísla v Pascalu Po zadání čísla (1-12) program zjistí o který měsíc se jedná. program ROK; var      m: integer;     {cislo mesice} begin      writeln(‚…::: Program vypise nazev mesice dle jeho cisla (1-12) :::…‘);      writeln(“);      writeln(‚3. Zadejte cislo mesice (1-12) a stisknete ENTER: ‚);      readln (m);      writeln(“); […]