Ответы и объяснения

Лучший Ответ!
2013-06-08T21:57:23+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

(во вложении - картинка к первому заданию)


Program XY1;
uses crt;
var
  x,y: real;
begin
  writeln('Введите координаты точки:');
  write('X='); readln(x);
  write('Y='); readln(y);
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  if (x>=0) and (y>=(-1/2)*x-1) and (x*x+y*y<=9) and (x*x+y*y>=4) and (y<=x*x) then
    begin
      writeln('Точка (',x,',',y,') попадает в заштрихованную область ');
    end
  else
    writeln('Точка (',x,',',y,') HE попадает в заштрихованную область ');
end.

Program NX2;
uses crt;
var
  y: real;
  n,i,fact:integer;
begin
  writeln('Введите число N:');
  write('N='); readln(n);
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  y:=1;
  fact:=1;
  for i:=1 to n do
    begin
      fact:=fact*i;
      y:=y*(1/fact+(i*i)/(i*i+2*i+3));
    end;
  writeln('Произведение равно ',y);
end.

Program DX3;
uses crt;
procedure click(x:real;var y:real);
begin
  if x<0 then
      y:=power(x,3)-sin(x)
    else
      y:=power((sin(x+pi)/cos(x+pi)),2);
end;
var
  max,min,sum,temp: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  click(-1,min);
  click(-1,max);
  sum:=0;
  for i:=-10 to 10 do
    begin
      click(i/10,temp);
      if min>temp then min:=temp;
      if max<temp then max:=temp;
      sum:=sum+temp;
      writeln('x=',i/10:5:1,'    y=',temp:6:3);
    end;
  writeln('Минимальное значение функции на отрезке: ',min:6:3);
  writeln('Максимальное значение функции на отрезке: ',max:6:3);
  writeln('Среднее значение функции на отрезке: ',sum/11:6:3);
end.


Program MAS4;
uses crt;
const m = 3;
const n = 4;
const p = 2;
var
  a:array[1..m,1..n] of integer; {начальная матрица А}
  b:array[1..p,1..n] of integer; {начальная матрица В}
  t:array[1..n,1..p] of integer; {транспонированная матрица Т}
  c:array[1..m,1..p] of integer; {результат - матрица С}
  i,j,k: integer;
begin
  {заполняем матрицы случайными числами}
  randomize;
  writeln('Массив А:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:3,' ');
        end;
      writeln();
    end;
  writeln('Массив В:');
  for k:=1 to p do
    begin
      for j:=1 to n do
        begin
          b[k,j]:=random(101)-50;
          write(b[k,j]:3,' ');
        end;
      writeln();
    end;
  {транспонируем матрицу В - получаем матрицу Т}
  for j:=1 to n do
    begin
      for k:=1 to p do
        begin
          t[j,k]:=b[k,j];
        end;
    end;
{умножаем матрицу А на Т}
   for i:=1 to m do
     for k:=1 to p do
       begin
         c[i,k] := 0;
         for j:=1 to n do
           c[i,k]:=c[i,k] + a[i,j] * t[j,k];
        end;
{выводим результат}
  writeln('Массив C:');
  for i:=1 to m do
    begin
      for k:=1 to p do
        begin
          write(c[i,k]:4);
        end;
      writeln();
     end;
end.