Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi блокнот https://www.cyberforum.ru/ delphi-beginners/ thread329709.html
как сделать что бы менялись 1 и 5 строки и найти кол-во строк unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan,...
Типы Extended, String и Comp Delphi
Здравствуйте. Хотел сделать программу, которая спрашивала бы тип тригоном. функции, принимала аргумент и считала значение. При попытке компиляции выдает ошибку: Unit1.pas(64): Incompatible types:...
Delphi ошибка приложения Привет всем. Вопросик может кто с таким встречался. Написал программу писалось под 7-кой все летает когда приложение переношу на XP при запуске программы вылетает ошибка она не критична но мне она... https://www.cyberforum.ru/ delphi-beginners/ thread329678.html Delphi Вычислить сумму тех из них, порядковые номера которых являются простыми числами. Всем привет! Помогите пожалуйста составить програмы. Спасибо! 1 задача В заданный непустой текст входят цифры и букви.Визначиты, удовлетворяет данный текст таком условии: текст состоит из k букв... https://www.cyberforum.ru/ delphi-beginners/ thread329672.html
Delphi Нужно скомбинировать код
Вообще задача состоит в следующем-программа рассчитывает линейную зависимость по значениям, загружаемым из текстового файла. В результате выдается линейное уравнение вида y = ax + b, значения...
Delphi Определение ускорения движения заданной точки https://www.cyberforum.ru/ delphi-beginners/ thread329657.html
Здравствуйте подскажите с чего следует начать при " определении ускорения движения заданной точки" вот само уравнение r=ti+t^2*j+2/3*t^3*k
Delphi При компиляции ругается на проверенный файл... https://www.cyberforum.ru/ delphi-beginners/ thread329649.html
Добрый день! Пытаюсь скомпилировать проект Delphi 2009 в Delphi XE - но при компиляции возникают ошибки в обычном месте, ругается на файл cxFilterDialog: cxFilterDialog.pas(245): E2003 Undeclared...
Запретить второй запуск программы. Приложение без окон Delphi
Сабж. Без подключения в uses компонента формы. Все примеры что находил в инете юзали окна.
Delphi Как сдвинуть курсор в TEdit на нужную позицию Мне надо сдвинуть курсор в TEdit на нужную позицию. Программа редактирует Edit1.Text, и после программной правки надо передвинуть курсор в конец строки. Как это сделать? Решение этой проблемы сильно... https://www.cyberforum.ru/ delphi-beginners/ thread329624.html Delphi Какуро(японская головоломка) Нужно написать игру какуро. Знаю, такая тема уже поднималась, но в предыдущих обсуждениях я не нашел необходимой информации, ооп занимаюсь впервые и в delphi еще не очень разбираюсь, даже не знаю, с... https://www.cyberforum.ru/ delphi-beginners/ thread329620.html
Определить, входит ли цифра в десятичную запись трехзначного числа Delphi
1.Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции? 2.Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами...
Delphi В заданный непустой текст входят цифры и буквы https://www.cyberforum.ru/ delphi-beginners/ thread329589.html
Всем привет! Помогите пожалуйста составить програмы. Спасибо! 1 задача В заданный непустой текст входят цифры и букви.Визначиты, удовлетворяет данный текст таком условии: текст состоит из k букв...
0 / 0 / 0
Регистрация: 05.07.2011
Сообщений: 13
0

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

05.07.2011, 09:17. Показов 2019. Ответов 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.


Вернуться к обсуждению:
найти скорость, путь, время Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2011, 09:17
Помогаю со студенческими работами здесь

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

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

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

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

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