Writeln('S=', S:5:3, 'AK=', AK:6:3);
end.
X1=3 n1=1 S1=4.964 AK1=2.232
X2=6 n2=2 S2=6.399 AK2=2.949
X3=1 2 n3=45 S3=12.226 AK3=3.797
Зертханалық жұмыс №32
3.
Program esep_3;
Var x,S,AK:real; n:integer;
begin
writeln ('x pen n engiz');
read (x,n);
S:=0; n:=1;
repeat
AK:=1+sqrt(abs(x))+exp(3*ln(x))/n;
S:=S+AK;
n:=n+1;
Until abs(AK)
Writeln ('S=', S:5:2, 'AK=', AK:6:3);
end.
X1=8 n1=7 S1=2049.48 AK1=24.308
X2=5 n2=3 S2=439.59 AK2=12.851
X3=15 n3=23 S3=16147.14 AK3=60.201
Зертханалық жұмыс №33
Бір өлшемді массивпен жұмыс
Егер А (10) массивінде ең соңғы элементтің
квадратына тең элемент бар болса, онда онан
кейін орналасқан элементтерді квадраттаудың,
ал кері жағдайда массивті өзгеріссіз
қалдырудың программасын құру керек.
Program Aijan_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
For k:=1 to N do
If A[k]=sqr(A[k]) then A[k]:=sqr(A[k])
else
begin
For k:=1 to N do
S:=A[k];
writeln('S=', S);
end;
end;
end.
A[1]=12 A[2]=54 A[3]=8 A[4]=64 A[5]=21 A[6]=15 A[7]=13 A[8]=18
A[9]=7 A[10]=23
S=2.3000000000E+01
Зертханалық жұмыс №34
Бір өлшемді массивпен жұмыс
А (20) массиві берілген. Массив
мүшелерінің арифметикалық ортасын
табу керек.
Program Aijan_2;
Const N=20;
Var A:Array [1..N] of real;
S:real; k:integer;
begin
For k:=1 to N do
begin
write('A[', k, ']=');
readln(A[k]);
end;
begin
S:=0;
For k:=1 to N do
S:=(S+A[k])/N;
Writeln('S=', S);
end;
end.
A[1]=15 A[6]=25 A[11]=34 A[16]=14
A[2]=45 A[7]=96 A[12]=8 A[17]=91
A[3]=47 A[8]=31 A[13]=23 A[18]=69
A[4]=56 A[9]=63 A[14]=22 A[19]=89
A[5]=82 A[10]=20 A[15]=64 A[20]=90
S=4.7316991431E+00
Зертханалық жұмыс №35
Екі өлшемді массивтер.
Элементтері бүтін сандардан тұратын А квадрат матрицасында бас диагональдан төмен орналасқан элементтерден бір өлшемді В массивін, одан жоғары орналасқан элементтерден бір өлшемді С массивін, ал бас диагональда орналасқан элементтерден бір өлшемді D массивін құрып экранға шығару.
Program Aijan_massiv;
Const N=4; M=N;
Var A:array[1..N,1..M] of integer;
K,I,P,T,S:integer;
B,C,D:Array[1..N*M] of 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
For I:=1 to M do
If K>I then begin P:=P+1; B[P]:=A[K,I] end
Else if K
Else Begin S:=S+1; D[S]:=A[K,I] End;
Writeln('Jana massivter:');
Write('B massivi:');
For K:=1 to P do Write(B[K]:4);
Writeln;
Write('C massivi:');
For K:=1 to T do Write (C[K]:4);
writeln;
Write('Zhana D massivi:');
For K:=1 to S do write (D[K]:4);
Readln;
Readln End.
12 45 78 65 Jana massivter:
35 10 67 24 B massivi: 35,29,22,17,96,64
29 22 20 16 C massivi: 45,78,65,67,24,16
17 96 64 33 Zhana D massivi: 12,10,20,33
Зертханалық жұмыс №36
А[3,3] массиві берілген. Кері диагональдан жоғары орналасқан элементтердің арасынан ең үлкенін табу керек.
Program Aijan_massiv2;
Const n=3;
Const m=3;
Var A:array[1..n,1..m] of integer;
max:integer; i,j:integer;
begin
write('ilamant engiz');
for i:=1 to n do;
for j:=1 to m do
begin read(A[i,j]);
write ('A[',i,j,']=');
end;
begin
for i:=1 to n-1 do
for j:=1 to m-1 do
begin
a[1,1]:=max;
if a[i,j]>max then
max:=a[i,j];
write(A[i,j]:4);
writeln;
end;
end;
end.
12 85 95
74 57 21 A[1,2]=85
64 52 13
Зертханалық жұмыс №37
№1. Массасы 5 г дене түзу сызықты қозғалғандығы жылдамдық уақыты берілген. Денеге әсер етуші күшті тап.
Программасы:
10. Rem
20. Read m, z1, z2, t
30. Let F=(m*(z1-z2))/t
40. Print “F=”;F
50. End
Run F5. Enter
№2. 1-ден 15-ке дейінгі барлық полиндром сандардың тізімін басып шығаратын программа құр (полиндром сан деп кері оқығанда да сол санға тең сан, яғни берілген есеп үшін бірінші және үшінші цифрлары тең сандар).
Программасы:
Program Polindrom;
Var a, b, c, P1: integer;
Begin
For a:=1 to 15 do
For c:=0 to 15 do
For b:=1 to 15 do
Begin
P1:=a*100+b*10+c;
If a=c then write (P1:5);
End.
№3. Массивтің элементтерінің 1-ден 7-ге дейінгі қосындысын тап:
Программасы:
Program ma;
Const n=7;
Type m1=array [1…n] of real;
Var a:m1; k: integer; S: real;
begin
for k:=1 to n do
begin read (a[1,...7]);
end;
S:=ø
for k:=1 to n do
if a[k]>0 then S:=S+a[k];
Write (S);
End.
№4 Мына өрнекті есептеп программасын құр? Q=(1+12/f*d*g).
Программасы:
10. Rem
20. Input Q, f, d, g
30. Q=(1+12/f*d*g).
40. Print “d=”;d
50. End.
№5 Тиын ақшаны n рет лақтырғанда цифр жағымен түсу жиіліктігін жуық шамамен анықтау программасын құрыңыз?
Программасы:
Program G; uses ctr;
{жиіліктік}
Label 10;
Var n, m, k, r: integer; W: real;
Begin clrscr;
10: Write (‘n=?’); readln (n); m:=0;
For k:=1 to n do
Begin r:=round(random)
If r:=1 then m:=m+1;
end; W:=m/n;
Writeln(n; сынақта сифр көрінуі-? , m ‘, рет’);
Writeln(‘бос орын клавишын бас’);
Repeat until (key pressed); goto 10
End.
№6 S1, V1 жылдамдықпен ағып жатқан өзеннен судың ағысына қатысты V2 жылдамдықпен қарсы жағаға қайықпен ағысқа перпендикуляр бағытта жүзіп өту үшін қанша уақыт кетеді? t=S/V өтуге кеткен уақыт формуласы.
10. Rem
20. Input S,V1,V2
30. S=80
40. If V1>V2 then 90
50. V=Sqr(V2^2-V1^2)
60. t=S/V
70. Print “t=”;t
80. Stop
90. Print “қайық қарсы жағаға өте алмайды”
100. End.
№7 Жазық бетте жатқан денеге горизонталь бағытта күш әсер етеді. Осы күштің әсерінен t - секунтта дене қанша жол жүреді?
10. Rem
20. Input M, F, k, t
30. If F>9.8*k*M then A=(F-9.8*k*M)/M
40. S=A*(t^2)/2 else S=0
50. Print “S=”;S
60. End.
№8 25м мыс. Сымның массасы 100,7г. Сымның диаметрін табыңдар?
L=2500 m=100.7 p=8.94 v=m/p d=Sqr((4*v)/(p*L))
10. Rem
20. Input L, M, R
30. v=mirIf F>9.8*k*M then A=(F-9.8*k*M)/M
40. d=Sqr((4*v)/(p*L))
50. Print “d=”;d
60. End.
№9 Ұжымдық мекемеде дипломы бар азаматқа жұмыс ұсыну процесі жүруде. Оған мамандарды ретімен қабылдайды. Программасын құр?
Program ds;
Var x, y, z, m: real;
Begin read(x, y, z);
If x>0 then writeln (‘m=’, жұмысқа қабылдау);
Else Writeln(‘y=’, жұмысқа қабылдамау);
If y>3.5 then writeln (‘m:=’, инженер конструктор);
Else Writeln(‘m :=’, ғылыми қызметкер);
If z>2 then writeln (‘m:=’, инженер қызметін ұсыну);
Else Writeln(‘m :=’, жұмысқа қабылдамау);
End.
Достарыңызбен бөлісу: 
