-
Пишу программу, которая переводит мили в километры:
на форме многострочное поле и кнопка с картинкой ок, выводящая в много строчное поле таблицу перевода километров в мили от 1 до 10 км, одна миля равна 1,603 км.
Написал так:
procedure TForm1.Button1Click(Sender: TObject);
var
m,k,c:real;
begin
m:=1.603;
k:=1;
memo1.Lines.Add(floattostr(k*m));
end;
Пишется только значение мили и все, как вывести всю таблицу я не смог написать.
Подскажите пожалуйста -
Dark © (09.04.08 19:23) [1]Не работает потому, что бред тут полный. Обьясни, какие переменные что значат. Ещё скажи, таблица должна выводиться по нажатию одной кнопки 1 раз или по нажатию каждый раз будет добавлятсья одна строка?
-
Dark © (09.04.08 19:26) [2]For i:=1 to 10 do ... и т.д. вот тебе, куда нужно копать
-
Одна миля это 1.609 км, а не то, что у вас написано.
-
Спасибо, с помощью цикла написал
У меня тут строка: memo1.Lines.Add(floattostr(k/1.603));
Надо чтобы после вывода числа добавить еще слово, я помню что пишется примерно так:
memo1.Lines.Add(floattostr(k/1.603+'километров')); -
Все, понял как написать: memo1.Lines.Add(floattostr(k/1.603)+' километров');
-
Германн © (10.04.08 01:06) [6]
> palva © (09.04.08 19:43) [3]
>
> Одна миля это 1.609 км, а не то, что у вас написано.
>
Этих миль, как грязи.