Определить какая из точек находится ближе к началу координат(алгоритм ветвления).

[Rakfeller]

1. Даны две точки А(x1,y1) и B(x2,y2). Определить какая из точек находится ближе к началу координат(алгоритм ветвления).

2. Вычислить произведение (a-n)(a-2n)...(a-kn) (циклы, три способа).

3. Удалить все буквосочетания "ма" в данном слове(строковый тип данных).

4. Составить процедуру и основную программу нахождения количества неположительных элементов массива а, больших -15 (одномерный целочисленный массив).

Заранее спасибо!!!

[Hacker19_90]

1)...
If sqrt(sqr(x1)+sqr(y1)) > sqrt(sqr(x2)+sqr(y2)) Then
Writeln('точка в ближе')
Else
Writeln ('а ближе')
...
(решил бы все, но сижу через тел)

[maladoy]

1

program tochki;
uses crt;
var c,c1,x1,x2,y1,y2:real;
begin
writeln('vvedite koordinaty t A : x y');
read(x1,y1);
writeln('vvedite koordinaty t B : x y');
read(x2,y2);
c:=sqrt(sqr(x1)+sqr(y1));
c1:=sqrt(sqr(x2)+sqr(y2));
if c<c1 then writeln ('t a(',x1:3:2,',',y1:4:2, ') blije ')
   else
   if c=c1 then writeln ('odinakovo')
    else writeln('t B (',x2:3:2,',',y2:4:2, ') blije ');
    readln;
    end.

[mistermakc]

Доброго времени суток.
Помогите пожалуйста вот с такой задачкой:
Построить график функции F(x)=x^3-2*x^2+1. Графики выводятся на дисплей в декартовой системе координат в виде линий с маркерами. Оси должны быть подписаны и на них нанесены деления с цифрами, соответствующими выбранному масштабу.
Заранее спаибо!!!

[capta1n]

program ab;
var
 x1,x2,y1,y2 : integer;
 m1,m2 : real;
begin

 writeln ('Vvedite koordinati to4ek: ');
 writeln ('A');
 write ('x1= '); readln(x1);
 write ('y1= '); readln(y1);
 writeln ('B');
 write ('x2= '); readln(x2);
 write ('y2= '); readln(y2);
 m1:=sqrt(sqr(x1)+sqr(y1));
 m2:=sqrt(sqr(x2)+sqr(y2));

 if m1 > m2 then writeln ('B')
 else if m1<m2 then writeln ('A')
               else writeln ('Ravnoudaleni!');

 readln

end.

[maladoy]

2 через for

program proizved;
uses crt;
var a,n,k,i:integer;
    p:real;
begin
writeln('vvedite n');
read(n);
writeln('vvedite a');
read(a);
p:=1;
for i:=1 to n do
p:=p*(a-i*n);
writeln(p);
readln;
end.

2 через repeat

program proizved;
uses crt;
var a,n,k,i:integer;
    p:real;
begin
writeln('vvedite n');
read(n);
writeln('vvedite a');
read(a);
p:=1;
i:=1;
repeat
p:=p*(a-i*n);
i:=i+1;
until i>n
writeln(p);
readln;
end.

2 через while

program proizved;
uses crt;
var a,n,k,i:integer;
    p:real;
begin
writeln('vvedite n');
read(n);
writeln('vvedite a');
read(a);
p:=1;
i:=1;
while i<n do begin
p:=p*(a-i*n);
i:=i+1;
end;
writeln(p);
readln;
end.

[capta1n]

program an;
var
 n,a : real;
 k,i : byte;
 an1 : real;
begin

 write ('Vvedite a: '); readln(a);
 write ('Vvedite n: '); readln(n);
 write ('Vvedite k: '); readln(k);

 if k=0 then an1:=a
 else
 begin
   an1:=1;
   for i:=1 to k do an1:=an1*(a-i*n);

  {i:=0;
   an1:=1;
   while i<k do
   begin
     inc(i);
     an1:=an1*(a-i*n)
   end;}

 {i:=0;
  an1:=1;
  repeat
    inc(i);
    an1:=an1*(a-i*n)
  until i=k;}

 end;

 writeln ('Proizvedenie: ',an1:0:2);
 readln

end.

[capta1n]

program an;
var
 str1 : string;
 k : byte;
begin

 writeln ('Vvedite stroku: ');
 readln(str1);

 k:=pos('ma',str1);
 while k<>0 do
 begin
   delete (str1,k,2);
   k:=pos ('ma',str1)
 end;


 writeln (str1);
 readln

end.

[capta1n]

program an;
const
 n = 10;
var
 a : array [1..n] of integer;
 k : byte;
 i : 1..n;

 procedure search ( it : array of integer; var k1 : byte );
 var
  i : byte;
 begin
   k1:=0;
   for i:=low(it) to high(it) do
    if (it[i] <= 0) and (it[i] > -15) then inc(k1);
 end;
begin

 writeln ('Massiv: ');
 for i:=1 to n do
 begin
   a[i]:=random(15)-9;
   write (a[i],'|')
 end;

 search (a,k);
 writeln ('Kolvo= ',k);
 readln

end.

[Rakfeller]

Большое спасибо