прикладная математика

program laba5
{***************************************}
{*  laba#5 file:Bonyasik2.pas==ver1.0  *}
{*  Prokopenko Nikol I-14-1 04.10.14   *}
{***************************************};
   var X,X1,X2,X3,Y,Y1,Y2,Y3,Z,Z1,Z2,Z3,c:integer;
    begin
     writeln('Введите координаты вершины A(X1,Y1,Z1)');
     writeln('Введите координаты вершины B(X2,Y2,Z2)');   
     writeln('Введите координаты вершины C(X3,Y3,Z3)');
     writeln('Введите координаты точки D(X,Y,Z)');
     readln(X,X1,X2,X3,Y,Y1,Y2,Y3,Z,Z1,Z2,Z3);
      X2:=X2-X1;
      Y2:=Y2-Y1;
      Z2:=Z2-Z1;
      X3:=X3-X1;
      Y3:=Y3-Y1;
      Z3:=Z3-Z1;
      X:=X-X1;
      Y:=Y-Y1;
      Z:=Z-Z1;
      c:=X2*(Y3*Z-Z3*Y)+Y2*(X3*Z-Z3*X)+Z2*(X3*Y-Y3*X);
     if c=0 then writeln('Точка D лежит в плоскости треугольника ABC')
     else writeln('Точка D не лежит в плоскости треугольника ABC');
     end.

program bf_laba5;
uses crt;
var x1,y1,x2,y2,x3,y3,tx,ty,AB,BD,DA,AX,BX,DX,pabd,pabx,padx,pbdx,Sabd,Sabx,Sadx,Sbdx,Sall:real;
begin

clrscr;
writeln('Введите координаты вершин треугольника в таком порядке x1, y1, x2, y2, x3, y3:');
readln(x1,y1,x2,y2,x3,y3);
writeln('Введите координаты точки X: ');
Readln(tx,ty);
AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));
BD:=sqrt(sqr(x2-x3)+sqr(y2-y3));
DA:=sqrt(sqr(x3-x1)+sqr(y3-y1));
AX:=sqrt(sqr(x1-tx)+sqr(y1-ty));
BX:=sqrt(sqr(x2-tx)+sqr(y2-ty));

DX:=sqrt(sqr(x3-tx)+sqr(y3-ty));
pabd:=(AB+BD+DA)/2;
pabx:=(AB+BX+AX)/2;
padx:=(DA+DX+AX)/2;
pbdx:=(BD+BX+DX)/2;
Sabd:=(pabd*(pabd-AB)*(pabd-BD)*(pabd-DA));
Sabx:=(pabx*(pabx-AB)*(pabx-BX)*(pabx-AX));
Sadx:=(padx*(padx-DA)*(padx-DX)*(padx-AX));
Sbdx:=(pbdx*(pbdx-BD)*(pbdx-BX)*(pbdx-DX));
Sall:=Sabx+Sadx+Sbdx
if Sabd<=Sall then writeln('Точка лежит вне плоскости треугольника!') else writeln('Точка лежит в плоскости треугольника!');

end.

