::: ::: Jazyk Pascal | Výpočet vzdálenosti od blesku

0 x hodnoceno

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}
     v: integer;     {vysledek v m}
     k: integer;     {vysledek v km - cele cislo}
     d: integer;     {vysledek v km - zbytek}

begin
         writeln ('...::: Program na vypocet priblizne vzdalenosti od blesku :::...');
         writeln ('');
         writeln ('1. Nachystejte si stopky. Ihned, jakmile uvidite blesk, stopky spustte.');
         writeln ('2. V okamziku, kdy uslysite hrom, stopky zastavte.');
         writeln ('');
         writeln ('3. Zadejte namereny cas (v sekundach) a stisknete ENTER:');
         writeln ('');
         readln (t);
         writeln ('');
         v:=t*z;             {vypocet m}
         k:=v div m;         {vypocet km - cele cislo}
         d:=v mod m;         {vypocet km - zbytek po deleni}
         writeln ('Vase vzdalenost od blesku je: ',v,'m = ',k,'.',d,'km');
         writeln ('');
         writeln ('');
         writeln ('');
         writeln ('Pro ukonceni programu stisknete ENTER');
         readln;

end.

No comments

Reklama (sponzoruje chod webu)
Analytics
Created by E.Sc. Petr Mejzlik, DiS.           © 2009 - 2017 X-IDEA.cz          Tento web používá COOKIES