0 / 0 / 0
Регистрация: 05.07.2011
Сообщений: 13
1

найти скорость, путь, время

05.07.2011, 09:17. Показов 2012. Ответов 4
Метки нет (Все метки)

почему при переключении точки с времени на скорость или с пути на скорость значения label не меняются на путь и время? исправьте ошибку пожалуйста
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex=0 then
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
 If RadioGroup1.ItemIndex=1 then
Label4.Caption:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
   If RadioGroup1.ItemIndex=2 then
Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
Label1.Caption:='путь';
 Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
  Label2.Caption:='время';
 If RadioGroup1.ItemIndex=1 then
Label1.Caption:='время';
  Label4.Caption:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
If RadioGroup1.ItemIndex=2 then
Label1.Caption:='путь';
 Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
  Label2.Caption:='скорость';
  Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
 
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2011, 09:17
Ответы с готовыми решениями:

Определить путь S, пройденный лодкой (путь=время*скорость)
Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U<V). Время движения лодки по...

Системе не удается найти указанный путь. И путь к рабочему столу :С
Подскажите в чем может быть проблема - Открываю ранее деланный проект - и выводит сообщение, что не...

Найти скорость движения автомобиля, если известны пройденный путь и время
Привет!Люди,помогите решить задачу!Т.е написать программу и составить блок-схему!!!!Очень прошу ....

Дано время движения автомобиля и пройденный путь. Найти его скорость
Здравствуйте! Помогите найти ошибку. Program skorost; Var s,v,t:^real; Begin new(s);...

4
18 / 18 / 4
Регистрация: 27.12.2008
Сообщений: 58
05.07.2011, 10:50 2
По-моему, не хватает в 3 местах
Delphi
1
2
3
4
if .. then 
Begin 
....
end;
0
0 / 0 / 0
Регистрация: 05.07.2011
Сообщений: 13
06.07.2011, 06:50  [ТС] 3
а поточнее можно?
0
53 / 53 / 36
Регистрация: 18.02.2011
Сообщений: 146
06.07.2011, 10:15 4
Цитата Сообщение от A-Six Посмотреть сообщение
а поточнее можно?
Stohan, имел в виду
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then begin //здесь
Label1.Caption:='путь';
 Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
  Label2.Caption:='время'; 
end;
 If RadioGroup1.ItemIndex=1 then begin//здесь
Label1.Caption:='время';
  Label4.Caption:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
end;
If RadioGroup1.ItemIndex=2 then begin// и здесь
Label1.Caption:='путь';
 Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
  Label2.Caption:='скорость';
  Label4.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
 end;
end;
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
06.07.2011, 10:20 5
Вот это
Delphi
1
2
Label1.Caption:='путь';
 Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
Нужно объединить в одну строку.
Delphi
1
2
Label1.Caption:='путь='+FloatToStrF(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text),ffFixed,5,2);
Сделать везде.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.07.2011, 10:20
Помогаю со студенческими работами здесь

Определить путь, пройденный за время, среднюю скорость, мгновенную скорость, ускорение, силу, кинетическую энергию, импульс
Доброго времени суток, товарищи физики! Возможно кто-нибудь сможет помочь с решением двух задач:...

Зная скорость V и время Т, определите путь
Зная скорость V и время Т, определите путь))))помогите пожалуйста

Найдите пройденный телом путь, зная его скорость и время
Даны скорость и время равномерного движения тела. Найдите пройденный им путь.

Даны скорость и время равномерного движения тела. Найдите пройденный им путь
Даны скорость и время равномерного движения тела. Найдите пройденный им путь.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru