Решение задач в Паскале на тему Физическое моделирование (11-класс язык Туркменский)

§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 a...
Раздел Информатика
Класс -
Тип Конспекты
Автор
Дата
Формат docx
Изображения Нет
For-Teacher.ru - все для учителя
Поделитесь с коллегами:

§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.

© 2010-2022