Var a : array [1..3] of array [1..3] of integer;
i,j : shortint;
c1,c2,s1,s2 : integer;
begin
a[1][1]:=-10;
a[1][2]:=20;
a[1][3]:=13;
a[2][1]:=-22;
a[2][2]:=11;
a[2][3]:=-5;
a[3][1]:=4;
a[3][2]:=12;
a[3][3]:=-8;
s1:=0; s2:=0; c1:=0; c2:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i][j]>0 then begin
s1:=s1+a[i][j];
inc (c1);
end else begin
s2:=s2+a[i][j];
inc (c2);
end;
end;
end;
writeln (s1/c1:0:0);
<span> writeln (s2/c2:0:2);
</span>end.
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
<em><u /></em><u />Версия языка не указана, поэтому сделал в самой последней и в самой старой, которая нашлась.<em><u>
// PascalABC.Net 3.0</u></em>
function F(a, b, x: double):= (1 + Power(a, x)) / ((b - x) * Power(sin(x), 3));
const
a = 3.45; b = 1.62;
var
x := 0.1; xe := 3.1; h := 0.15;
y, xn, yn, xp, yp: double;
begin
yp := MaxDouble; yn := yp;
repeat
y := F(a, b, x);
if y > 0 then
begin if y < yp then begin yp := y;xp := x end end
else
if y < 0 then
begin if y < yn then begin yn := y;xn := x end end;
x += h;
until x > xe;
Writeln('Минимальное отрицательное ', yn, ' при х=', xn);
Writeln('Минимальное положительное ', yp, ' при х=', xp)
end.
<em><u>Тестовое решение:</u></em>
Минимальное отрицательное -446219.37704747 при х=3.1
Минимальное положительное 11.837734702392 при х=0.85
<em><u>{ Borland Pascal 7.01 }</u></em>
{$G+} {$N+}
uses Crt;
function F(a,b,x:double):double;
begin
F:=(1+exp(x*ln(a)))/((b-x)*exp(3*ln(sin(x))))
end;
const
a = 3.45; b = 1.62;
var
x,xe,h,y,xn,yn,xp,yp:double;
begin
ClrScr;
x := 0.1; xe := 3.1; h := 0.15;
yp := 1E308; yn := yp;
repeat
y := F(a, b, x);
if y > 0 then
begin if y < yp then begin yp := y; xp := x end end
else
if y < 0 then
begin if y < yn then begin yn := y; xn := x end end;
x := x + h;
until x > xe;
Writeln('Минимальное отрицательное ', yn, ' при х=', xn);
Writeln('Минимальное положительное ', yp, ' при х=', xp);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Минимальное отрицательное -4.46219377047470E+0005 при х= 3.10000000000000E+0000
Минимальное положительное 1.18377347023920E+0001 при х= 8.50000000000000E-0001