Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
26
Добавлен:
20.02.2017
Размер:
119.24 Кб
Скачать

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.