Перевод миль в километры

← →
Омск © (2008-04-09 19:12) [0]

Пишу программу, которая переводит мили в километры:
на форме многострочное поле и кнопка с картинкой ок, выводящая в много строчное поле таблицу перевода километров в мили от 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 © (2008-04-09 19:23) [1]

Не работает потому, что бред тут полный. Обьясни, какие переменные что значат. Ещё скажи, таблица должна выводиться по нажатию одной кнопки 1 раз или по нажатию каждый раз будет добавлятсья одна строка?

← →
Dark © (2008-04-09 19:26) [2]

For i:=1 to 10 do ... и т.д. вот тебе, куда нужно копать

← →
palva © (2008-04-09 19:43) [3]

Одна миля это 1.609 км, а не то, что у вас написано.

← →
Омск © (2008-04-09 19:44) [4]

Спасибо, с помощью цикла написал
У меня тут строка: memo1.Lines.Add(floattostr(k/1.603));
Надо чтобы после вывода числа добавить еще слово, я помню что пишется примерно так:
memo1.Lines.Add(floattostr(k/1.603+"километров"));

← →
Омск © (2008-04-09 19:45) [5]

Все, понял как написать: memo1.Lines.Add(floattostr(k/1.603)+" километров");

Я признаю только одну - морскую:)
1852 м точно

StringGrid.RowCount := 11;
StringGrid.Cells[0,0] := "км";
StringGrid.Cells[1,0] := "миль";
for i := 1 to 10 do
begin
StringGrid.Cells[0,i] := IntToStr(i);
StringGrid.Cells[1,i] := FloatToStr(double(i) / 1.6093);
end;

Перевод миль в километры Найти похожие ветки