Переклад миль за кілометр
Пишу програму, яка переводить милі в кілометри: на формі багаторядкове поле і кнопка з картинкою ок, що виводить у багаторядкове поле таблицю перекладу кілометрів в милі від 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; Пишеться тільки значення милі та все, як вивести всю таблицю я не зміг написати. Підкажіть будь ласка
Не працює тому, що маячня тут повна. Поясни, які змінні що означають. Ще скажи, таблиця повинна виводитися після натискання однієї кнопки 1 раз або після натискання щоразу буде додаватися один рядок?
For i:=1 to 10 do . і т.д. ось тобі, куди треба копати
Одна миля це 1609 км, а не те, що у вас написано.
Дякую, за допомогою циклу написав У мене тут рядок: memo1.Lines.Add(floattostr(k/1.603)); Треба щоб після виведення числа додати ще слово, я пам'ятаю що пишеться приблизно так: memo1.Lines.Add(floattostr(k/1.603+"кілометрів"));
Все, зрозумів як написати: memo1.Lines.Add(floattostr(k/1.603)+" кілометрів");
Я визнаю тільки одну - морську:) 1852 м точно
StringGr &String StringGr ; StringGr ; for i := 1 to 10 do begin StringGr > StringGr >end;