Решение задач в Паскале на тему Физическое моделирование (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 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.
Тип материала: | Документ Microsoft Word (docx) |
---|---|
Размер: | 14.8 Kb |
Количество скачиваний: | 9 |