Writeln ('функция мәнін есептеу программасы'); writeln



Дата19.10.2019
өлшемі44,52 Kb.
#50288
Байланысты:
Тапсырма 1 паскаль

Тапсырма №1

var a,b,c,y :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(b+sqrt(sqr(b)+4*a*c))/(2*a)-exp(3+log(a)*c+sqr(b));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

7



6

1

a=8.00


Тапсырма №2

var a,b,c,d,y:real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(a/c)*(b/d)-(a*b-c)/(c*d);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

4



2
3

a=7.00


Тапсырма №3

var a,b,c,d,x,y :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(sin(x)+cos(y))/(cos(x)-sin(y))*(sin(x*y))/(cos(x*y));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

9



3

4
a=7.00

Тапсырма №5

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(3+exp(y-1))/(1+sqr(x))+abc*(y-(sin(x)/cos(x)));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

6

8



2

7

a=6.00



Тапсырма №4

var a,b,c,d,x,y :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(x+y)/(y+1)-(x*y-12)/(34+x);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

1

7



5

8

a=1.00



Тапсырма №6

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=x-(exp(3+log(x)))/3+(exp(3+log(x)))/5;

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

3



6

9

a=7.00



Тапсырма №7

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=ln(abs(y)-sqrt(abs(x))*(x-y/x+sqr(x)/4));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

3

6



1

2

a=3.00



Тапсырма №8
var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=1-exp((cos(x)))/(sin(x))+cos(x-y);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

1

2



3

6

a=1.00


Тапсырма №9

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=ln(abs(cos(x)))/(ln(1+exp(3+log(x))))-(12*sqr(x)*y);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

2

5



9

7

a=2.00



Тапсырма №10

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=exp((x+1)/(x-1))+18*x*exp(3+log(y));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

1

8



9

6

a=1.00



Тапсырма №11

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=exp(1+1/(sqr(x))-(12*exp(3+log(x))*y));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

2

8



7

4

a=2.00



Тапсырма №12

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

2

3



9

6

a=2.00



Тапсырма №13

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(cos(x))/(Pi-2*x)+(16*x*cos(x*y)-2);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

3

6



3

9

a=3.00



Тапсырма №14

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=exp(-x)-cos(x)+sin(2*x*y);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

5



6

3

a=8.00



Тапсырма №15
var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(2*(cos(3*x))/(sin(3*x))-1/(12*sqr(x)+7*x-5));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

5



9

1

a=7.00


Тапсырма №16

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=abs(sqr(x))-exp(3+log(x))-(7*x)/(exp(3+log(x)-15*x));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

3

8



6

1

a=3.00



Тапсырма №17
var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(ln(x))+(y/(cos(x)-(x/3)));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

1

2



5

3

a=1.00



Тапсырма №18

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(sin(sqrt(x+1)))-(sin(sqrt(x-1)));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

4

7



8

6

a=4.00


Тапсырма №19

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(exp(x))-(sqr(y)+12*x*y-3*sqr(x))/(18*Y-1);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

3

8



7

4

a=3.00



Тапсырма №20

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(1+sin(sqrt(x+1)))/(cos(12*y-4));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

5



4

7

a=8.00



Тапсырма №21

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(2*(cos(3*x))/(sin(3*X)))-(ln(1+sqr(x)));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

5



2

1

a=8.00


Тапсырма №22

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(exp(x)-x-2+(exp(1+x)));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

9

6



3

5

a=9.00



Тапсырма №23

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(exp(3*x)-4*x+(y-sqrt(abs(x))));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

7



5

9

a=8.00


Тапсырма №24

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(x-10*sin(x))+(abs(sqr(x)*sqr(x))-(exp(3+log(x))));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

4



1

8

a=7.00



Тапсырма №25

var a,b,c,d,z,f,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(x-10)/(sin(x))+cos(x-y);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

9

5



1

8

a=9.00



Тапсырма №26

var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(1+sqr(sin(x+y))/(2+abs(x-(2*x)))/(1+sqr(x)*sqr(y))+x);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

9

6



3

5

a=9.00


Тапсырма №27



var a,b,c,d,z,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(sqr(cos(sin(1/z))));

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

8

5



2

7

a=8.00



Тапсырма №28

var a,b,c,d,z,f,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=(sqr(cos(x)))/(sin(x))-(x*y*z)+(a*sqr(x)+b*x*c)/(d*exp(3+log(x))-F);

writeln ('a=',a:3:2);

readln;

readln;


end.

функция мәнін есептеу программасы

a,b,c,y-айнымалы мән бар?

7

5



3

9

a=7.00



Тапсырма №15

y:=(2*(cos(3*x))/(sin(3*x))-1/(12*sqr(x)+7*x-5));


Тапсырма №16



var a,b,c,d,x,y,abc :real;

begin

writeln ('функция мәнін есептеу программасы');

writeln (' a,b,c,y-айнымалы мән бар?');

readln (a,b,c,y);

y:=abs(sqr(x))-exp(3+log(x))-(7*x)/(exp(3+log(x)-15*x));

writeln ('a=',a:3:2);

readln;

readln;


end.

Тапсырма №17


y:=(ln(x))+(y/(cos(x)-(x/3)));

Тапсырма №18

y:=(sin(sqrt(x+1)))-(sin(sqrt(x-1)));

Тапсырма №19

y:=(exp(x))-(sqr(y)+12*x*y-3*sqr(x))/(18*Y-1);

Тапсырма №20

y:=(1+sin(sqrt(x+1)))/(cos(12*y-4));

Тапсырма №21

y:=(2*(cos(3*x))/(sin(3*X)))-(ln(1+sqr(x)));
Тапсырма №22

y:=(exp(x)-x-2+(exp(1+x)));


Тапсырма №23

y:=(exp(3*x)-4*x+(y-sqrt(abs(x))));

Тапсырма №24

y:=(x-10*sin(x))+(abs(sqr(x)*sqr(x))-(exp(3+log(x))));

Тапсырма №25

y:=(x-10)/(sin(x))+cos(x-y);

Тапсырма №26
y:=(1+sqr(sin(x+y))/(2+abs(x-(2*x)))/(1+sqr(x)*sqr(y))+x);

Тапсырма №27

y:=(sqr(cos(sin(1/z))));

Тапсырма №28



y:=(sqr(cos(x)))/(sin(x))-(x*y*z)+(a*sqr(x)+b*x*c)/(d*exp(3+log(x))-F);

Достарыңызбен бөлісу:




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет