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

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

15.06.2015, 12:14. Просмотров 220. Ответов 2
Метки нет (Все метки)

Всем привет!
не могу понять почему не работает программа, задание прилагается:
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 const
  strP: array[1..12] of extended =
  (1,2,2.5,4,5,6,7.5,10,12.5,15,20,30);
  strCr: array[1..12] of extended =
  (15.7,11.8,8.6,5.8,3.8,3.2,2.9,2.1,1.7,1.4,1.0,0.7);
  strCo: array[1..12] of extended =
  (12.1,8.6,6.6,4.1,2.9,2.5,2.2,1.6,1.3,1.1,0.8,0.6);
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    procedure Edit1DblClick(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ns: integer;
  cr1: extended;
  co1: extended;
  p: extended;
  i: integer;
  p1: string;
  c1: string;
  code: integer;
  E: extended;
implementation
 
{$R *.dfm}
 
function raschet: boolean;
begin
 Case ns of
 1: begin
     i:=1;
     result:=false;
     repeat
      if p <= strP[i] then
       begin
        cr1:= strCr[i];
        result:= true;
       end;
      i:=i+1;
      until result or (i>= 12);
     end;     
 2:begin
      i:=1;
      result:=false;
     repeat
      if p <= strP[i] then
       begin
        co1:= strCo[i];
        result:= true;
       end;
       i:=i+1;
      until result or (i>= 12);
     end;
    end;
    E:=p/9.8;
    E:=c1*sqrt(E);
  end;
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
 p1:= Form1.Edit1.text;
 val(p1,p,code);
 Form1.ComboBox1.Clear;
 Form1.ComboBox1.Items.Add('1 - радиальное смещение');
 Form1.ComboBox1.Items.Add('2 - осевое смещение');
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 c1:= Form1.Edit1.Text;
 ns:= StrToInt(trim(copy(c1,1,pos('-',c1)-1))));
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
raschet;
end;
 
end.
0
Миниатюры
Не работает программа  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2015, 12:14
Ответы с готовыми решениями:

Программа работает на Delphi 2007 или более ранней но не работает на старших версиях (10.1 например)
В программе используются дополнительные файлы и dll написанные на fortran их...

не пойму в чем дело, программа должна работать, но она черт побери не работает :( (программа по работе с реестром)
Программа предназначена для поиска какого-нить слова по реестру и удаления...

Программа работает в WinXP и не работает в Win7
Приветствую! Есть программа - пишет в текстовый файл некую информацию. в...

Граф. приложение+библиотеки+консольное приложение! Не работает программа без использования консоли. Если использую, то всё прекрасно работает.
Ребята нужна помощь,все вроде сделал, но приложение начинает зависать при...

Не работает программа
Написал код var Form1: TForm1; A:char; s:string; I:integer;...

2
dus1991
0 / 0 / 0
Регистрация: 12.06.2015
Сообщений: 2
15.06.2015, 12:15  [ТС] 2
выдает ошибки:
[Error] Unit3.pas(75): Incompatible types: 'String' and 'Extended'
[Error] Unit3.pas(89): 'END' expected but ')' found
[Fatal Error] Project3.dpr(5): Could not compile used unit 'Unit3.pas'
0
northener
пофигист широкого профиля
3423 / 2323 / 630
Регистрация: 15.07.2013
Сообщений: 13,738
15.06.2015, 12:35 3
Цитата Сообщение от dus1991 Посмотреть сообщение
выдает ошибки:
[Error] Unit3.pas(75): Incompatible types: 'String' and 'Extended'
Цитата Сообщение от dus1991 Посмотреть сообщение
c1: string;
Цитата Сообщение от dus1991 Посмотреть сообщение
E:=c1*sqrt(E);
Что ожидаешь получить умножая строку на квадратный корень?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2015, 12:35

не работает программа
var f:file of string; i:string; begin AssigNfile...

Не работает программа
Не работает программа, результат - только мерцание черного окошка. Программа...

Программа не работает
Делфи начал только заниматься. Нашел программу калькулятор набрал ее а она...


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

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

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