Question

PASCAL!!!
Un automobil se deplaseaza din orasul A spre orasul B cu viteza constanta v1, peste un interval de timp t1 un al doilea automobil porneste din A spre B avind viteza v2 (v2>v1). Scrieti un program pentru a determina:
a)peste cit timp al doilea automobil il v-a ajunge pe primul?
b)cu cit timp v-a ajunge mai inainte in orasul B al doilea automobil daca la momentul intilnirii distanta de la orasul A constituia 1/3 din valoarea distantei dintre orase.
c)ce viteza ar trebui sa aiba al doilea automobil fata de primul ca ele sa ajunga in acelasi timp in orasul B?

Answer 1

Program Automobile;
   var v1, v2, t1, t2, td, ta, dist, vd, vn: real;
  
 begin  
   write ('Introduceti viteza primului automobil in km/h:');
   readln (v1);
   write ('Introduceti timpul (in minute) peste cat se porneste cel de/al doilea automobil:');  
   readln (t1);
   write ('Introduceti viteza celui de/al doilea automobil in km/h:');
   readln (v2);
 
 t2:=(v2*t1/(v2-v1));
 td:=t2-t1;
   writeln ('Al doilea automobil il va ajunge pe primul dupa', td,' minute.');
 
 ta:=3*t2-3*td;
  writeln ('Al doilea automobil va ajunge cu ',ta,' minute mai devreme decat primul automobil.');
 
 dist:=3*t2/60*v1;
 vn:=dist/(3*t2/60-t1/60);
 vd:=vn-v1;
  writeln ('Al doilea automobil ar trebui sa circule cu ',vd,' km/h in plus ca sa ajunga simultan in orasul B.');
  readln;
end.