Зертхaналық- практикалық бөлім

Зіндік жұмыс

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/a²-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-e⁵/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.5t²-3/√t²+3; t=a²/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=a²-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=mv²-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;

F:=m*g

begin

g:=9.8;

f

f:=m*g;

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+√z²/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

C:=sqrt(a+b)/abs(a-b)

a,b,c:REAL;

BEGIN

a:=9; b:=7;

C:=sqrt(a+b)/abs(a-b);

WRITELN('C=',c);

readln(c); end.

15.есеп Берілгені: F:=√x²+y²+z²

program e1;

var y:integer;

x,z,f:real;

F:=√x2+y2+z2

begin

x:=5; y:=10; z:=2.3;

F

f:=sqrt(sqr(x)+sqr(y)+sqrt(z));

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;

S:=1/2*a*h

var a,h,s:real;

begin

writeln('a,h');

readln (a,h);

s:=1/2*a*h;

writeln('s=',s);

readln(s);

end.

18.есеп

Берілгені: X:=a²*x+exp(-x)*lnx

program esep2;

var a,b,x:real;

X:=a2*x+exp(-x)*lnx

begin

writeln('a,b,x');

x

readln(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)²

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)²

program a1;

var a,c:integer;p:real;

begin

P=sqrt(a-c)

writeln('a,c');

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);

Y:=sqrt(1+2)

y:=sqrt(1+2);

writeln('y=',y);

readln;

end.

Орытынды бөлім

17.12.2012ж. – 12.01.2013ж. аралығында өткен «Алгоритмдеу және бағдарламалау негіздері» пәнінен оқу тәжірибесінде Turbo Pascal тілін үйренип,программалар құрдық . Оған қосымша ретінде практика барысында HTML - ді меңгердім. Менің жұмысымның мақсаты модульдерді қарастырып жазу. Оқу тәжірибені меңгерип, тәжірибелік жұмыс бөлімінде 25 есепке программа құрып оның блоксхемасымен нәтижесін шығарып жаздым.

Сабақ барысында:

Мұғалім үйге берілген тапсырманы тексеруде: