Delphi 7, Составить таблицу значений линейной функции

[weeping angel]

Составить таблицу значений линейной функции y = ax + b на от-
резке [0, 1] с шагом 0,1.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j,a,b,x:integer;
begin
for k:= to  do begin
StringGrid1.Cells[]:=IntToStr(k);
StringGrid1.Cells[]:=IntToStr(StrToInt(Edit2.Text)*k+StrToInt(Edit3.Text));
end;
end;
end.

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
const step = 0.1;
var x, a, b : double;
   i,k : integer;
begin
  a := StrToFloat(Edit2.Text);
  b := StrToFloat(Edit3.Text);
  k:= trunc((1-0)/step)+1;
  x:= 0;
  StringGrid1.ColCount:=2;
  StringGrid1.RowCount:=k;
  for i:=1 to k do begin
    StringGrid1.Cells[0,k-1]:=IntToStr(k);
    StringGrid1.Cells[1,k-1]:=FloatToStr(a*x+b);
    x := x + step
  end;
end;

[weeping angel]

Сообщение от Serge_Bliznykov

procedure TForm1.Button1Click(Sender: TObject);
const step = 0.1;
var x, a, b : double;
   i,k : integer;
begin
  a := StrToFloat(Edit2.Text);
  b := StrToFloat(Edit3.Text);
  k:= trunc((1-0)/step)+1;
  x:= 0;
  StringGrid1.ColCount:=2;
  StringGrid1.RowCount:=k;
  for i:=1 to k do begin
    StringGrid1.Cells[0,k-1]:=IntToStr(k);
    StringGrid1.Cells[1,k-1]:=FloatToStr(a*x+b);
    x := x + step
  end;
end;

результат не выводится даже, если только промотать вниз о.о
кстати почему в const step 0,1 обязательно должна стоять точка?

[Serge_Bliznykov]

Сообщение от weeping angel

результат не выводится даже, если только промотать вниз о.о

простите, не понял эту фразу. куда не выводится результат и что нужно промотать?

Сообщение от weeping angel

кстати почему в const step 0,1 обязательно должна стоять точка?

потому что компилятор Delphi совершенно правильно и однозначно считает, что десятичный разделитель - это точка. А не запятая, тире, подчёркивание и всё, что угодно и принято в некоторой субкультуре данной страны.
с одной стороны, хорошо, конечно, что в настройках локали можно поставить любой подходящий знак в качестве разделителя, но с другой - тут сразу же возникают проблемы с совместимостью и переносом данных.
Рад, что Вы ещё с этими проблемами не сталкивались.

[weeping angel]

проверьте пожалуйста
может я напортачил в оформлении формы?
просто по заданиям, компонент StringGrid мне впервые попался, только разбираюсь с ним. Когда запускаю программу, заполняю поля и кликаю "Вычислить" ничего не отображается, пока скролл бар был, там можно было промотать вниз и только там на последней строчке отображалось(интересно почему, если... строк всего 10, почему он вниз то мотает)

[Serge_Bliznykov]

Сообщение от weeping angel

проверьте пожалуйста

Вы издеваетесь?

или Вы реально не видите разницы между тем кодом, что предложил я:

Сообщение от Serge_Bliznykov

procedure TForm1.Button1Click(Sender: TObject);
const step = 0.1;
var x, a, b : double;
   i,k : integer;
begin
  a := StrToFloat(Edit2.Text);
  b := StrToFloat(Edit3.Text);
  k:= trunc((1-0)/step)+1;
  x:= 0;
  StringGrid1.ColCount:=2;
  StringGrid1.RowCount:=k;
  for i:=1 to k do begin
    StringGrid1.Cells[0,k-1]:=IntToStr(k);
    StringGrid1.Cells[1,k-1]:=FloatToStr(a*x+b);
    x := x + step
  end;
end;

и тем кодом, что у Вас?!!!

procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j,a,b,x:integer;
begin
for k:=0 to 1 do begin
StringGrid1.Cells[0,k-0,1]:=IntToStr(k);
StringGrid1.Cells[1,k-0,1]:=IntToStr(StrToInt(Edit2.Text)*k+StrToInt(Edit3.Text));
end;
end;

это при том, что код в модуле вообще НЕ КОМПИЛИРУЕМЫЙ.
Вы что, забыли сохранить проект, перед тем, как в архив запаковать?!

[weeping angel]

так, ща проверю, прошу прощения
это старый(очевидно -_-) он не прописан в программе, просто блокнот который забыл удалить, сам проект проще запустить, там отобразится то что вы скинули

[Serge_Bliznykov]

Сообщение от weeping angel

так, ща проверю, прошу прощения

когда будете проверять, исправьте ошибку в моём коде:

  for i:=1 to k do begin
    StringGrid1.Cells[0,i-1]:=FloatToStr(x);
    StringGrid1.Cells[1,i-1]:=FloatToStr(a*x+b);
    x := x + step
  end;

[weeping angel]

Ура^^ заработало, спасибо большое за помощь, и маленькие просвещения)