Răspuns :
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.
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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!