§23. Fiziki modelleri derngemek. Mesele 2.

A,B,C we D obalardan yzygider yol gecyar. AB=80km, BC=50km, CD=10km.

A we C obalaryng arasynda 40km yeri asfalt edildi.Welosipedcining A dan

B oba ing az wagtda barmaklygyny kesgitlemeli?

(Welosipedcining yoldaky tizligi 20km/s, asfalt yoldaky tizligi 40km/s)

Cozulushi: Eger A we B aralyk toprak yol bolsa, onda s=80,a=20 ,bolar, t=s/a;

Eger A we B aralygyng 40km yeri toprak yol bolsa, onda s1=40, a1=20, bolar; t1=s1/a1;

Eger A we B aralygyng 40km yeri asfalt yol bolsa, onda s2=40, a2=40, bolar; t2=s2/a2;

Welosipedci A dan B oba t1+t2=u wagtda barar.t we u wagtlary dengeshdirip in az wagty alarys.

uses crt;

var n: byte; u,t,t1,t2,s,a,s1,s2,a1,a2: real;

begin

clrscr;

    write ('s=80 we a=20 sanlary giriz:'); read (s,a);

    t:=s/a;

  write ('t= ',t,' sagat;'); writeln (' diymek A-dan B- a cenli aralyk toprakly bolsa, ',t,' sagatda gecer.');

  writeln ('s1=40 we a1=20 sanlary giriz:'); read (s1,a1);

  t1:=s1/a1;

  writeln ('t1= ',t1,' sagat;');writeln (' diymek A-dan B- a cenli aralygyng 40km toprakly bolsa, ',t1,' sagatda gecer.');

  writeln ('s2=40 we a2=40 sanlary giriz:'); read (s2,a2);

  t2:=s2/a2;

  writeln ('t2= ',t2,' sagat;');writeln (' diymek A-dan B- a cenli aralygyng 40km asfalt bolsa, ',t2,' sagatda gecer.');

  u:=t1+t2;

  writeln ('t1+t2= ',u,' sagat;');

  writeln (' diymek A-dan B- a cenli aralyk 40km toprak,40km asfalt bolsa, ',u,' sagatda gecer.');

  if t>u then writeln (t,'>',u,'; Jogap: A-dan B-a cenli arakygy ',u,' sagatda gecer.')else writeln ('Jogap: A-dan B-a cenli arakygy ',t,' sagatda gecer.');

readkey;

end.