Пересчитать скорость ветра,заданную в метрах в секунду,километров в час

@Oleg_45 · Регистрация: 30.10.2012

Author24 — интернет-сервис помощи студентам

Пересчитать скорость ветра,заданную в метрах/секунду В километры/час.Программа должна проектироваться таким образом,чтобы пользователь мог ввести в поле Скорость только целое положительное число

@Singleton · 29.04.2013, 19:03

Только целое положительное число:

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',', '.']) then
Key:=#0;
if (key=',') or (key='.') then
key:= DecimalSeparator;
end;

@pirat5320 · 29.04.2013, 19:07

сначала проверяете, является ли введенная строка числом:

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//i -переменная integer для массива, s -  это введенная строка, s1 - строка для проверки 
for i:=1 to length(s) do
if s[i] not (in ['0'..'9']) then
begin 
edit1.text:=''; // чистим строку 
label1.caption:='Число не соответствует условию'; //выводим сообщение в ответ
Break; //прерываем цикл 
end
else
s1:=s1+s[i];
if s=s1 then 
begin
  //тут вы делаете подсчет скорости ветра и вывод
end;

@Singleton · 29.04.2013, 19:09

Delphi    
        
    Скопировано
1
2
3
4
var ms, kmc: real;
begin
kmc:=ms*3,6;
end;

@leejack · 29.04.2013, 19:18

Oleg_45,

Delphi    
        
    Скопировано
1
2
3
4
function MSecToKmHour(Metr:Integer):Float;
Begin
     Result:=(Metr*3600)\1000;
End;

Для того чтобы ввести только целое значение скорости, надо в обработчике событий TEdit.change
Ннадо указать, что если введенное значение будет точка или запятая то просто игнорируйте

Добавлено через 27 секунд
Oleg_45,

Delphi    
        
    Скопировано
1
2
3
4
function MSecToKmHour(Metr:Integer):Float;
Begin
     Result:=(Metr*3600)\1000;
End;

Для того чтобы ввести только целое значение скорости, надо в обработчике событий TEdit.change
Ннадо указать, что если введенное значение будет точка или запятая то просто игнорируйте

@Singleton · 29.04.2013, 19:20

Упс, а я-то думаю, что все говорят о целом числе

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;

@Oleg_45 · 29.04.2013, 19:33 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Организация сетей в Kubernetes и эффективное развертывание Mr. Docker 14.04.2025 Сетевая инфраструктура Kubernetes представляет собой сложную, но хорошо спроектированную систему, которая позволяет контейнерам взаимодействовать между собой и с внешним миром. За кажущейся простотой. . .	Многопоточность в Rust: Fearless concurrency и практические примеры golander 14.04.2025 Многопоточное программирование связано с рядом известных проблем. Наиболее распространенные из них — гонки данных (data races), взаимные блокировки (deadlocks) и условия гонки (race conditions). Эти. . .	Списки и кортежи в Python: различия, особенности, применение py-thonny 13.04.2025 Python славится своей гибкостью при работе с данными. В арсенале языка есть две основные последовательные структуры данных, которые программисты используют ежедневно — списки и кортежи. Эти структуры. . .	Middleware в ASP.NET Core UnmanagedCoder 13.04.2025 В ASP. NET Core термин "middleware" занимает особое место. Что же это такое? Middleware представляет собой программные компоненты, которые формируют конвейер обработки HTTP-запросов в приложении. . . .	Таблицы лута в Unity с MinMaxCurve и AnimationCurve GameUnited 12.04.2025 Создание сбалансированного лута в играх — задача не из простых. Разработчики постоянно ищут способы настройки систем выпадения предметов, которые будут одновременно справедливыми для игроков и. . .
std::expected в C++: Управление ошибками bytestream 12.04.2025 Обработка ошибок всегда была важной и одновременно сложной задачей в программировании на C++. На протяжении долгого времени разработчики использовали различные подходы: возвращаемые коды ошибок,. . .	Nullable типы и операторы объединения null в C# UnmanagedCoder 12.04.2025 Многие шутят, что null — это миллиардная ошибка в программировании. И в этой шутке только доля шутки. Тони Хоар, создатель null-ссылки, сам назвал её своей "ошибкой на миллиард долларов". Почему?. . .	Аутентификация и авторизация JWT в микросервисах с API Gateway stackOverflow 12.04.2025 В традиционных монолитных приложениях безопасность часто реализуется как единый защитный периметр - пользователь проходит аутентификацию один раз, после чего получает доступ ко всем функциям системы. . . .	TypeScript: Интерфейсы vs Типы run.dev 11.04.2025 Современная разработка на JavaScript сталкивается с множеством проблем при масштабировании проектов. Типизация кода стала хорошим инструментом, помогающим избежать ошибок во время выполнения,. . .	Управление топиками и разделами Kafka Javaican 11.04.2025 Apache Kafka — распределенная платформа потоковой передачи данных, которая стала стандартом для построения высоконагруженных систем обмена сообщениями. В современной архитектуре микросервисов,. . .

@Oleg_45 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 16

	Пересчитать скорость ветра,заданную в метрах в секунду,километров в час 29.04.2013, 18:46. Показов 8222. Ответов 6 Метки нет (Все метки) Пересчитать скорость ветра,заданную в метрах/секунду В километры/час.Программа должна проектироваться таким образом,чтобы пользователь мог ввести в поле Скорость только целое положительное число Миниатюры 0

@Oleg_45 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 16
	29.04.2013, 19:33 [ТС]
	Спасибо 0