10.01.2008, 20:48
общий
это ответ
Здравствуйте, Мокроусов Алексей Сергеевич!
Код в приложении.
Протяжку можно осуществлять не только целых чисел, но и вещественных (дробных).
Для примера, введите в один едит "1,9" (без ковычек), а во второй "2". получите протяжку от "2,1" до "3", с шагом 0,1. Можно поменять числа местами.
Приложение:
procedure TForm1.Button1Click(Sender: TObject);var i: integer; d,n: Extended;begin //Получаем 2-ое число n:=StrToFloat(Edit2.Text); //Ищем разницу между числами введенными в двух едитах d:=n-StrToFloat(Edit1.Text); //Очищаем мемо, это необязательно, но для наглядности удобно Memo1.Clear; for i:=1 to 10 do begin //Находим очередное число "протяжки" n:=n+d; //Добавляем это число в мемо Memo1.Lines.Add(FloatToStr(n)); end;end;