Зертханалық жұмыс №6
Бер: AK:=exp(k*ln(x))/sqr(k)+sqr(1).
Program prsum;
Var x,S,AK,e:real; k:integer;
Begin
Writeln(‘x,e engiz’);
Read(x,e);
S:=0; k:=1;
Repeat
Ak:=exp(k*ln(x))/sqr(k)+sqr(1);
S:=S+AK;
k:=k+1;
Until abs(AK)Writeln(‘S=’,S:4:3,’AK=’,AK:3:1);
End.
X1=2;3; S=5.000 AK=2.0
X2=1;1; S=183.639 AK=1.0
X3=1;2; S=3.250 AK=1.3
Зертханалық жұмыс №7
Бер: AK:sqrt(abs(exp(3*ln(x))))/exp(3*ln(k))
Program prsum;
Var x,S,AK,e:real; k:integer;
Begin
Writeln(‘x,e engiz’);
Read(x,e);
S:=0; k:=1;
Repeat
AK:=sqrt(abs(exp(3*ln(x))))/exp(3*ln(k));
S:=S+AK;
K:=k+1;
Until abs(AK)
Writeln(‘S=’,S:4:2,’AK=’,AK:6:3);
End.
X1=4;2; S=9.00 AK=1.000
X2=3;2; S=5.85 AK=0.650
X3=4;1; S=9.00 AK=1.000.
Зертханалық жұмыс №8
Бір өлшемді массивтер
A(15) массив элементтерін өсу реті бойынша сұрыптау программасын құру.
Program togzhan_2;
var K,I,S,P:integer;
X:array[1..15] of integer;
begin for k:=1 to 15 do read(x[K]); writeln;
for K:=1 to 14 do
for I:=K+1 to 15 do
if X[I]
P:=X[K]; X[k]:=X[I]; X[I]:=P end;
writeln; for K:=1 to 15 do write (X[K]:5);
readln; readln end.
A[1]10
A[2]24
A[3]31
A[4]12
A[5]47
A[6]72
A[7]58
A[8]66
A[9]74
A[10]65
A[11]23
A[12]15
A[13]8
A[14]33
A[15]85
Нәтижесі:
8 10 12 15 23 24 31 33 47 58 65 66 72 74 85
Зертханалық жұмыс №9
Екі өлшемді массив
Матрицаның ең кіші элементін табу
program togzhan_1;
const N=3;M=4;
var A:array[1..N,1..M] of integer;
K,I,Min:integer;
begin for K:=1 to N do for I:=1 to M do read(A[K,I]);
Min:=A[1,1];
for K:=1 to N do
for I:=1 to M do if A[K,I]
writeln('MIN=',Min);
readln; readln end
5 6 8
13 17 65
24 36 87
9 43 68
Нәтижесі: Min=5
Зертханалық жұмыс №10
Элементтері бүтін сандардан тұратын матрица қатарларын кему бойынша реттеу және элементтерді тек жұп сандардан тұратын қатарларды көрсету
program togzhan_2;
const N=3;M=4;
var A:array[1..N,1..M] of integer; K,I,P,min, jup:integer;
begin for K:=1 to N do
for I:=1 to M do read(A[k,I]);
writeln;
for K:=1 to N do begin
for P:=1 to M-1 do
for I:=P to M do
if A[K,P]
end;end;
writeln('zhana matritsa:');
for K:=1 to N do begin jup:=jup+1; end;
if jup=M then
write('zhup:',K); writeln;
end;
readln; readln End.
24 85 94
14 67 27
35 84 10
47 91 89
Нәтижесі:
Кему бойынша 94 91 89 85 84 67 47 35 27 24 14 10
Жұп сандар: 94 84 24 14 10
Зертханалық жұмыс №11
Жолдық берілгендер
Символдар қатары берілген. Қатардағы мына әріптердің ену санын табу программасын құру керек.
Program togzhan_1;
Var d:string [20];
k,P:integer;
begin P:=0;
writeln ('Text engiz');
readln (d);
For k:=1 to length (d) do
begin
P:=pos('abc',d);
if P<>0 then P:=P+1;
writeln('P=', P);
readln;
end;
end.
Abcolute P=1
Зертханалық жұмыс №12
Символдар қатарында «+» және «*» символдары қанша рет кездесетінін анықтау программасын құру керек.
Program togzhan_2;
Var d:string [10];
k,n:integer;
begin n:=0;
writeln('Text engiz');
readln(d);
For k:=1 to length (d) do
begin
If (d[k]='+') or (d[k]='*') then n:=n+1;
end;
writeln ('+,* sany-',n);
readln;
end.
12+78+5*8*79=3250
+,* sany-2
Зертханалық жұмыс №13
Картотекадан қан тобы бірдей болатын 10 сынып оқушыларының тізімін шығару программасы
type dosye=RECORD
A,C:String;
B,E:integer;
D:Char;
end;
Var X:array[1..10] of Dosye;
K,N:Byte; G:Char;
begin
For K:=1 to 3 do With X[K] do begin
Write('Familiasi:'); Readln(A);
Write('Ati:'); Readln(C);
Write('Tugan zhili:'); Readln(B);
Write('Klasi:'); Readln(E);
Write ('Kan tobi:'); Readln(D);
end; Writeln;
Write('Kandai kan tobi kerek:'); Readln(G);
N:=0; Writeln('Osi topka zhatatin okushilar tizimi:');
For K:=1 to 3 do With X[k] do begin
If (D=G) and (E=10) then Writeln(A:10, C:10)
Else N:=N+1; If N=3 Then writeln ('Ondai okushi zhok') end;
readln; end.
Aldabergenov Sarsenbaeva Kudabaev
Aset Maia Almat
1991 1989 1992
10 11 10
2 3 2
Kandai kan tobi kerek: 2
Osi topka zhatatin okushilar tizimi
Aldabergenov Aset
Kudabaev Almat
Зертханалық жұмыс №14
Бір өлшемді массив
А(10) сандық массивінің 0-дік емес элементтерінің көбейтіндісін есептеу керек.
Program togzhan_1;
const N=10;
var A:array[1..n] of real;
S:real;K:integer;
begin
for k:=1 to N do
begin
write('A[',K,']=');
read(A[k]);
end;
begin S:=1;
for k:=1 to N do
if (k<>0) then
S:=S*A[k];
writeln('S=',S);
end;
end.
À[1]=6
A[2]=9
A[3]=12
A[4]=25
A[5]=36
A[6]=48
A[7]=28
A[8]=44
A[9]=65
A[10]=78
S=1.7485474406E+14
Зертханалық жұмыс №15
Жолдық берілгендер.
Символдар қатарында қанша бос орын бар екенін анықтау программасын құру керек.
program togzhan_1;
var a:string [10];
k,n:integer;
begin n:=0;
writeln('text engiz');
readln(a);
for k:=1 to length(a) do
begin
if a[k]=' 'then n:=n+1; end;
writeln('n=',n);
end.
Erty uio po n=2
Ln lg tph n=3
Exp ch true n=5
Зертханалық жұмыс №16
Кітапханаға түскен кітаптар жайлы мәліметтер берілген: Автордың аты-жөні, баспахана аты, шыққан жылы, кітапханаға кітаптардың түскен мерзімі. Соңғы бес жылда кітапханаға «Мир» баспаханасынан түскен кітаптар жайлы мәліметті шығару керек.
Program Aijan;
type Dosye=record
A:string[28];
B:string[10];
C:integer;
D:integer;
end;
Var X:array[1..10] of Dosye;
K,N:Byte; G:char;
begin
For K:=1 to 3 do with X[K] do begin
writeln('FIO'); Readln(A);
Writeln('baspahana'); Readln(B);
Writeln('jyl'); Readln(C);
Writeln('tusken merzim'); Readln(D);
end; Writeln;
write('baspahana ati:'); Readln(G);
N:=0;
Writeln('osi baspahananin kitaptari:');
For K:=1 to 3 do with X[K] do begin
If B=G then writeln(A:28,C,D);
end;
readln;
end.
A.D.Masanov, Atamura, 1991, 1995
J.Dinislamov, Mir, 2004, 2005
B.Boribaev, Rauan, 1993, 1996
Зертханалық жұмыс №17
Стандартты модульдерді пайдалану
Турникке тартылып тұрған адам бейнесін салу.
Program Turnik_Aijan;
Uses Graph;
Var d1,d2:integer;
begin
d1:=Detect;
Initgraph (d1,d2, '');
line(10,20,70,20);
line(20,20,40,40);
line(60,20,40,40);
line(40,40,40,70);
line(40,70,20,90);
line(40,70,60,90);
circle(40,30,5);
Readln;
Closegraph
end.
Зертханалық жұмыс №18
Қосалқы программалар (процедура мен функция)
Процедура мен функцияны пайдалану арқылы төмендегі тапсырмаға бағдарлама құру керек.
Z=7(3x+4y-1)5(3x+4y-1)-2sinx+10
Program AIJAN;
Var x,y,z:real;
Function fn(t,P:real):real;
begin
fn:=3*t+4*P-1;
end;
begin
writeln('x,y');
readln(x,y);
z:=7*fn(x,y)+5/fn(x,y)-2*sin(x)+10;
writeln('z=',z:4:2);
end.
X1=52 Y1=65 Z1=2913.04
X2=-81 Y2=20 Z2=-1139.29
X3=63 Y3=23 Z3=1969.68
Зертханалық жұмыс №19
Жолдық берілгендер
Символдар қатары берілген. Қатардағы мына әріптердің ену санын табу программасын құру керек.
Program Aijan_1;
Var d:string [20];
k,P:integer;
begin P:=0;
writeln ('Text engiz');
readln (d);
For k:=1 to length (d) do
begin
P:=pos('abc',d);
if P<>0 then P:=P+1;
writeln('P=', P);
readln;
end;
end.
Abcervatoria P=1
Зертханалық жұмыс №20
Жолдық берілгендер
Символдар қатарында «+» және «*» символдары қанша рет кездесетінін анықтау программасын құру керек.
Program Aijan_2;
Var d:string [10];
k,n:integer;
begin n:=0;
writeln('Text engiz');
readln(d);
For k:=1 to length (d) do
begin
If (d[k]='+') or (d[k]='*') then n:=n+1;
end;
writeln ('+,* sany-',n);
readln;
end.
12+78+5*8*79=3250
+,* sany-2
Зертханалық жұмыс №21
Паскаль тіліндегі программа структурасымен танысу, өрнектерді жазу ережесін үйрену, меншіктеу, енгізу және шығару операторларын үйрену.
Бер: y=ln5x+tgxx
Программа құру
Program Ornek;
Var x,y:real;
Begin
Readln(x);
y:=ln(5*x)+sin(exp(x*ln(x)))/cos(exp(x*ln(x)));
Write(‘y=’,y);
End.
Мән береміз
5
2
9
Тексереміз
5 у=1.9975922264E+00
2 y=3.6404063754E+00
9 y=2.8812758362E+00
Зертханалық жұмыс №22
Паскаль тіліндегі программа структурасымен танысу, өрнектерді жазу ережесін үйрену, меншіктеу, енгізу және шығару операторларын үйрену.
Бер:y=tg5/3x+ln|2x+5|+1.8.
Программа құру
Program Ornek;
Var x,y:real;
Begin
Readln(x);
y:=sin(5/3*x)/cos(5/3*x)+ln(abs(2*x*5))+1.8;
Write(‘y=’,y);
End.
Мән береміз
2
6
7
Тексереміз
y=4.1913500833E+00
y=5.2815741715E+00
y=3.4850466589E+00
Зертханалық жұмыс №23
Шартты оператор.
Бер:
 , егер -55x3+cosx, егер 0<=x<2
Программа құру
Program esepteu;
Var x,y:real;
Begin
Writeln(‘x engiz’);
Read(x);
If(x>-5) and (x<0) then y:sqrt(sqr(x+abs(x)) else if(x>=0) and
(x<2) then y:=5*sqr(x)*x+cos(x);
Writeln(‘natigeci’);
Writeln(‘y=’,y);
End.
Мән береміз
1
-2
0
Нәтижесі
y=5.5403023059E+00
-2 y=2.4494897428E+00
0 y=9.9999999999E+00
Зертханалық жұмыс №24
Шартты оператор.
Бер: X2sinx+ , егер -1<=x<=1
Tg2x+3.5 , егер x>1
Программа құру
Program esepteu;
Var x,y:real;
Begin
Writeln(‘x engiz’);
Read(x);
If(x=-1) and (x<=1) then
y:=sqr(x)*sin(x)+sqrt(sqr(x)+1.2 else if(x>1) then
y:=sqr(sin(x)/cos(x))+3.5;
Writeln(‘natigesi’);
Writeln(‘y=’,y);
End.
Мән береміз Нәтижесі
0 y=1.0954451150E+00
2 y=8.2743992040E+00
6 y=3.5846846034E+00.
Достарыңызбен бөлісу: |
