1-лаборатория иши

Вазифани бажариш усули
1-вазифа. Турбо Паскал дастурлаш тилида ушбу функция қийматини ҳисоблаш дастурини тузинг, бу ерда .
Бажариш: 1-усул. Киритиш, чиқариш ва ўзлаштириш операторларидан фойдаланиб, берилган функцияни ҳисоблаш дастурини қуйидагича тузамиз.


program L31;
var a,x,y:real;
begin
write ('a ni kiriting'); readln (a);
x:=1/cos(a)+ln(abs(sin(6/a)/cos(6/a)))+sqrt(a);
y:=x/(1+x/(1+x));
write ('x=',x,'y=',y);
end.


2-усул. Бу масалани ўзлаштириш операторлари сонини кўпайтириш йўли билан ҳал қилиш мумкин:
Бу йўл билан билан ечилган масалада қатнашаётган операторлар сони олдингисига қараганда анча кўп, аммо бу ерда жуда узун бўлган операторлар қатнашмайди.
program L112;
var a,x,y,z,t:real;
begin
write ('a ni kiriting');
read (a);
z:=1/cos(a);
t:=ln(abs(sin(6/a)/cos(6/a)));
x:=z+t+sqrt(a);
y:=x/(1+x/(1+x));
write ('x=',x,'y=',y);
end.

2-вазифа. Уч ўлчовли фазода берилган икки нуқта A(x1,y1,z1), B(x2,y2,z2) орасидаги масофани ҳисоблаш дастурини тузинг.

Бажариш: Аналитик геометриядан маълумки, уч ўлчовли фазода берилган икки нуқта орасидаги масофа формула билан ҳисобланади.
Масофани ҳисоблаш дастурини тузамиз.

program L12;

var x1,x2,y1,y2,z1,z2,d:real;
begin
write ('x1,x2,y1,y2,z1,z2 larni kiriting');
read (x1,x2,y1,y2,z1,z2);
d:=sqrt(sqr(x1-x2)+ sqr(y1-y2)+ sqr(z1-z2));
writeln('d=',d);
end.
2-лаборатория ишига доир вазифалар.
1-вазифа. Берилган функциянинг қийматини ҳисоблаш дастурини тузинг.
1) , бу ерда
2) , бу ерда
3)
4)
5) , бу ерда
6)
7)
8)
9) , бу ерда
10)
11)
12) , бу ерда
13) , бу ерда
14) , бу ерда
15) , бу ерда
16)
17)
18) , бу ерда ,
19) , бу ерда
20)
21) , бу ерда
22) , бу ерда
23) , бу ерда
24)
25) , бу ерда
26) , бу ерда S=