Конференция "Начинающим" » Перевод миль в километры [D7, XP]
 
  • Омск © (09.04.08 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 © (09.04.08 19:23) [1]
    Не работает потому, что бред тут полный. Обьясни, какие переменные что значат. Ещё скажи, таблица должна выводиться по нажатию одной кнопки 1 раз или по нажатию каждый раз будет добавлятсья одна строка?
  • Dark © (09.04.08 19:26) [2]
    For i:=1 to 10 do ... и т.д. вот тебе, куда нужно копать
  • palva © (09.04.08 19:43) [3]
    Одна миля это 1.609 км, а не то, что у вас написано.
  • Омск © (09.04.08 19:44) [4]
    Спасибо, с помощью цикла написал
    У меня тут строка: memo1.Lines.Add(floattostr(k/1.603));
    Надо чтобы после вывода числа добавить еще слово, я помню что пишется примерно так:
    memo1.Lines.Add(floattostr(k/1.603+'километров'));
  • Омск © (09.04.08 19:45) [5]
    Все, понял как написать: memo1.Lines.Add(floattostr(k/1.603)+' километров');
  • Германн © (10.04.08 01:06) [6]

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

    Этих миль, как грязи.
 
Конференция "Начинающим" » Перевод миль в километры [D7, XP]
Есть новые Нет новых   [134435   +34][b:0][p:0.001]