Описать процедуру, вычисляющую периметр и площадь прямоугольника.

@Cheing · Регистрация: 17.03.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите, пожалуйста, решить вот эти 3 задачи в Паскале!

1. Описать процедуру, вычисляющую периметр и площадь прямоугольника со сторонами параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 - входные, периметр и площадь выходные параметры вещественного типа). С помощью этой процедуры найти периметр и площадь прямоугольника с данными противоположными вершинами.

2. Используя процедуру, упорядочить значения трех переменных a, b и c в одномерном целочисленном массиве.

3. Даны три квадратных уравнения ax^2+bx+c=0, bx^2+ax+c=0, cx^2+ax+b=0. Сколько из них имеют вещественные корни. Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнении.

Жду помощи. Заранее огромнейшее СПАСИБО!!!

@yanyk1n · 17.03.2009, 19:24

№1:

Pascal

procedure SquarePerimetr(x1,y1,x2,y2:real; var p,s:real);
begin
 p:=2*(abs(x2-x1)+abs(y2-y1));
 s:=abs(x2-x1)*abs(y2-y1);
end;

№2:

Pascal

procedure SortInArray(a,b,c:integer; var m:mm); {type mm=array[1..3]of integer}
var i,j,buf:integer
begin
 m[1]:=a;
 m[2]:=b;
 m[3]:=c;
 for i:=1 to 3 do
 for j:=1 to 2 do
 if m[j]>=m[j+1] then
 begin
  buf:=m[j+1];
  m[j+1]:=m[j];
  m[j]:=buf;
 end;
end;

@Cheing · 17.03.2009, 19:55 **[ТС]**

Спасибо, а третью, если не трудно, решите, пожалуйста? И еще что означает вот эта команда "buf"?

@yanyk1n · 17.03.2009, 20:01

buf - промежуточная переменная для хранения значения элемента, который буем менять

Добавлено через 1 минуту 57 секунд
А вот и третья:

Pascal

function KolvoKorney(a,b,c:integer):integer;
var d,k:integer;
begin
 d:=b*b-4*a*c;
 if d>0 then k:=2 else if d=0 then k:=1 else k:=0;
 KolvoKorney:=k;
end;

@Cheing 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 10
		1
	Описать процедуру, вычисляющую периметр и площадь прямоугольника. 17.03.2009, 19:18. Показов 6465. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите, пожалуйста, решить вот эти 3 задачи в Паскале! 1. Описать процедуру, вычисляющую периметр и площадь прямоугольника со сторонами параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин (x1, y1, x2, y2 - входные, периметр и площадь выходные параметры вещественного типа). С помощью этой процедуры найти периметр и площадь прямоугольника с данными противоположными вершинами. 2. Используя процедуру, упорядочить значения трех переменных a, b и c в одномерном целочисленном массиве. 3. Даны три квадратных уравнения ax^2+bx+c=0, bx^2+ax+c=0, cx^2+ax+b=0. Сколько из них имеют вещественные корни. Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнении. Жду помощи. Заранее огромнейшее СПАСИБО!!! 0

@Cheing 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 10
	17.03.2009, 19:55 [ТС]	3
	Спасибо, а третью, если не трудно, решите, пожалуйста? И еще что означает вот эта команда "buf"? 0

	17.03.2009, 20:01

Опции темы