Программа печати площади заданного треугольника

[Chloe19]

Программа печати площади заданного треугольника

помогите пожалуйста сделать 2 программы на паскаль-до завтра, совсем зашиваюсь с сессией.....

1-даны отрезки a,b,c,d.Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника. Определить процедуру Print_S (x,y,z) печатающую площадь треугольника со сторонами x,y,z, если такой треугольник существует.

2-var a,b:real;
t:boolean;
Переменной t присвоить значение true если уравнения x^2+6.2x+a^2=0 и x^2+ax+b-1=0 имеют вещественные корни и при этом оба корня первого уравнения лежат между корнями второго, и присвоить значение false во всех остальных случаях.

 

[Vladimir_S]

1-даны отрезки a,b,c,d.Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника. Определить процедуру Print_S (x,y,z) печатающую площадь треугольника со сторонами x,y,z, если такой треугольник существует.

Ну если под "напечатать" понимается "вывести на экран", то так:

VAR
 a,b,c,d:REAL;

PROCEDURE Print_S(x,y,z:REAL);
 VAR
  p,S:REAL;
 begin
  If ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then
   begin
    p:=x+y+z;
    S:=SQRT(p*(p-x)*(p-y)*(p-z));
    WriteLn('S= ',S);
   end else
  Writeln('The triangular does not exist!');
 end;

BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('c= ');
 ReadLn(c);
 Write('d= ');
 ReadLn(d);
 WriteLn;
 WriteLn('Sides ',a,'; ',b,'; ',c);
 Print_S(a,b,c);
 WriteLn;
 WriteLn('Sides ',a,'; ',b,'; ',d);
 Print_S(a,b,d);
 WriteLn;
 WriteLn('Sides ',a,'; ',c,'; ',d);
 Print_S(a,c,d);
 WriteLn;
 WriteLn('Sides ',b,'; ',c,'; ',d);
 Print_S(b,c,d);
 ReadLn;
END.

 

[Vladimir_S]

2-var a,b:real;
t:boolean;
Переменной t присвоить значение true если уравнения x^2+6.2x+a^2=0 и x^2+ax+b-1=0 имеют вещественные корни и при этом оба корня первого уравнения лежат между корнями второго, и присвоить значение false во всех остальных случаях.

VAR
 a,b:REAL;
 t:Boolean;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 t:=((SQR(3.1)-SQR(a))>0) and ((SQR(a/2)-b+1)>0);
 If t then
  t:=((-a/2-SQRT(SQR(a/2)-b+1))<(-3.1-SQRT(SQR(3.1)-SQR(a))))
     and ((-a/2+SQRT(SQR(a/2)-b+1))>(-3.1+SQRT(SQR(3.1)-SQR(a))));
 WriteLn(t);
 ReadLn;
END.

 

[Chloe19]

спасибо огромное!!!!=))