Самостоятельная работа. Разработаем проект, с помощью которого будет вычисляться время преодоления пути лошадью при известной средней скорости и расстоянии

Begin

Var

Практическая работа.

Разработаем проект, с помощью которого будет вычисляться время преодоления пути лошадью при известной средней скорости и расстоянии.

Назначьте событие OnClick на кнопку «Вычислить»

procedure TForm1.BitBtn1Click(Sender: TObject);

s,v,t: real;

v:=strtofloat(edit1.text); //присваиваем переменной, введенное в строку значение, переведенное в вещественный тип

s:=strtofloat(edit2.text);

t:=s/v;

label3.caption:='Данное расстояние'+#13

+'лошадь преодолеет за '+floattostr(t)+' часов';

end;

Для создания интерфейса данного проекта используется компонент Image (страница Additional). Рассмотрим его основные свойства.

Свойство	Значение
AutoSize	Разрешает/запрещает изменять размеры компонента так, чтобы в них полностью загрузилось изображение
Canvas	Содержит канву для прорисовки изображения
Center	Указывает, надо ли центровать изображения внутри компонента
Picture	Служит контейнером для изображения
Stretch	Разрешает/запрещает изменять размер изображения так, чтобы оно целиком заполнило клиентскую область компонента

Методы	Назначение
LoadFromFile (filename:string)	Загружает изображение из файла filename

Задания:

1. Из введенной строки удалить последний символ;
2. Преобразовать все символы строки в заглавные;
3. Подсчитать количество пробелов во введенной строке.
4. В поле ввода вводится фамилия, имя, отчество. Вывести в метку фамилию и инициалы. Например, ввели «Иванов Петр Сидорович», результатом будет строка «Иванов П.С.»

Замечание: программа корректна, когда фамилия имя и отчество вводятся через один пробел. Опишите процедуру преобразования строки с учетом того, что пробелов между словами может вводиться неограниченное количество, то есть предварительно удалить из строки все лишние пробелы, оставив по одному между словами.

Дата добавления: 2015-05-09