program Iren456{***********************************}
{* laba#5 file iren456.pas==ver1.0 *}
{* Zaznoba Irina I-14-1 06.10.14   *}
{***********************************};
var x,y,z: real;
a,b: boolean;
begin
  writeln('enter x');
writeln('enter y');
writeln('enter z');
readln(x,y,z);
a:= false;
if (x>y) then a:= true
else  a:= false;   
if (y>z) then b:= true  
else b:= false;
     if (a and b = true)  
then     
  begin  
    x:=2*x;  
    y:=2*y;  
    z:=2*z;
     end
    else
     begin
     x:=(-1)*x;
     y:=(-1)*y;  
     z:=(-1)*z;
     end;
  writeln('x=',x);
  writeln('y=',y);
  writeln('z=',z);
  end.

program OlgaFrolova;
      (****************************************************
         **   Laba #5 File Olga Frolova.pas == ver.1.0. **
         ***  Frolova O.R. Group I-14-1 Date 12.10.2014 ***
         ****************************************************)
          var a,b,c:real;
          begin
           writeln (' Введите число a,b,c ');
           readln (a,b,c);
      write ('Точка лежит в ');
           if (a*b*c>0) and (a>0)then write ('октанте 1');
           if ((a<0) and (b+c>0)) then write ('октанте 2');
           if ((a+b<0) and (c>0)) then write ('октанте 3');
           if ((a+c>0) and (b<0)) then write ('октанте 4');
           if ((a+b>0) and (c<0)) then write ('октанте 5');
           if ((a+c<0) and (b>0)) then write ('октанте 6');
           if ((a+b<0) and (c<0)) then write ('октанте 7');
           if ((a>0) and (b+c<0)) then write ('октанте 8');
           if ((a+b<>0)and (c=0)) then write ('координатной плоскости');
          readln;
           end.

program OlgaFrolova;
  (****************************************************
     **   Laba #5 File Olga Frolova.pas == ver.1.0. **
     ***  Frolova O.R. Group I-14-1 Date 28.09.2014 ***
     ****************************************************)
      var a,b,c:real;
      begin
       writeln (' Введите число a,b,c ');
       readln (a,b,c);
  write ('Точка лежит в ');
       if ((a>=0) and (b>=0) and (c>=0)) then write ('октанте 1');
       if ((a<0) and (b>=0) and (c>=0)) then write ('октанте 2');
       if ((a<0) and (b<0) and (c>=0)) then write ('октанте 3');
       if ((a>=0) and (b<0) and (c>=0)) then write ('октанте 4');
       if ((a>=0) and (b>=0) and (c<0)) then write ('октанте 5');
       if ((a<0) and (b>=0) and (c<0)) then write ('октанте 6');
       if ((a<0) and (b<0) and (c<0)) then write ('октанте 7');
       if ((a>=0) and (b<0) and (c<0)) then write('октанте 8');
       if ((a<>0) and (b<>0)and (c=0)) then write ('координатной плоскости');
      readln;
       end.

program OlgaFrolova;
   (****************************************************
      **   Laba #5 File Olga Frolova.pas == ver.1.0. **
      ***  Frolova O.R. Group I-14-1 Date 04.11.2014 ***
      ****************************************************)
       var a,b,c:real;
       begin
        writeln (' Введите число a,b,c ');
        readln (a,b,c);
   write ('Точка лежит в ');
        if ((a>0) and (b>0) and (c>0)) then write ('октанте 1');
        if ((a<0) and (b>0) and (c>0)) then write ('октанте 2');
        if ((a<0) and (b<0) and (c>0)) then write ('октанте 3');
        if ((a>0) and (b<0) and (c>0)) then write ('октанте 4');
        if ((a>0) and (b>0) and (c<0)) then write ('октанте 5');
        if ((a<0) and (b>0) and (c<0)) then write ('октанте 6');
        if ((a<0) and (b<0) and (c<0)) then write ('октанте 7');
        if ((a>0) and (b<0) and (c<0)) then write('октанте 8');
        if ((a<>0) and (b<>0)and (c=0)) then write ('координатной плоскости');
        if ((a=0) and (b=0) and (c=0)) then write ('начале координат');
       readln;
        end.

program dimeshion;
uses crt;
var a,b,c,max,min: real;
begin
      writeln('Введите числа a, b, c: ');
      readln(a,b,c);
      min:=a; max:=a;
         if (b<a) then min:=b
         else max:=b;
         if (min>c) then min:=c;
         if (c>max) then max:=c;
      writeln('Наибольшее число: ',max);
      writeln('Наименьшее число: ',min);
end.

Program Vincent_Young;
var n:real;
writeln('Введите число n: ');
readln (n);
case n of
-999...-100:writeln('Отрицательное трехзначное число');
-99...-10:writeln('Отрицательное двухзначное число');
-9...-1:writeln('Отрицательное однозначное число');
0:writeln('Нулевое число');
1...9:writeln('Положительное однозначное число');
10...99:writeln('Положительное двухзначное число');
100...999:writeln('Положительное трехзначное число');
end.