С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
ALABAMA
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 72
1

Видает ошибку исправте.

19.09.2010, 22:02. Просмотров 1045. Ответов 21
Метки нет (Все метки)

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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label7: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var a,b,h:string;
    q,q1:real;
begin if (edit1.Text:='') or (edit2.Text:='') or (edit3.Text:='') then Showmessage('error');-тут видает ошибку!!!!!
end;
begin
if (combobox1.Text='мм') then
  begin
 q:=strtofloat(edit1.Text);
 q1:=q/1000;
 a:=floattostr(q1);
 end
else
if (combobox1.Text='см') then
  begin
 q:=strtofloat(edit1.Text);
 q1:=q/100;
 a:=floattostr(q1);
 end
else
if (combobox1.Text='м') then
 begin
 a:= edit1.Text;
 end
else
if (combobox1.Text='дц') then
 begin
 q:=strtofloat(edit1.Text);
 q1:=q*100;
 a:=floattostr(q1);
 end
else
 if (combobox1.Text='км') then
 begin
 q:=strtofloat(edit1.Text);
 q1:=q*1000;
 a:=floattostr(q1);
 end ;
 
 if (combobox2.Text='мм') then
  begin
 q:=strtofloat(edit2.Text);
 q1:=q/1000;
 h:=floattostr(q1);
 end
else
if (combobox2.Text='см') then
  begin
 q:=strtofloat(edit2.Text);
 q1:=q/100;
 h:=floattostr(q1);
 end
else
if (combobox2.Text='м') then
 begin
 h:= edit2.Text;
 end
else
if (combobox2.Text='дц') then
 begin
 q:=strtofloat(edit2.Text);
 q1:=q*100;
 h:=floattostr(q1);
 end
else
 if (combobox2.Text='км') then
 begin
 q:=strtofloat(edit2.Text);
 q1:=q*1000;
 h:=floattostr(q1);
 end ;
 
  if (combobox3.Text='мм') then
  begin
 q:=strtofloat(edit3.Text);
 q1:=q/1000;
 b:=floattostr(q1);
 end
else
if (combobox3.Text='см') then
  begin
 q:=strtofloat(edit3.Text);
 q1:=q/100;
 b:=floattostr(q1);
 end
else
if (combobox3.Text='м') then
 begin
 b:= edit3.Text;
 end
else
if (combobox3.Text='дц') then
 begin
 q:=strtofloat(edit3.Text);
 q1:=q*10;
 b:=floattostr(q1);
 end
else
 if (combobox3.Text='км') then
 begin
 q:=strtofloat(edit3.Text);
 q1:=q*1000;
 b:=floattostr(q1);
 end ;
 
 
 label7.Caption:='Площа = '+floattostr(0.5*strtofloat(h)*(strtofloat(a)+strtofloat(b)))+'(м.кв.)';
 
end;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
form1.Close;
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2010, 22:02
Ответы с готовыми решениями:

Видает ошибку, что делать? Incompatible types: 'Integer' and 'TStrings'
procedure TForm1.Button6Click(Sender: TObject); var i: integer; begin i:=...

Ребятки исправте ошибку)
Program Matriza; Uses Mod_var,crt; begin Bim:=max(Bim); mary2(Bim); end....

должно видавать сообщение с последним элементом Радиогруппи, а видает количество елементом, что делать?
procedure TForm1.Button6Click(Sender: TObject); var i: integer; begin i:=...

Даны целые числа K и N (N > 0). Вывести N раз число K. Исправте ошибку
Помогите исправить ошибку, у меня программа запускается, но завесает... Даны...

Исправте код, игра змейка
Помогити исправить код, программа останавливается в начале программы.

21
Андрей Утюмов
...
28 / 29 / 0
Регистрация: 18.08.2010
Сообщений: 310
20.09.2010, 02:02 21
понятно, ну а почему Ерроп, может например "Вы не ввели данные." или вам надо так, как вы говорите

Добавлено через 22 секунды
на почту скину

Добавлено через 1 час 9 минут
Цитата Сообщение от ALABAMA Посмотреть сообщение
if (combobox1.Text='мм') then
begin
q:=strtofloat(edit1.Text);
q1:=q/1000;
a:=floattostr(q1);
end
else
if (combobox1.Text='см') then
begin
q:=strtofloat(edit1.Text);
q1:=q/100;
a:=floattostr(q1);
end
else
if (combobox1.Text='м') then
begin
a:= edit1.Text;
end
else
if (combobox1.Text='дц') then
begin
q:=strtofloat(edit1.Text);
q1:=q*100;
a:=floattostr(q1);
end
else
if (combobox1.Text='км') then
begin
q:=strtofloat(edit1.Text);
q1:=q*1000;
a:=floattostr(q1);
end ;
if (combobox2.Text='мм') then
begin
q:=strtofloat(edit2.Text);
q1:=q/1000;
h:=floattostr(q1);
end
else
if (combobox2.Text='см') then
begin
q:=strtofloat(edit2.Text);
q1:=q/100;
h:=floattostr(q1);
end
else
if (combobox2.Text='м') then
begin
h:= edit2.Text;
end
else
if (combobox2.Text='дц') then
begin
q:=strtofloat(edit2.Text);
q1:=q*100;
h:=floattostr(q1);
end
else
if (combobox2.Text='км') then
begin
q:=strtofloat(edit2.Text);
q1:=q*1000;
h:=floattostr(q1);
end ;
if (combobox3.Text='мм') then
begin
q:=strtofloat(edit3.Text);
q1:=q/1000;
b:=floattostr(q1);
end
else
if (combobox3.Text='см') then
begin
q:=strtofloat(edit3.Text);
q1:=q/100;
b:=floattostr(q1);
end
else
if (combobox3.Text='м') then
begin
b:= edit3.Text;
end
else
if (combobox3.Text='дц') then
begin
q:=strtofloat(edit3.Text);
q1:=q*10;
b:=floattostr(q1);
end
else
if (combobox3.Text='км') then
begin
q:=strtofloat(edit3.Text);
q1:=q*1000;
b:=floattostr(q1);
end ;
Почему вы не применили вместо больших этих инструкций инструкцию case?

Добавлено через 37 минут
ну вообще то правильно, что не case - сложно селектор придумать для него
1
Андрей Утюмов
...
28 / 29 / 0
Регистрация: 18.08.2010
Сообщений: 310
20.09.2010, 18:32 22
ALABAMA, вам пришла программа, если не пришла, то вот
0
20.09.2010, 18:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2010, 18:32

пишу программу где то ошибка исправте
y=sin^3(x^2+a)6^2-(x/b)^1/2 a=1.1 b=0.004 x=0.2 procedure...

Видает ошибку!
Видает ошибку. Скажите что не так. Вот код://...

видает ошибку
#include <conio.h> #include <stdio.h> #include <stdlib.h> #include <conio.h>...


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

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

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