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

Chloe19 · 18.06.2010, 14:32

помогите пожалуйста сделать 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 · 18.06.2010, 17:09

Цитата:

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

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 · 18.06.2010, 20:21

Цитата:

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

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 · 19.06.2010, 10:50

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

18.06.2010, 14:32	#1 (permalink)
Chloe19 Новичок Регистрация: 18.06.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа печати площади заданного треугольника помогите пожалуйста сделать 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 во всех остальных случаях. Последний раз редактировалось Chloe19; 18.06.2010 в 15:24

18.06.2010, 14:32
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Разумеется, на нашем форуме так же нашлись и похожие темы Скорость печати Драйвера печати Программа для вычисления сторон треугольника МФУ при печати дублирует текст

19.06.2010, 10:50	#4 (permalink)
Chloe19 Новичок Регистрация: 18.06.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное!!!!=))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070