На сортировку / 2 / 1 курс / 3.Информатика / Экзамен / program aibol1
.docxprogram 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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.