Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/2: Рейтинг темы: голосов - 2, средняя оценка - 5.00
RaulGain
0 / 0 / 0
Регистрация: 22.09.2013
Сообщений: 63
1

Некорректно работает программа

27.09.2013, 22:43. Просмотров 424. Ответов 1
Метки нет (Все метки)

Сам код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,c,k,t:real;
  i,j,m:integer;
    arr:array [1..3] of real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=strtofloat(edit1.text);
    b:=strtofloat(edit1.text);
    c:=strtofloat(edit2.text);
  arr[1]:=a;
  arr[2]:=b;
    arr[3]:=c;
  m:=3;
            if ((a+b>=c) and (a+c>=b) and (b+c>=a)) and ((a*a < b*b + c*c) or (b*b < a*a + c*c) or (c*c < a*a + b*b)) then
                begin
                    for i := 1 to m-1 do
                    for j := 1 to m-i do
                      if arr[j] > arr[j+1] then begin
                         k := arr[j];
                         arr[j] := arr[j+1];
                         arr[j+1] := k
                        end;
      k:=(arr[1]+arr[2]+arr[3])/2;
            t:=sqrt(k*(k-arr[1])*(k-arr[2])*(k-arr[3]));
        label3.caption:=floattostr(arr[1]);
      label6.Caption:=floattostr(arr[2]);
      label9.Caption:= floattostr(arr[3]);
            label5.caption:=floattostrF(t,ffgeneral,4,2);
      end
            else
                ShowMessage('Тру-ля-ля');
 
    end;
end.
Поломка: объявляем переменные-массивы и т.д., юзаем сортировку методом пузырьков и получаем на выходе не то, что должны. Вроде бы всё правильно, на первый взгляд, но как показывает компиляция - нет.
0
Миниатюры
Некорректно работает программа  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2013, 22:43
Ответы с готовыми решениями:

Программа работает некорректно
После выполнения программы видает ошибку: &quot;Access violation... Write of address...&quot; Задча...

Некорректно работает программа
Здравствуйте, прошу помощи в выполнении следующего задания: &quot;Дана последовательность содержащая от...

При запуске exe файла на Windows XP, программа или не запускается или работает некорректно
Написал программу в Delphi Borland 7 на ОС Windows 7 sp1, все работает как положено. При запуске...

Некорректно выполняется программа
Заполнить файл последовательного доступа N дейстительными числами, полученными с помощью датчика...

Delphi работает некорректно
Здравствуйте, у меня возникли некоторые проблемы с Delphi. В течении первого полугодия у меня было...

1
ДунДмитрий
2 / 2 / 1
Регистрация: 27.05.2013
Сообщений: 23
Завершенные тесты: 1
27.09.2013, 23:34 2
Попробуй отследить неполадку в пошаговом режиме - может тогда найдешь, потому что так я ничего сказать не могу

Добавлено через 1 минуту
Я понял!

Delphi
1
2
3
 a:=strtofloat(edit1.text);
    b:=strtofloat(edit1.text);
    c:=strtofloat(edit2.text);
Вы перепутали:

Delphi
1
2
3
 a:=strtofloat(edit1.text);
    b:=strtofloat(edit2.text);
    c:=strtofloat(edit3.text);
Вот так надо!
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2013, 23:34

Некорректно работает Делфи
Привет всем, есть проблема, когда открываю проект в делфи, все окна закрываются и остается только...

DecodeDate работает некорректно
mec,god,day:word; ddata:TDateTime; ddata:=now; DecodeDate(ddata,god,mec,day); Всем привет,...

Тест делфи работает некорректно
Очень нужна ваша помощь. Подобрала здесь программу тестера, но она работает некорректно:cry:,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru