dz ұ
1. : x:=1; y:=0.5; z:=1; c=√x*z-2/│z+x*y│;
program a2var
x,y,z,c:real;
begin
x:=1; y:=0.5;z:=1;
c:=(sqrt(x*z)-2/z)/abs(z+x*y);
writeln('c=',c);
readln(c);
end.
2. :u=√a*b-b/a2-b;
program a2;
var u:real;
a,b:integer;
begin
writeln('a,b');
readln(a,b);
u:=sqrt(a*b)-b/sqr(a-b);
writeln('u=',u);
readln(u);
end.
3. :y=sinx-2/5;
program a2;
var
x:integer;y:real;
begin
writeln('x');
readln(x);
y:=sin(x)-2/5;
writeln('y=',y);
readln(y);
end.
4. :y=tgx-e5/3;x=π/6
program a2;
const pi=3.14;
e=2.73;
var
x,z:real;
begin
z:=sqrt(sin(x)/cos(x))-exp(5*ln(e))/3;
writeln('z=',z);
readln(z);
end.
5. : u=-1.5t2-3/√t2+3; t=a2/2
program a2;
var
t,u:real;
begin
t:=2.3;
u:=1.5*sqr(t)-3/sqrt(t)*t+3;
writeln('u=',u);
readln;
end.
6. :v=u/a; u=a2-2; a=5;
program a2;
var
v,u,a:real;
begin
a:=5;
u:=sqr(a)-2;
begin
v:=u/a;
writeln ('u=',u);
writeln('v=',v);
readln;
end;
end.
7. :u=u/a; a=v/t;
program a2;
var s,t:integer;
v,a:real;
begin
writeln('s,t');
readln(s,t);
v:=s/t;
a:=v/t;
writeln('v=',v);
writeln('a=',a);
readln;
end.
8. :E=mv2-m/u;
program a2;
var
m,u:integer;
e:real;
begin
writeln('m,u');
readln(m,u);
e:=m*sqr(m)-m/u;
writeln('e=',e);
readln;
end.
.
9. :f=m*g; g=9.8;
program a2;
var
f,m,g:real;
|
g:=9.8;
|
writeln('f=',f);
readln; end.
10. :10 ү ң қ ;
program s2;
uses crt;
const n=10;
var
i,sum:integer;
a:array[1..n] of integer;
k:real;
begin
clrscr;
for i:=1 to n do
begin
writeln (' ');
readln (a[i]);
end;
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
for i:=1 to n do
k:=sum/n;
writeln ('k=',k);
readln (k);
end.
11. :3 4ү . ң ә ү .
program e;
Var
S:integer;
a:array[1..3, 1..4] of integer;
i,j:integer;
begin
For i:=1 to 3 do
For j:=1 to 4 do
read (a[i,j]);
S:=0;
S:=S+a[i,j];
writeln('s=',s);
readln;
end.
12. : ;
PROGRAM B1;
USES CRT;
CONST N=5;
VAR
A:ARRAY[1..N]OF REAL;
B:REAL;
I,G,K:INTEGER;
BEGIN
CLRSCR;
WRITELN('MASSIB ILEMENTTERIN ENGIZ');
FOR I:=1 TO N DO
READ(A[i]);
READLN;
FOR I:=2 TO N DO
BEGIN
B:=(A[I]);
G:=1;
WHILE (B>A[G])DO G:=G+1;
FOR K:=I-1 DOWNTO G DO A[K+1]:=A[K];
A[G]:=B;
WRITELN('B=',B);
READLN(B);
END;
END.
13. : B:=1+√z2/t+z
program esep3;
var z,t,b:real;
|
|
begin
writeln('z,t');
readln(z,t);
b:=1+sqr(z)/t+sqr(z);
writeln('b=',b);
readln;
end.
14. :c:=sqrt(a+b)/abc(a-b);
Program esep1;
var
|
BEGIN
a:=9; b:=7;
C:=sqrt(a+b)/abs(a-b);
WRITELN('C=',c);
readln(c); end.
15. : F:=√x2+y2+z2
program e1;
var y:integer;
x,z,f:real;
|
x:=5; y:=10; z:=2.3;
|
writeln('f=',f);
readln(f);
end.
16. : Y:=a+b+c+d; N:=y/4
program e1;
var a,b,c,d:integer;y,n:real;
begin
writeln('a,b,c,d');
readln(a,b,c,d);
y:=a+b+c+d;
n:=y/4;
writeln('y=',y);
writeln('n=',n);
end.
17. : S:=1/2*a*h
Program n1;
|
begin
writeln('a,h');
readln (a,h);
s:=1/2*a*h;
writeln('s=',s);
readln(s);
end.
18.
: X:=a2*x+exp(-x)*lnx
program esep2;
var a,b,x:real;
|
writeln('a,b,x');
|
a:=5; b:=2; x:=3;
x:=sqr(a)*x+exp(-x)*ln(x);
sin(b*x);
writeln('x');
readln(x);
end.
19.
: B:=(a-5)2
program esep1;
var a:integer;b:real;
begin
writeln('a');
readln(a);
b:=sqr(a-5);
writeln('b=',b);
readln(b);
end.
20.
: S:=√(5*a)/2
program a1;
var a:integer;s:real;
begin
s:=sqrt(5*a)/2;
writeln('s=',s);
readln(s);
end.
21.
: x:=a*b*c;
program e1;
var a,b:integer;
x,c:real;
begin
x:=a*b*c;
a:=5;b:=4;c:=0.5;
x:=a*b*c;
writeln('x=',x);
readln;
end.
22. :p=(a-c)2
program a1;
var a,c:integer;p:real;
begin
|
readln(a,c);
p:=sqrt(a-c);
writeln('p=',p);
readln;
end.
23.
: c:=sqr(a)+sin(a)+sqr(sin(d)/cos(d))/sqr(d-1);
program a2;
var a,d,c:real
bein
a:=6.1; d:=2;
c:=sqr(a)+sin(a)+sqr(sin(d)/cos(d))/sqr(d-1);
writeln('c=,c');
readln;
end.
24.
: ;
program pr4;
const n=5;
var
a:array[1..5]of integer;
i:integer;
begin
for i:=1to 5do
begin
writeln('vvedi znachenie massiva');
readln (a[i]);
END;
END.
25.
: y:=(1+2)²
program a2;
var x:integer;y:real;
begin
writeln('x');
readln(x);
|
writeln('y=',y);
readln;
end.
ө
17.12.2012. 12.01.2013. ғ ө ә ғ ә қ ә Turbo Pascal ү, құқ. ғ қ HTML - ң. ң ұң қ қ . қ ә ң, ә ұ ө 25 құ ң ә ғ .
|
|
қ :
ұғ ү :