Помогите пожалуйста,очень нужно. Заранее спасибо. Смотрите приложение. Задания по ту Турбо Паскаль.

+ 0 -

Klochko1

10 нояб. 2014 г., 9:02:03 (9 лет назад)

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 (y>=0) and (y>=-x+2) and (x*x+y*y<=9) and (y<=exp((1/2)*ln(abs(x)))) then
    begin
      writeln('Точка (',x,',',y,') попадает в заштрихованную область ');
    end
  else
    writeln('Точка (',x,',',y,') HE попадает в заштрихованную область ');
end.

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

Program DX3;
uses crt;
procedure click(x:real;var y:real);
begin
  if x<0 then
      y:=1-exp(3*ln(abs(sin(x))))
    else
      y:=exp(-x);
end;
var
  max,min,sum,temp: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  click(-0.5,min);
  click(-0.5,max);
  sum:=0;
  for i:=-5 to 5 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 n = 10;
const m = 15;
var
  a:array [1..n] of integer;
  b:array [1..m] of integer;
  c:array [1..n+m] of integer;
  k,t,i,j,max: integer;
begin
  {заполняем массивы случайными числами}
  randomize;
  writeln('Массив А:');
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write(a[i],' ');
    end;
  writeln();
  writeln('Массив В:');
  for j:=1 to m do
    begin
      b[j]:=random(101)-50;
      write(b[j],' ');
    end;
  writeln();
{сливаем два массива в один}
  for i:=1 to n do c[i]:=a[i];
  for j:=1 to m do c[j+n]:=b[j];
{сортируем по убыванию}
  k:=n+m;
  for i:=1 to k-1 do
    begin
      t:=i;
      max:=c[i];
      for j:=i+1 to k do
        if c[j]>max then
          begin
            max:=c[j];
            t:=j;
          end;
      c[t]:=c[i];
      c[i]:=max;
    end;
{выводим результат}
  writeln('Массив C:');
  for i:=1 to k do
    write(c[i]:4);
  readln;
end.