Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
program west_side1;
uses crt;
var x,y:real;
begin
clrscr;
write('x=');
read(x);
if x>5 then y:=sqr(2*x+5)+exp(1/3*ln(x))
else y:=(5*sqr(x)-7)/(x*x*x+2*sqr(x)+1);
writeln('Y=',y:2:2);
end.
program west_side2;
uses crt;
var a,b,c,S:real;
begin
clrscr;
writeln('a,b,c engiz');
readln(a,b,c);
S:=0.5*a*b*sin(3.14*c/180);
writeln('S=',S:4:2);
end.
program west_side3;
uses crt;
var a:array[1..20] of real;
s,k,y:real; i:integer;
begin clrscr;
s:=0; k:=0;
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
if a[i]>0 then s:=s+a[i];
for i:=1 to 20 do
if a[i]>0 then k:=k+1;
y:=s/k;
writeln('arifm. ortasi = ',y:4:2);
end.
program west_side4;
uses crt;
var y,x:real;
begin clrscr;
write('x=');
read(x);
y:=ln(x+1)/(exp(1/3*ln(2*x+5))+sqrt(5-2*x));
write('Y=',y:4:2);
end.
program west_side5;
uses crt;
var s,k:real; i,n:integer;
begin clrscr;
s:=0;
write('n=');
read(n);
for i:=1 to n do
s:=s+1/i;
write('S=',s:4:2);
end.
program west_side6;
uses crt;
var n,k:integer; y:real;
begin
clrscr;
write('n=');
read(n);
y:=0;
for k:=n downto 1 do
y:=sqrt(y+2*k);
writeln('y=',y:4:2);
end.
program west_side7;
uses crt;
var i,j:integer; a:array[1..5,1..5] of real;
kob,s:real;
begin
clrscr;
kob:=1;
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then kob:=kob*a[i,j] else s:=s+a[i,j];
writeln ('bas diagonal kob=',kob:4:2);
writeln ('kalgan element kos=',s:4:2);
end.
program west_side8;
uses crt;
var i,j,k:integer;
a:array[1..5,1..4] of real;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 4 do
read(a[i,j]);
k:=0;
for i:=1 to 5 do
for j:=1 to 4 do
if (a[i,j]>=-3) and (a[i,j]<=3) then k:=k+1;
write ('k=',k);
end.
program west_side9;
uses crt;
var y,x:real;
begin
clrscr;
write('x=');
read(x);
if x<=0 then y:=cos(x*sqrt(abs(x+2)))
else if (0<x) and (x<1) then y:=sin(x)/cos(x)-sqr(sin(x))
else y:=3*x*sqrt(x);
write('Y=',y:2:2);
end.
program west_side10;
uses crt;
var s:real; i,n:integer;
begin
clrscr;
write('n=');
read(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
write('S=',s:4:2);
end.
program west_side11;
uses crt;
var n,k:integer; y:real;
begin
clrscr;
write('n=');
read(n);
y:=0;
for k:=n downto 1 do
y:=sqrt(y+2*k);
writeln('y=',y:4:2);
end.
program west_side12;
uses crt;
var i,j,k:integer; a:array[1..3,1..4] of real;
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 ('v ',i ,' stroke K=',k);
end;
end.
program west_side13;
uses crt;
var i,j:integer; a:array[1..5,1..5] of real;
kob,s:real;
begin
clrscr;
kob:=1;
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then kob:=kob*a[i,j] else s:=s+a[i,j];
writeln ('bas diagonal kob=',kob:4:2);
writeln ('kalgan element kos=',s:4:2);
end.
program west_side14;
uses crt;
var s:real; i,n:integer;
begin clrscr;
write('n=');
read(n);
s:=0;
i:=1;
repeat
s:=s+1/i;
i:=i+1;
until i>n;
write('S=',s:4:2);
end.
program west_side15;
uses crt;
var s:real; i,n:integer;
begin clrscr;
write('n=');
read(n);
s:=1;
for i:=1 to n do
s:=s*1/i;
write('S=',s:4:2);
end.
program west_side16;
uses crt;
var y,x:real;
begin clrscr;
write('x=');
read(x);
y:=ln(x+1)/(exp(1/3*ln(2*x+5))+sqrt(5-2*x));
write('Y=',y:4:2);
end.
program west_side17;
uses crt;
var b:array[1..20] of real;
s,k,y:real; i:integer;
begin clrscr;
s:=0;
k:=0;
for i:=1 to 20 do
read(b[i]);
begin
for i:=1 to 20 do
if b[i]<0 then s:=s+1;
for i:=1 to 20 do
if b[i]>0 then k:=k+b[i];
writeln('S=',s:4:2,' K=',k:4:2);
end;
end.
program west_side18;
uses crt;
var y,x:real;
begin clrscr;
write('x=');
read(x);
if x<0 then y:=x+5
else if (0<=x) and (x<=3) then y:=sqr(x)-1
else y:=exp(x-3);
write('Y=',y:4:2);
end.
program west_side19;
uses crt;
var x,y:real;
begin clrscr;
x:=4;
y:=10-3*sqr(x)/2+1/sqrt(x);
writeln('Y=',y:4:2);
end.
program west_side20;
uses crt;
var a,b,y: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:2:2);
end.
program west_side21;
uses crt;
var a:array[1..5,1..6] of real;
i,j:integer; k:real;
begin clrscr;
for i:=1 to 5 do
for j:=1 to 6 do
read(a[i,j]);
k:=0;
for i:=1 to 5 do
for j:=1 to 6 do
if (0<=a[i,j]) and (a[i,j]<=10) then k:=k+a[i,j];
write('K=',k:4:2);
end.
program west_side22;
uses crt;
var a,b,c,S:real;
begin
clrscr;
writeln('a,b,c engiz');
readln(a,b,c);
S:=0.5*a*b*sin(3.14*c/180);
writeln('S=',S:4:2);
end.
program west_side23;
uses crt;
var s:real; i,n:integer;
begin
clrscr;
write('n=');
read(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
write('S=',s:4:2);
end.
program west_side24;
uses crt;
var s:real; i,n:integer;
begin clrscr;
write('n=');
read(n);
s:=1;
i:=1;
repeat
s:=s*(2*i-1)/(2*i);
i:=i+1;
until i>n;
write('S=',s:2:2);
end.
program west_side25;
uses crt;
var y,x:real;
begin clrscr;
write('x=');
read(x);
if x<=-3 then y:=abs(2*x-7)
else if (-3<x) and (x<=0) then y:=5*sqr(x+1)+5*(x+2)
else y:=exp(-4*x)-7*x;
write('Y=',y:4:2);
end.
program west_side26;
uses crt;
var s,k:real; i,n:integer;
begin clrscr;
s:=0;
write('n=');
read(n);
for i:=1 to n do
s:=s+1/i;
write('S=',s:4:2);
end.
program west_side27;
uses crt;
var y,x:real;
begin clrscr;
write('x=');
read(x);
if x<0 then y:=21-x
else if (0<=x) and (x<=2) then y:=21+x
else y:=8;
write('Y=',y:4:2);
end.
program west_side28;
uses crt;
var i,j:integer; a:array[1..5,1..5] of real;
kob,s:real;
begin
clrscr;
kob:=1;
s:=0;
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then kob:=kob*a[i,j] else s:=s+a[i,j];
writeln ('bas diagonal kob=',kob:4:2);
writeln ('kalgan element kos=',s:4:2);
end.
program west_side29;
uses crt;
var x,y,z:real;
begin clrscr;
x:=2;
y:=3;
z:=(x*sin(x)-cos(x))/(exp(y*ln(x))+ln(x))+sqrt(abs(exp(y*ln(x))-x*sin(x)));
writeln('Z=',z:4:2);
end.
program west_side30;
uses crt;
var s:real; i,n:integer;
begin clrscr;
write('n=');
read(n);
s:=1;
i:=1;
repeat
s:=s*(2*i-1)/(2*i);
i:=i+1;
until i>n;
write('S=',s:2:2);
end.
program west_side31;
uses crt;
var n,k:integer; y:real;
begin
clrscr;
write('n=');
read(n);
y:=0;
for k:=n downto 1 do
y:=sqrt(y+2*k);
writeln('y=',y:4:2);
end.
program west_side32;
uses crt;
var a,b,c,S:real;
begin
clrscr;
writeln('a,b,c engiz');
readln(a,b,c);
S:=0.5*a*b*sin(3.14*c/180);
writeln('S=',S:4:2);
end.