Program pre určenie vzdialenosti búrky, ak doba medzi bleskom a hromom je daná

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Program: Burka.pas
Subor exe: Burka.exe
Subor ubuntu: Burka
Vyvojak: Burka.gif

Program pre určenie vzdialenosti búrky, ak doba medzi bleskom a hromom je daná. Matematické zdôvodnenie je na začiatku programu.
{ BURKA.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre urcenie vzdialenosti burky,                  }
{ ak doba medzi bleskom a hromom je dana                            }
{                                                                   }
{ Datum:04.02.2004                             http://www.trsek.com }
 
{ Analyza riesenia
 
zvuk = v1 * t1
|---->
svetlo = v2 * t2
|------------>
           vzdialenost s
|---------------------------------|
 
 
t = t1 - t2   ->    t1 = t + t2
s = v1 * t1
s = v2 * t2
 
v2 * t2 = v1 * t1
v2 * t2 = v1 * (t + t2) 
v2 * t2 = v1 * t + v1 * t2
v2 * t2 - v1 * t2 = v1 * t
t2 * (v2-v1) = v1 * t
t2 = v1 * t / (v2-v1)
 
s = v2 * t2
s = (v2 * v1 * t)/(v2 - v1)
 
kedze v1 je neporovnatelne mensie ako v2 mozeme ho zanedbat
preto:
s = (v2 * v1 * t)/v2
s = v1 * t
 
}
 
program burka;
uses crt;
const v_svetla = 300000;
      v_zvuku = 340;
var doba:real;
    dlz:real;
 
 
begin
     ClrScr;
     Write('Zadaj dobu medzi bleskom a hromom [s]:');
     ReadLn( doba );
 
     dlz := doba * v_zvuku;
     WriteLn('Vzdialenost burky je ', dlz:8:3,' m.');
     ReadLn;
end.