Зертханалыќ жўмыс №4



жүктеу 0,54 Mb.
бет5/5
Дата21.12.2017
өлшемі0,54 Mb.
#5287
түріПрограмма
1   2   3   4   5

Зертханалық жұмыс №31

2.
Program esep_2;

Var x,S,AK:real; n:integer;

begin

writeln('x pen n engiz');



read(x,n);

S:=0; n:=1;

repeat

AK:=1/n+sqrt(abs(x));



S:=S+AK;

n:=n+1;


Until abs(AK)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

Екі өлшемді массивтер.


  1. Элементтері бүтін сандардан тұратын А квадрат матрицасында бас диагональдан төмен орналасқан элементтерден бір өлшемді В массивін, одан жоғары орналасқан элементтерден бір өлшемді С массивін, ал бас диагональда орналасқан элементтерден бір өлшемді 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.





жүктеу 0,54 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5




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

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау