Скачать: CL | DM;

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

← →
Омск ©   (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)+" километров");

---

← →
Германн ©   (2008-04-10 01:06) [6]

> palva ©   (09.04.08 19:43) [3]
>
> Одна миля это 1.609 км, а не то, что у вас написано.
>

Этих миль, как грязи.

---

← →
Jeer ©   (2008-04-10 09:19) [7]

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

---

← →
clickmaker ©   (2008-04-10 09:33) [8]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c