Помогите в паскале решить пожалуйста

[Gogol]

Здраствуйте, помогите мне пожалуйста решить, уже сессия кончается, а у меня из-за того чт оя весь семестр на соревнования ездил нет зачета по информатике, я просто не понимаю как в паскале решать задачи, будте добры помогите пожалуйста

1. Вычислить значения по формуле (все переменные принимают действительные значения) ((x+y)/(y+1))-((xy-12)/(34+x))
2. Заданы координаты трех вершин труголника (x1;y1),(x2;y2),(x3;y3) найти его периметр и площадь
3. Даны три стороны одного и три другого треугольника определить будут ли эти треугольники равновеликими, т.е имеют и они равные площади
4.Известно, что из четырех чисел а1,а2,а3 и а4 одно отлично от других трех, равных между собой; присвоить номер этого числа переменной n
5. Вычислить значение функции F(x)=0, если x<=1 и F(x) 1/(x+6) в противном
6. Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца
7. Составить программу, которая печатает true,если точка с координатами (x,y,) принадлежит заштрихованной области, и false в противном случае(рисунок на ссылке)
http://forum.raid.ru/index.php?act=a...post&id=125470


I. Найти произведение цифр заданного четырехзначного числа
II. Грузовой автомобиль выехал из одного города в другой со скоростью V2 км/ч. Составить программу, определяющую, догонит-ли легковой автомобиль, грузовой через t1 ч после своего выезда
III. Дана точка А(х,у) Определить принадлежит-ли она треугольнику с вершинами в точках (х1,у1),(х2,у2),(х3,у3)
IV. Составить программу, которая по заданному году и номеру месяца определяет кол-во дней в этом месяце
V. Составить программу, которая печатает true,если точка с координатами (x,y,) принадлежит заштрихованной области, и false в противном случае(рисунок на ссылке)http://forum.raid.ru/index.php?act=a...post&id=125471



спасибо заранее уважаемые умы!)

[Sazary]

Первая:

uses crt;
var x,y,z : real;
begin
clrscr;
write('Enter x: ');
readln(x);
write('Enter y: ');
readln(y);
z := (x+y)/(y+1) - (x*y-12)/(34+x);
writeln('Z= ',z:7:4);
readln;
end.

Вторая:

uses crt;
var
P,S : real;
x,y,a : array [1..3] of real;
i : integer;
begin
clrscr;
for i:=1 to 3 do
  begin
  write('x',i,'= '); readln(x[i]);
  write('y',i,'= '); readln(y[i]);
  end;
writeln;
a[1] := sqrt(sqr(y[2]-y[1])+sqr(x[2]-x[1]));
a[2] := sqrt(sqr(y[3]-y[2])+sqr(x[3]-x[2]));
a[3] := sqrt(sqr(y[3]-y[1])+sqr(x[3]-x[1]));
P := a[1]+a[2]+a[3];
S := sqrt((P/2)*(P/2-a[1])*(P/2-a[2])*(P/2-a[3]));
writeln('P= ',P:4:1);
writeln('S= ',S:7:4);
readln;
end.

[capta1n]

program capta1n;
var
 x,y : real;
 e : byte;
begin
 write ('x= '); readln (x);
 write ('y= '); readln (y);
 write ('To4nost''= '); readln(e);
 if (x<>-34) and (y<>-1) then writeln ((x+y)/(y+1)-(x*y-12)/(34+x):0:e)
 else if x=-34 then writeln ('Nedopustimoe zna4enie x')
      else writeln ('Nedopustimoe zna4enie y');

 readln;
end.

[Sazary]

Третья:

uses crt;
var
p,S1,S2 : real;
a,b : array[1..3] of real;
i : integer;
begin
clrscr;
writeln('Vvedite storony treugolnikov a i b:');
for i:=1 to 3 do
  begin
  write('a',i,'= ');
  readln(a[i]);
  end;
for i:=1 to 3 do
  begin
  write('b',i,'= ');
  readln(b[i]);
  end;
{-----}
p := (a[1]+a[2]+a[3])/2;
S1 := sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));
p := (b[1]+b[2]+b[3])/2;
S2 := sqrt(p*(p-b[1])*(p-b[2])*(p-b[3]));
if S1 = S2 then writeln('S1 = S2!')
else writeln('S1 ne raven S2');
readln;
end.

[capta1n]

program capta1n;
const
 x1 : array [1..3] of real = (3,4,5);
 x2 : array [1..3] of real = (1,6,5);
var
 p1,p2 : real;
begin
  p1:=(x1[1]+x1[2]+x1[3])/2;
  p2:=(x2[1]+x2[2]+x2[3])/2;
  if sqrt(p1*(p1-x1[1])*(p1-x1[2])*(p1-x1[3]))=
  sqrt(p2*(p2-x2[1])*(p2-x2[2])*(p2-x2[3])) then writeln ('Yes')
  else writeln ('No');

  readln
end.

[capta1n]

program capta1n;
const
 a : array [1..4] of real = (4,4,4,3);
var
 n : byte;
begin
  if a[1]=a[2] then if a[2]=a[3] then n:=4
                    else n:=3
  else if a[1]=a[3] then n:=2
       else n:=1;

  writeln (n);
  readln

end.

[capta1n]

Вычислить значение функции F(x)=0

А вот это очень интересно я вам без кода вычислю по условию - оно равняется нулю

[Sazary]

Четвертая:

uses crt;
var a : array[1..4] of real;
i,j,s,n : integer;
begin
clrscr;
for i:=1 to 4 do
  begin
  write('a',i,'= ');
  readln(a[i]);
  end;
writeln;

for i:=1 to 4 do
  begin
  s:=0;
  for j:=1 to 4 do
   if a[i] = a[j] then inc(s);
  if s=1 then n := i;
  end;
writeln('n= ',n);
readln;
end.

[Sazary]

Пятая:

uses crt;
var
x,f : real;
begin
clrscr;
write('x= ');
readln(x);
if x = -6 then
  begin
  writeln('error');
  exit;
  end;
if x<=1 then f := 0
else f := 1/(x+6);
writeln('F= ',f:5:2);
readln;
end.

[capta1n]

5)

program capta1n;
var
 x, fx : real;
begin
  write ('x= '); readln (x);
  if x<>-6 then
  begin
    if x<=1 then fx:=0
    else fx:=1/(x+6);
    writeln ('f(x)= ',fx:0:2)
  end
  else writeln ('delenie na 0');
  readln
end.