Помогите пожалуйста девушке решить 4 задачки.

[Milena]

1. Даны действительные числа х, у. Определить, принадлежит ли точка с координатами х, у заштрихованной части плоскости

2. Даны действительные числа a1, b1, c1, а2, b2, c2. Выяснить, верно ли, что , и если верно, то найти решение системы линейных уравнений (при выполнении выписанного неравенства система заведомо совместна и имеет единственное решение).
3. Даны натуральное число n, действительная матрица размера nх9. Найти среднее арифметическое каждого из столбцов.
4. Получить квадратную матрицу порядка n:


Всё нужно решить на Turbo Pascal. Буду очень благодарна тому кто сделает всё это.

[maladoy]

1

program xy;
uses crt;
var x,y:real;
begin
Writeln('vvedite x');
readln(x);
writeln('vvedite y');
readln(y);
if (abs(x)<1) and (abs(y)<1) then
writeln('To4ka c koopDuHaTaMu ',x:4:4,',',y:4:4,'npuHaD/Ie}I{uT')
else writeln('HE npuHaD/Ie}I{uT ');
readln;
end.

[capta1n]

program capta1n;
const
 n = 2;
var
 a : array[1..n,1..9] of integer;
 sred : array [1..9] of real;
 sum : integer;
 i,k : byte;
begin

  randomize;
  writeln ('Vash massiv: ');
  for i:=1 to n do
  begin
    for k:=1 to 9 do
    begin
      a[i,k]:=random(10);
      write (a[i,k],'|')
    end;
    writeln
  end;

  for k:=1 to 9 do
  begin
    sum:=0;
    for i:=1 to n do sum:=sum+a[i,k];
    sred[k]:=sum/n
  end;

  for k:=1 to 9 do writeln (k,' stolbec: sred= ',sred[k]:0:2);

  readln;

end.

[capta1n]

2 и 4 задачи не понял условие

[Milena]

maladoy, capta1n Спасибо вам огромное.
Вот так 2 и 4 задачки выглядят в Word, может я что-то не так переписала...

Там ещё две может и их решите пожалуйста.

[maladoy]

7

program seven;
uses crt;
var a,dx,z,x :real;
    k:integer;
begin
 a:=1.2;
 x:=1;
 dx:=0.5;
k:=1;
repeat
 z:=(a+sqrt(a*sqr(x)*x+x))/sin(x)+3;
 writeln('x=',x:4:2,' z=',z:4:4,' k=',k);
 k:=k+1;
 x:=x+dx;
 until (a*sqr(x)*x+x)>=250;
readln;
end.

[maladoy]

6

program six;
uses crt;
var a,dx,y,x :real;
begin
 a:=2.37;
 x:=1;
 dx:=0.2;
repeat
 y:=ln(1/3*exp(x*x-ln(sqrt(a*x))/ln(10)))/a*x;
 writeln('x=',x:4:2,' y=',y:4:4);
 x:=x+dx;
 until x>3.2;
readln;
end.

[Роман Радер]

Сообщение от Milena

Вот так 2 и 4 задачки выглядят в Word, может я что-то не так переписала...

а копировать не пробовали?
1) Выделили текст
2) Ctrl+C
3) перешли на форум, пишем сообщение
4) Ctrl+V в поле для ввода
5) готово!

[Milena]

maladoy спасибо ещё раз.

Сообщение от Роман Радер

а копировать не пробовали?
1) Выделили текст
2) Ctrl+C
3) перешли на форум, пишем сообщение
4) Ctrl+V в поле для ввода
5) готово!

я думала может чё не так написала, поэтому и выложила Word.