На сортировку / 2 / 1 курс / 3.Информатика / Информатика / 1program Шынгыс
.docx
1program aibol1; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x='); read(x); if x>5 then y:=(sqr(2*x+5)+exp(1/3*ln(x))) else if x<=5 then y:=((5*sqr(x)-7)/(exp(3*ln(x))+2*sqr(x)+1)); writeln ('y=', y:9:3); end. |
|
2. program aibol2; uses crt; var a,b,c:integer; S:real; begin clrscr; writeln ('engiziniz a,b,c'); read(a,b,c); S:=1/2*a*b*sin(c); writeln('S=', S:3:3); end. |
|
3. program aibol3; uses crt; var a:array [1..20] of real; s,sa:real; i,k:integer; begin clrscr; for i:=1 to 20 do read(a[i]); s:=0; k:=0; for i:=1 to 20 do if a[i]>0 then begin s:=s+a[i]; k:=k+1; end; sa:=s/k; writeln('sa=',sa:3:3); end. |
|
4.program aibol4; var y,x:real; begin writeln ('x-ti engiz'); read (x); Y:=ln(x+1)/(exp(1/3*ln(2*(x)+5))+sqrt(5-2*(x))); writeln ('Y=',Y:6:3); end. |
|
5.program aibol5; var i:integer; s:real; begin for i:=1 to 20 do begin s:=s+(1/i); writeln ('i=',i:2, 'S=',S:6:3); end; end. |
|
6.program aibol6; var n,y:real; begin write ('n-di engiz'); read (n); y:=sqrt(2*(n-1)+sqrt(2*n)); writeln ('y=', y:6:3); end. |
|
7.program aibol7; var a:array[1..5,1..5] of real; s,p:real; i,j:integer; begin for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]); p:=1; if (i=j) then p:=p*(a[i,j]); begin for i:=1 to 5 do for j:=1 to 5 do s:=0; if (i<j) and (i>j) then s:=s+(a[i,j]); writeln('p=', p:6:3); writeln('s=', s:6:3); end; end. |
|
8.program aibol8; var a:array[1..5,1..4] of real; k:integer; i,j:integer; begin for i:=1 to 5 do for j:=1 to 4 do read(a[i,j]); k:=0; if (a[i,j])>=-3 then k:=k+1; if (a[i,j])<=3 then k:=k+1; writeln('k=', k); end. |
9. program aibol9; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x='); read(x); if x<=0 then y:=cos(x*sqrt(abs(x+2))) else if (x>0) and (x<1) then y:=sin(x)/cos(x)-sqr(sin(x)) else if x>=1 then y:=3*x*sqrt(x); writeln ('y=', y:3:3); end. |
||
10. program aibol10; uses crt; var i:integer; s:real; begin clrscr; s:=0; while i<=20 do begin read(i); s:=s+(1/i); writeln ('i=',i:2, 'S=',S:6:3); end; end. |
||
11. program aibol11; uses crt; var i:integer; y:real; begin clrscr; for i:=1 to 10 do begin y:=sqrt(2*(i-1)+sqrt(2*i)); writeln ('i=',i:2,'y=', y:6:3); end; end. |
||
12. program aibol12; uses crt; type T=array[1..3,1..4] of real; var A:T; i,j,k:integer; begin clrscr; for i:=1 to 3 do for j:=1 to 4 do read(a[i,j]); for i:=1 to 3 do begin k:=0; for j:=1 to 4 do if (a[i,j])>0 then k:=k+1; writeln('b',i,'on elementterdin sany k=',k); end; end. |
||
13. program aibol13; uses crt; var a:array[1..5,1..5] of real; i,j:integer; p,s:real; begin clrscr; for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]); P:=1; for i:=1 to 5 do for j:=1 to 5 do if (i=j) then p:=p*a[i,j]; begin s:=0; for i:=1 to 5 do for j:=1 to 5 do if i<j then s:=s+a[i,j]; begin s:=0; for i:=1 to 5 do for j:=1 to 5 do if i>j then s:=s+a[i,j]; writeln('p=',p:9:3,'s=',s:9:3); end; end; end.
|
||
14. program aibol10; uses crt; var i:integer; s:real; begin clrscr; s:=0; repeat begin read(i); s:=s+(1/i); writeln ('i=',i:2, 'S=',S:6:3); end; until i<20 end. |
||
15. program aibol15; var i:integer; p:real; begin for i:=1 to 20 do begin p:=1; p:=p*(1/i); writeln ('i=',i:2,'p=',p:6:3); end; end. |
||
16. program aibol16; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x'); read(x); if x<=0 then y:=cos(x*sqrt(abs(x+2))) else if (x>0) and (x<1) then y:=sin(x)/cos(x)-sqr(sin(x)) else if x>=1 then y:=3*x*sqrt(x); writeln ('y=', y:3:3); end. |
||
17. program aibol3; uses crt; var a:array [1..20] of real; s:real; i,k:integer; begin clrscr; for i:=1 to 20 do read(a[i]); s:=0; for i:=1 to 20 do if a[i]>0 then s:=s+a[i]; begin k:=0; for i:=1 to 20 do if a[i]<0 then k:=k+1; end; writeln('k=',k:2,'s=',s:3:3); end. |
||
18. program aibol18; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x='); read(x); if x<0 then y:=x+5 else if (x>=0) and (x<=1) then y:=sqr(x)-1 else if x>3 then y:=exp(x-3); writeln ('y=', y:9:3); end. |
||
19. program aibol19; uses crt; var y,x:real; begin clrscr; x:=4; Y:=10-(3*sqr(x))/2+1/sqrt(x); writeln ('Y=',Y:6:3); end. |
||
20. program aibol20; uses crt; var y,a,b:real; begin clrscr; a:=4;b:=6; Y:=7*cos(a)/(sqrt(abs(5*a+2*b)))-sqr(sin(5*a+2*b))/exp(cos(a)); writeln ('Y=',Y:6:3); end. |
||
21. program aibol21; var a:array[1..5,1..6] of real; s:real; i,j:integer; begin for i:=1 to 5 do for j:=1 to 6 do read(a[i,j]); s:=0; if (a[i,j])>=0 then s:=s+a[i,j]; if (a[i,j])<=10 then s:=s+a[i,j]; writeln('s=', s:6:3); end. |
||
22. program aibol22; uses crt; var a,b,c:integer; S:real; begin clrscr; writeln ('engiziniz a,b,c'); read(a,b,c); S:=1/2*a*b*sin(c); writeln('S=', S:3:3); end. |
||
23. program aibol23; uses crt; var i:integer; s:real; begin clrscr; s:=0; while i<=20 do begin read(i); s:=s+(1/i); writeln ('i=',i:2, 'S=',S:6:3); end; end. |
||
24. program aibol24; uses crt; var i,n:integer; p:real; begin clrscr; p:=1; i:=1; repeat p:=p*((2*i-1)/2*i); writeln ('i=',i:2, 'p=',p:6:3); i:=i+1; until i>n end. |
||
25. program aibol25; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x='); read(x); if x<=-3 then y:=abs(2*x-7) else if (x>-3) and (x<=0) then y:=5*sqr(x+1)+5*(x+2) else if x>0 then y:=exp(-4*x)-7*x; writeln ('y=', y:9:3); end. |
||
26. program aibol26; uses crt; var i:integer; s:real; begin clrscr; s:=0; for i:=1 to 20 do begin s:=s+(1/i); writeln ('i=',i:2, 'S=',S:6:3); end; end. |
||
27. program aibol27; uses crt; var x:integer; y:real; begin clrscr; write('engiziniz x='); read(x); if x<0 then y:=21-x else if (x>=0) and (x<=2) then y:=21+x else if x>2 then y:=8; writeln ('y=', y:9:3); end. |
||
28. program aibol28; uses crt; var a:array[1..5,1..5] of real; i,j:integer; p,s:real; begin clrscr; for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]); P:=1; for i:=1 to 5 do for j:=1 to 5 do if (i=j) then p:=p*a[i,j]; begin s:=0; for i:=1 to 5 do for j:=1 to 5 do if i<j then s:=s+a[i,j]; begin s:=0; for i:=1 to 5 do for j:=1 to 5 do if i>j then s:=s+a[i,j]; writeln('p=',p:9:3,'s=',s:9:3); end; end; end.
|
||
29. program aibol29; uses crt; var z,x,y:real; begin clrscr; x:=2;y:=3; z:=(x*sin(x)-cos(x)/exp(y*ln(x))+sqrt(abs(exp(y*ln(x))-x*sin(x)))); writeln ('z=',z:6:3); end. |
||
30. program aibol30; uses crt; var i,n:integer; p:real; begin clrscr; p:=1; i:=1; repeat p:=p*((2*i-1)/2*i); writeln ('i=',i:2, 'p=',p:6:3); i:=i+1; until i>n end. |
||
31. program aibol31; uses crt; var i:integer; y:real; begin clrscr; for i:=1 to 10 do begin y:=sqrt(2*(i-1)+sqrt(2*i)); writeln ('i=',i:2,'y=', y:6:3); end; end. |
||
32. program aibol32; uses crt; var a,b,c:integer; S:real; begin clrscr; writeln ('engiziniz a,b,c'); read(a,b,c); S:=1/2*a*b*sin(c); writeln('S=', S:3:3); end. |