Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

не могу найти ошибку

86K
17 декабря 2014 года
0999
5 / / 01.12.2014
procedure TForm1.Button1Click(Sender: TObject);
var res,d,s:real;
i,q:integer;
Ar:array [0..2] of real;
begin
ar[0]:=3;
ar[1]:=2;
ar[2]:=4;
if not( (abs(ar[0]-ar[1])<ar[2]) and (ar[2]<(ar[0] + ar[1])) ) then
begin
ShowMessage('Это не треугольник');
Exit;
end;
for i:=0 to 1 do
begin
for q:=0 to 2 do
begin
if Ar>Ar[q] then
begin
d:=Ar;
Ar:=Ar[q];
Ar[q]:=d;
end;
end;
end;

res:=(sqr(ar[0]) - sqr(ar[1]) - sqr(ar[2]))/(-2 * ar[1] * ar[2]);
if res > 0 then
begin
s:=0.5 * ar[0] * ar[1] * sqrt(1-sqr(res));
ShowMessage('S='+floattostr(s));
end else
begin
ShowMessage('Треугольник не остроугольный');
Exit;
end;
end;
  • А в чём заключается ошибка? от ellor!, 17 декабря 2014 года
86K
17 декабря 2014 года
0999
5 / / 01.12.2014
программа выдает ошибку,скопируй в паскаль может найдешь
8
17 декабря 2014 года
mfender
3.5K / / 15.06.2005
Далеко ходить не надо:

 
Код:
if Ar>Ar[q] then
........
Ar - массив, и как он тут сравнивается с элементом массива Real?
Далее в следующих же строках та же ошибка.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог